شكرا استاذى @jjafferr
تم عمل استعلام الحاق
On Error Resume Next
Dim strSQL As String
Dim intHow_Many As Integer
strSQL = "[Worker]='" & Me.Worker & "'"
intHow_Many = DCount("*", "Workermain", strSQL)
If intHow_Many > 0 Then
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into Workermain (Worker) values (Worker)"
DoCmd.SetWarnings True
Exit Sub
End If