الحاق بيانات من قاعدة بيانات علي جهاز الكاشير الي قاعدة بيانات علي جهاز اخر

[حسين العربى]

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام 

عندي قاعدة بيانات علي جهاز الكاشير  طبعا مسويلها مشاركة وربط وفي نهاية اليوم  ارحل البيانات من جهاذ الكاشير الي جهازي الرئيسي من خلال زر امر  ( ترحيل مبيعات نقاط بيع ) احيانا الواير ليس بيعلق فعند

الترحيل تظهر رسالة  كما موضح في الصوره معناها انه لايوجد اتصال بالجهاز الاخر  هذه الرساله افتراضيه من اوفيس  ا

طبعا انا اريد كود عند عدم الاتصال يعطي رساله للمستخدم انه غير متصل او توجد مشكله بالاتصال ويلغي الامر وشكرا لكم

واسف علي الاطاله

ملحوظه : طبعا ممكن حدي يقولي الرساله دي واضحه  ارد عليه واقول له خوفا من دخول المستخدم الي محرر الاكواد

ولو وضعت هذا الكود  

On Error Resume Next

لاخفاء الرسال هيظهر له ساله وضعتها ( تم الترحيل ) وهو لم يرحل )

[ابو ياسين المشولي]

حذف المشاركة

 

تم تعديل أغسطس 26, 2019 بواسطه ابو ياسين المشولي

[حسين العربى]

استاذي الفاضل شكرا علي مرورك الطيب هل هذا الكود يتحق من الاتصال فعلا ام انه msg box فقط وهذا ما يتضح لي من الكود

[حسين العربى]

UP

[ابو عارف]

19 ساعات مضت, حسين العربى said:

ملحوظه : طبعا ممكن حدي يقولي الرساله دي واضحه  ارد عليه واقول له خوفا من دخول المستخدم الي محرر الاكواد

ولو وضعت هذا الكود  

On Error Resume Next لعدم وقوف على خطاء و تكميل المشوار ولكن قبل نهاية و عرض النتيجة علينا اضافة سطر يظهر رسالة خطاء و يقف  دون عرض نافذة Debug حتى لا يدخل المستخدم نافذة أكواد

مثلا:

Private Sub Command1 Click()
On Error Resume Next
'كود الحاق بيانات الى جدول


If Err.Number > 0 Then MsgBox Err.Description: Exit Sub
Msgbox "(تم ترحيل)"
End Uub