بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'ظهور خطاء بكود vb مع ال sql server'.
تم العثور علي 1 نتيجه
-
في البداية شكرا الى جميع الاعضاء والى الاخ محمد امين الذي ساعدني في برنامج الاجازات ولكن لدي مشكله بعد تكبير قاعده البيانات وربطها مع سيرفر 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
