السلام عليكم
هذه أول مره اتعامل فيها مع Access 2003 VBA حيث ان لدى مشروع كامل و مطلوب منى ستعديل جزء منه و لقد انتهيت من 90% من الموضوع و لكن استقوفنى موضوع بصراحه بيتهيألى تافه يعنى لكن مش لاقى حل و زى ماقلت أنا ده أول برنامج لى ...
البرنامج عن عباره عن حوالى 90 جدول المهم هو أنه فى شاشة Orders يقوم البرنامج بفتح العديد من Queries من ملف قاعدة بيانات خارجيه اسمه queri1.mdb لربطها بالشاشة Orders و قد اضفت TextBox الى هذه الشاشة و فى الحدث TextBox_Click كتبت الكود :
Private Sub Text432_Click()
'EVRY1FALLS
If CN.State = 1 Then CN.Close
CN.Open ("provider = microsoft.jet.oledb.4.0 ; data source = C:\StoneEdge\ulbbak.mdb")
If RS1.State = 1 Then RS1.Close
RS1.CursorLocation = adUseClient
RS1.Open "Select * From ORDERS where customerID = '" & fldCustomerID & "'", CN, adOpenDynamic, adLockOptimistic
Me.Text432 = RS1!Name
End Subو عند تنفيذ البرنامج و الضغط بالماوس على Text432تظهر رسالة خطأ :
Data Type Mismatch In Criteria Expression
لا أعرف ماهو الحل و لا ما هو الخطأ ؟؟
