title: how to get specific id from access table in a msgbox
body: <p>i want to get the id of specific record</p>
  
  <p>this is my code</p>
  
  <pre><code>If DLookup("Full_Name", "tbl_Personal_Information", "Full_Name = Forms!frm_New_Person!F_N") &gt; 0 Then
  MSG = MsgBox("this person is existed and his id number is {" &amp; [P_ID] &amp; "} ", vbOKOnly + vbInformation + vbMsgBoxRtlReading, "client database")
  Else
  strsql101 = "insert into tbl_Personal_Information (Name_English, Father_English, Family_English, Mother_English, P_ID, NName, Father, Family, Mother, Birthdate, Nationality, Record_Number, Record_Place, Address, Mobile1, Mobile2, Phone1, Phone2, Ets_Name) Values ('" &amp; Me.Name_English &amp; "','" &amp; Me.Father_English &amp; "','" &amp; Me.Family_English &amp; "','" &amp; Me.Mother_English &amp; "','" &amp; Me.PID &amp; "','" &amp; Me.NName &amp; "','" &amp; Me.Father &amp; "','" &amp; Me.Family &amp; "','" &amp; Me.Mother &amp; "','" &amp; Me.Birthdate &amp; "','" &amp; Me.Nationality &amp; "','" &amp; Me.Record_Number &amp; "','" &amp; Me.Record_Place &amp; "','" &amp; Me.Address &amp; "','" &amp; Me.Mobile_1 &amp; "', '" &amp; Me.Mobile_2 &amp; "','" &amp; Me.Phone_1 &amp; "', '" &amp; Me.Phone_2 &amp; "','" &amp; Me.Ets_Name &amp; "')"
  DoCmd.SetWarnings False
  DoCmd.RunSQL strsql101
  MSG = MsgBox("information added", vbOKOnly + vbInformation + vbMsgBoxRtlReading, "client database")
  </code></pre>
  
  <p>everything is OK but the id in the msgbox give me the last id in my table</p>