كتابة المبلغ في تاريخ معين

omani كتب:

استخدم هذا

  If (InputBox("Enter Password")) = "123" Then

        	Dim Rs As Recordset

      	Set Rs = Me.RecordsetClone
      	DoCmd.SetWarnings 0
      	If Rs.BOF = False Then Rs.MoveFirst

      	Do Until Rs.EOF
        	' If (Format(Rs!a3, "dd/mm/yyyy")) = (Format(Date, "dd/mm/yyyy")) Then
                    	DoCmd.RunSQL "Insert into data (no,ed,not) values (" & Rs!no & "," & Rs!monhan & ",'äÒæá ÇáãÈáÛ')"
        	' End If

        	Rs.MoveNext
      	Loop
      	DoCmd.SetWarnings 1
      	Set Rs = Nothing
   	Me.Data.Requery
Else
   MsgBox "كلمة المرور خاطئة"

End If

تحياتي

ربي يعطيك الف الف عافيه

واشكرك من القلب