
If DLookup("KestMonth", "YateemAksaat", "KestYear='" & FKestYear & "'") = FKestMonth Then
    MsgBox "??I E? E?I?I ??? O??   " & FKestMonth.Column(1) & " ** " & "  ????E  " & FKestYear & " ** " & "C???C? ?IE?C? O?? AI? ?? ??E ?I??", vbInformation + vbOKOnly
    Cancel = True
End If

'------------------------------------------------------------------------------------------
' C?E??I ?? ?I? E??C? ?IIC? C???? ?? C??????

Dim rst As Recordset

Set rst = Me.RecordsetClone

rst.MoveFirst

Do Until rst.EOF

If rst!YateemNo = Me!YateemNo And rst!KestYear = Me!KestYear And rst!KestMonth = Me!KestMonth Then

        MsgBox " ??I E? ?IIC? ??C C???? ???E?? " & FYateemNo.Column(2) & " ?? ?E?, C???C? C?E??I ?? ?I? E??C? C?E?C?CE ?? C?OCOE C??C??E ", vbInformation + vbOKOnly
        Cancel = True

Exit Do

End If

rst.MoveNext

Loop

rst.Close

*************************************************************************************************

Private Sub Command88_Click()
'If Not IsNull(YateemAksaatTmp.Form!FYateemNo) Then
Dim db As Database
      Dim rsi As Recordset
      Dim rsm As Recordset
      Dim vyateemNo As Variant
      Dim vCurrSeqNo As Integer
      Set db = CurrentDb
      Set rsi = db.OpenRecordset("YateemAksaatTmp", dbOpenDynaset)
      Set rsm = db.OpenRecordset("Aytaam", dbOpenDynaset)
      Do While Not rsi.EOF
         vyateemNo = (rsi!YateemNo)
         rsm.FindFirst ("YateemNo='" & vyateemNo & "'")
         If rsm.NoMatch Then
         Else
         rsi.Edit
         rsi!KestNo = rsm!LastSeqNo + 1
         rsi.Update
         End If
         rsi.MoveNext
      Loop
      db.Close
'  End If
  YateemAksaatTmp.Requery
YateemAksaatTmp.SetFocus
End Sub
*************************************************************************************************

Forms!Form1!subControl1.SetFocus
    'You must then set the focus to the Control on
    'the subform holding the subsubform
    Forms!Form1!subControl1.Form!subsubcontrol1.SetFocus
    'go to new record
    DoCmd.GoToRecord , , acNewRec

*************************************************************************************************
'      
Private Sub CmdDelRec_DblClick(Cancel As Integer)

Dim v_checkSanadat    As Variant
Dim v_checkYateemAksaat  As Variant
Dim v_checkArmlahAksaat  As Variant

If Not IsNull(FSanadSeqNo) Then
  v_checkSanadat = DLookup("SanadSeqNo", "AytaamSandat", "FSanadSeqNo ='" & FSanadSeqNo & "'")
   If Not IsNull(v_checkSanadat) Then
      v_checkYateemAksaat = DLookup("SanadSeqNo", "YateemAksaat", "FSanadSeqNo ='" & FSanadSeqNo & "'")
      If MsgBox("             ", vbQuestion + vbYesNo, "") = vbYes Then
        If MsgBox("             ", vbQuestion + vbYesNo, "") = vbYes Then
            DoCmd.RunSQL (" Delete From YateemAksaat  Where SanadSeqNo ='" & FSanadSeqNo & "' ")
            DoCmd.RunSQL (" Delete From AytaamSandat  Where SanadSeqNo ='" & FSanadSeqNo & "' ")
            Call CmdCls_Click
        End If
      End If
   End If
End If

End Sub



*************************************************************************************************





*************************************************************************************************







*************************************************************************************************






*************************************************************************************************




*************************************************************************************************







*************************************************************************************************