دریافت مقدار فیلد ID بعد از ثبت اطلاعات

[Honestvip]

سلام تو این دستورات که نمیشه به فیلد ID مقدار داد چون پرایمری و اتو نامبر هست

میخوام بعد از ثبت اطلاعات مقداری که فیلد ID میگیره رو جایی بهم نشون بده مثلا تو MSGBOX


Dim DB As DAO.Database
Dim Rst As DAO.Recordset
Dim id1
Set DB = CurrentDb
Set Rst = DB.OpenRecordset("dbo_ghabz-resid", dbOpenDynaset, dbSeeChanges)
'Set rsTmp = gdbCurrentDB.OpenRecordset(rName, dbOpenDynaset, dbSeeChanges)
Rst.AddNew
Rst.Fields("date1").Value = Me.Date1
Rst.Fields("mablagh").Value = Me.Mablagh
Rst.Fields("Tozihat").Value = Me.Tozihat
Rst.Fields("lasthost").Value = Environ$("computername")

Rst.Update
id1 = rstRecords!id
Rst.Close
DB.Close

Set DB = Nothing
Set Rst = Nothing


End Sub

[mohammadsaleh]

بعد از آخرين خط كد زير رو بنويس

msgbox dmax("[dbo_ghabz-resid],"id")