[سيامند]

مرحباً جميعاً،
لدي قاعدة بيانات تم إنشاؤها في MS Access ومتصلة بجداول في SQL Server. هناك قائمة منسدلة (ComboBox) أستخدمها لاختيار العناصر. تعمل القائمة بشكل جيد عند اختيار أسماء العناصر باللغة الإنجليزية، ولكن عند محاولة اختيار العناصر التي تكون أسماؤها باللغة العربية، تظهر لي الخطأ التالي:
[يرجى إدراج رسالة الخطأ هنا]
بعض الملاحظات الإضافية:

• نوع الحقل في جدول SQL هو
  nvarchar
  
• ، وعند فتح الجدول في SQL Server تظهر أسماء العناصر العربية بشكل صحيح.
  
• المثير للاهتمام أنه إذا قمت باختيار العنصر باستخدام الباركود بدلاً من الاسم (حتى لو كان الاسم باللغة العربية)، فإنه يعمل دون مشاكل.
  

المشكلة تحدث فقط عند اختيار أسماء العناصر العربية مباشرةً من القائمة المنسدلة.

كود :

Private Sub CboName_AfterUpdate()
On Error GoTo ErrorHandler
If Me.Customer <> "" Then
Me.frm_froshtn_detail.SetFocus
DoCmd.GoToRecord , , acNewRec
Beep
Form_frm_froshtn_detail.ProName = DLookup("[ProName]", "tbl_Product", "[ProName]='" & Me.CboName & "'")
Form_frm_froshtn_detail.ProCode = DLookup("[ProCode]", "tbl_Product", "[ProName]='" & Me.CboName & "'")
Form_frm_froshtn_detail.Cost = DLookup("[Cost]", "tbl_Product", "[ProName]='" & Me.CboName & "'")
Form_frm_froshtn_detail.Price = DLookup("[Price]", "tbl_Product", "[ProName]='" & Me.CboName & "'")
Me.Refresh
Form_frm_froshtn_detail.Refresh
Me.CboName = Null
Me.CboBarCode.SetFocus
Else

Me.CboName = Null
Me.CboBarCode.SetFocus
Beep
msgbox "Nawy kryar la sarawa halbzhera"

End If
   Exit Sub:
ErrorHandler:
msgbox "Okey Bka:" & err.Description, vbExclamation, "Error" & err.Number
End Sub

هل واجه أحدكم مشكلة مشابهة أو يعرف طريقة لحل هذه المشكلة؟


شكراً جزيلاً على المساعدة!