في البداية شكرا الى جميع الاعضاء والى الاخ محمد امين الذي ساعدني في برنامج الاجازات ولكن لدي مشكله بعد تكبير قاعده البيانات وربطها مع سيرفر sql server ظهرت لدي مشكله علما ان النموذج يعمل ولكن نموذج تحديث الاجازات تظهر هذه المشكله مرفقه الصور هل هناك تعديل للكود او اضافة كود الربط مع sql او odbc ليعمل النموذج التحديث وهذا هو الكود كاملا
Option Compare Database
Private Sub Form_Load()
Dim Udate1 As Variant
Dim Udate2 As Variant
Dim Uyear1 As Variant
Dim Uyear2 As Variant
Udate1 = DLookup("tmonth", "tblmonth")
Udate2 = Format(Now(), "MM")
Uyear1 = DLookup("tyear", "tblmonth")
Uyear2 = Format(Now(), "yyyy")
Dim db As DAO.Database
Dim rs As DAO.Recordset2
Set db = CurrentDb
Set rs = db.OpenRecordset("الاسماء", dbOpenTable)
If Udate1 <> Udate2 Then
With rs
.MoveFirst
Do While rs.EOF = False
.Edit
.Fields(7) = .Fields(7) + 3
.Update
.MoveNext
Loop
End With
DoCmd.RunSQL ("update tblmonth set tblmonth.tmonth='" & Udate2 & "'")
MsgBox "تم اضافة رصيد"
End If
If Uyear1 <> Uyear2 Then
With rs
.MoveFirst
Do While rs.EOF = False
.Edit
.Fields(7) = .Fields(7) + 36
.Update
.MoveNext
Loop
End With
DoCmd.RunSQL ("update tblmonth set tblmonth.tyear='" & Uyear2 & "'")
MsgBox "تم اضافة رصيد"
End If
Me.T1 = "التحديث لغاية 1/" & Udate1 + 1 & "/" & Uyear2
End Sub
