استاذي ومعلمي الفاضل sandanet الخطاء اني هو ما متب اسماء الجدول الخاصه به لو تلاحظ في الكود اني بقله اكنب اسم الجدول مرتين واسم قاعدة البيانات واسم السرفر وهكذا
كل سطر خاص بجدول
بس اخي سفيان شغل الكود كده من غير تعديل عليه
يعني لو جدول واحد هيكون الكود كده
Private Sub أمر4_Click()
If AttachDSNLessTable("ITEMS_LABEL_PRINT_SALMYIA", "ITEMS_LABEL_PRINT_SALMYIA", "129.186.1.209", "ERP4_COOP", "hussin", "password") Then
MsgBox "تم انشاء الاتصال "
DoCmd.Requery
Else
MsgBox "حدث خطا فى انشاء الاتصال "
End If
End Sub