اخر حاجة يا @Foksh
انت عملت الكود في زر الاضافة وهو المفروض في الحفظ تمام ولا
فانا نسخته من زر الاضافة الي الحفظ بالشكل ده بس لما بقوله لا بيسيب السجل بردو ولا اكن في كود مالي عينه ومش بيفتح سجل جديد بردو فمعلش مراجعة منك لكود زرار الحفظ
On Error Resume Next
If Len(Me.y1 & "") = 0 Then
MsgBox "ÃÏÎá äæÚ ÇáÇÎáÇÁ"
Undo
Me.y1.SetFocus
Exit Sub
End If
''''''''''''
If Len(Me.y2 & "") = 0 Then
MsgBox "ÃÏÎá ÊÇÑíÎ ÇáÇÎáÇÁ"
Undo
Me.y2.SetFocus
Exit Sub
End If
''''''''''''
'If [y1] = "2" And Len(Me.y3 & "") = 0 Then
'MsgBox "ÃÏÎá ÊÇÑíÎ ÇáÇÓÊÍÞÇÞ"
'Undo
'Me.y3.SetFocus
'Exit Sub
'End If
'On Error Resume Next
Dim count As Integer
count = DCount("[ID_Number]", "[Ekhla_Details]", "[ID_Number]='" & Forms("Ekhla_Details").Controls("IDNumber").Value & "'")
If DCount("[ID_Number]", "[Ekhla_Details]", "[ID_Number]=[Forms]![Ekhla_Details]![IDNumber]") >= 1 Then
If MsgBox(" " _
& vbCrLf & "¡ åÐÇ ÇáãæÙÝ áå ÅÎáÇÁ ÓÇÈÞ ÚÏÏ " & count _
& vbCrLf & " " _
& vbCrLf & "åá ÊÑíÏ ÇáÇÓÊãÑÇÑ ¿ " _
, 590132, "") = 6 Then
MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ", , ""
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.OpenQuery "DO", acViewNormal
DoCmd.SetWarnings True
DoCmd.GoToRecord , , acNewRec
Else
DoCmd.CancelEvent
MsgBox "Êã ÅáÛÇÁ ÇáÓÌá", , ""
Exit Sub
End If
End If
''''''DoCmd.RunCommand acCmdSaveRecord
''''''DoCmd.SetWarnings False
''''''DoCmd.OpenQuery "Do", acViewNormal
''''''DoCmd.SetWarnings True
End Sub