[سيامند]

شكرا جزيلا على الرد 
السطر البرمجى لل cmobox كالاتى و الاغريب في الموضوع هو عندما اختار مادة كتوبت باللغة الانجليزية ما في مشكلة بس اذا كان المادة المختار مكتوب بالاحرف العربية يطلع المشكلة

كود :

Private Sub Combo63_AfterUpdate()
 
On Error GoTo ErrorHandler


    If Nz(Me.Company, "") <> "" Then
        Me.frm_InOrderDetail.SetFocus
        DoCmd.GoToRecord , , acNewRec
        Beep

        Dim selectedProName As String
        selectedProName = Trim(Me.Combo63)

        ' Safely use DLookup with double quotes for Arabic compatibility
        Form_frm_InOrderDetail.ProName = Nz(DLookup("[ProName]", "tbl_Product", "[ProName]=" & Chr(34) & selectedProName & Chr(34)), "")
        Form_frm_InOrderDetail.ProCode = Nz(DLookup("[ProCode]", "tbl_Product", "[ProName]=" & Chr(34) & selectedProName & Chr(34)), "")
        Form_frm_InOrderDetail.Cost = Nz(DLookup("[Cost]", "tbl_Product", "[ProName]=" & Chr(34) & selectedProName & Chr(34)), 0)
        Form_frm_InOrderDetail.DateExp = Nz(DLookup("[Exp]", "tbl_Product", "[ProName]=" & Chr(34) & selectedProName & Chr(34)), Null)

        Me.Refresh
        Me.Combo63 = Null
        Me.CboBarCode.SetFocus
    Else
        Beep
        msgbox "Nawy Companya la sarawa halbzhera", vbExclamation, "Error"
    End If

    Exit Sub

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