رجاء تصحيح كود لتحرير احد السجلات عن طريق VBA

[عبدالله 760]

السلام عليكم

 

اريد تعديل بيانات أحد السجلات عن طريق فورم واوامر VBA  بشرط المعرف او id

اعتقد المشكلة في نوع المتغير ما عرفت اختاره صح مع كثرة المحاولات لساعات

تظهر لي رسالة خطأ "  نوع البيانات غير متطابق في تعبير المعايير 3464"

بين يديكم الكود + والملف

Private Sub Update1_Click()

Dim db As DAO.Database
    Dim rs As DAO.Recordset
   'تجارب فاشلة
   'Dim ud1 As Integer
   'Dim Aa As Byte
   'Dim Aa As Long
   'Dim Aa As Variant
   'Aa = [ud1]
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tb1 Where [id]='" & [ud1] & "'")
        rs.Edit
        rs![name2] = [ud2]
        rs![mobily2] = [ud3]
        rs![Date2] = [ud4]
        rs.Update
    rs.Close
    Set rs = Nothing
    
'ياليت تكون فيه رسالة تأكيد بالتحديث " تم تحديث البيانات "
End Sub

 

Update-access-VBA.accdb

تم تعديل مارس 15, 2022 بواسطه عبدالله 760

[علي البحيري]

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tb1 Where [id]=" & [ud1])

 

[عبدالله 760]

اخ من هالفواصل والرموز ... ضاعت عليها كم ساعة بحث ولا لقيت الحل

 

الله يجزاك خيرا اخوي علي البحري .... فعلا انحلت المشكلة