حمدى الظابط قام بنشر ديسمبر 17, 2022 الكاتب مشاركة قام بنشر ديسمبر 17, 2022 السلام عليكم ممكن مثال حى على هذا الموديول #If VBA7 Then Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" _ (ByRef dwFlags As Long, _ ByVal dwReserved As Long) As Boolean #Else Private Declare Function InternetGetConnectedState Lib "wininet.dll" _ (ByRef dwFlags As Long, _ ByVal dwReserved As Long) As Boolean #End If Function Is_Connected() As Boolean Dim IEStat As Long Is_Connected = (InternetGetConnectedState(IEStat, 0&) <> 0) End Function Public Sub TestInternetConnection() If Is_Connected() = True Then MsgBox "Connected" Else MsgBox "Not Connected" End If End Sub ثم يتم استدعاء أحد الدالتين التاليتين : Connected() هذه تعطيك نتيجة نعم/ لا على الإتصال TestInternetConnection() وهذه تظهر لك رسالة تخبرك إن كان متصل أم لا ****************************************************************************************** رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر ديسمبر 17, 2022 مشاركة قام بنشر ديسمبر 17, 2022 هذا المرفق فيه مثال مشابه 🙂 حالة الاتصال بالنت.rar رابط هذا التعليق شارك More sharing options...
حمدى الظابط قام بنشر ديسمبر 17, 2022 الكاتب مشاركة قام بنشر ديسمبر 17, 2022 45 دقائق مضت, Moosak said: هذا المرفق فيه مثال مشابه 🙂 حالة الاتصال بالنت.rar 21.89 kB · 0 downloads ممكن ارساله بصغية تانية لان برنامج الضغط غير قادر على فتح هذا الملف رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر ديسمبر 17, 2022 مشاركة قام بنشر ديسمبر 17, 2022 (معدل) تفضل( مع العلم أن الملف ليس لي ، وأضنه من إبداعات أحد أعضاء المنتدى ) 🙂 : حالة الاتصال بالنت.accdb تم تعديل ديسمبر 17, 2022 بواسطه Moosak 1 رابط هذا التعليق شارك More sharing options...
طاهر الوليدي قام بنشر ديسمبر 17, 2022 مشاركة قام بنشر ديسمبر 17, 2022 المطلوب اخواني الاعزاء اضافة ميزه ارسال تقرير الى الايميل والى واتسآب. بمعنى يكون له ثلاث وضائف ارسال رساله نصيه ارسال مرفقات ارسال تقرير طبعا الى الايميل + الوتسآب رابط هذا التعليق شارك More sharing options...
أبو امين قام بنشر أبريل 2, 2023 مشاركة قام بنشر أبريل 2, 2023 استاذي الكريم Moosak و اخيرا برحمة الله و فضله و جهودكم الجبارة تمكنا من استعمال مثالك في ارسال الايمايل و صراحة كانت فرحتي اكثر من عارمه لطريقة شرحك للحصول على كلمة السر من حساب الجيمايل اشتغل المثال الذي انتظرته شهورا و شهورا يبقى امر واحد عندما نريد ارسال تقرير يخبرنا ان Form 1 غير موجودة ثم اكواد زر ارسال التقرير غير موجوده هل انكم لم تتفطنوا لذلك ام الكود لم يكتمل بعد شكرا سيدي الكريم و جعل انجازاتكم و مساعداتكم في صالح اعمالكم في هذا الشهر المبارك 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر أبريل 2, 2023 مشاركة قام بنشر أبريل 2, 2023 أستاذ أبو أمين الاجابة على سؤالك فى هذا الموضوع اقتباس رابط هذا التعليق شارك More sharing options...
XVMOHAMED قام بنشر أبريل 26, 2023 مشاركة قام بنشر أبريل 26, 2023 شكرا لكم 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.