ابحث عن كود لتاكد من ان الشبكة المحلية متصله

[Mohameddd200300]

سلام عليكم ورحمة الله وبركاته 

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

[jjafferr]

وعليكم السلام 🙂

 

الحل الاقصر

if len(dir("\\100.0.100.5\temp\myData.accdb"))=0 then
	msgbox "لا توجد شبكة"
end if

 

جعفر

[abouelhassan]

جرب هذا

التحقق من الانترنت.accdb

[Moosak]

هناك عدة أفكار ممكن تطبقها وخذ منها ما تراه مناسباً حسب خيالك الواسع 🙂 

 

كود دالة تفحص إذا كانت الجداول المرتبطة متصلة أم لا :

الشرح :

عندما يكون البرنامج مقسم لنسختين FE و BE
وضيفة الكود أن تعطيه اسم أحد الجداول المرتبطة فيفحصه إذا كان متصل أم لا ويعطيك النتيجة True / False

Private Function TableLinkOkay(strTableName As String) As Boolean
'Function accepts a table name and tests first to determine if linked
'table, then tests link by performing refresh link.
'Error causes TableLinkOkay = False, else TableLinkOkay = True
    Dim CurDB As dao.Database
    Dim tdf As TableDef
    Dim strFieldName As String
    On Error GoTo TableLinkOkayError
    Set CurDB = DBEngine.Workspaces(0).Databases(0)
    Set tdf = CurDB.TableDefs(strTableName)
    TableLinkOkay = True
    If tdf.Connect <> "" Then
        '#BGC updated to be more thorough in checking the link by opening a recordset
        'ACS 10/31/2013 Added brackets to support spaces in table and field names
        strFieldName = CurDB.OpenRecordset("SELECT TOP 1 [" & tdf.Fields(0).Name & "] FROM [" & tdf.Name & "];", dbOpenSnapshot, dbReadOnly).Fields(0).Name  'Do not test if nonlinked table
    End If
    TableLinkOkay = True
TableLinkOkayExit:
    Exit Function
TableLinkOkayError:
    TableLinkOkay = False
    GoTo TableLinkOkayExit
End Function

وتناديه أو تستدعيه بهذه الصورة :

TableLinkOkay("strTableName")

 

كود دالة للتأكد ما إذا كان الملف أو المجلد المعطى موجود أم لا :

الشرح :

هذه الدالة تعطيها مسار الملف أو المجلد الذي تريد فحص وجوده ، ثم تعطيك نتيجة من نوع : True or False

Public Function IsFileExists(txtPath As String) As Boolean

' To check whether a given file or folder exists or not

If Len(Dir(txtPath, vbDirectory)) = 0 Then
   IsFileExists = False
Else
   IsFileExists = True
End If

End Function

وتستدعيه هكذا :

IsFileExists(txtPath)

 

كود لفحص حالة الإتصال بالإنترنت ( متصل / غير متصل ) : 

#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()
وهذه تظهر لك رسالة تخبرك إن كان متصل أم لا

 

تم تعديل يونيو 2, 2022 بواسطه Moosak

[Moosak]

43 دقائق مضت, rockjone33 said:

واذا تبيني ارفع عملك معدل محافظ على تصميمه  حاضر ..

هات ما عندك .. 😏

وعلى فكرة في المثال اللي تقصده أنا بنيته على هذي الفكرة : 😉

5 ساعات مضت, Moosak said:

كود دالة للتأكد ما إذا كان الملف أو المجلد المعطى موجود أم لا :

وهو نفس كود المهندس جعفر تقريبا بس محول إلى دالة عامة . 🙂 

[Moosak]

 

والموضوع اللي يقصده أخونا @rockjone33 هذا هو :  🙂 

 

 

[Moosak]

27 دقائق مضت, rockjone33 said:

..🙂 

وانته عطه ما عندك .. 🙂

دالة !! -! 

لو بنعدل بطلبة 

1- حفظ المسارات حسب ما عنده آلي او تسجيل !!

2- من فورم اساسي لا يغلق تحديث QW بطريقة المناسبة

3-دالة مسارات 

4-دالة اتصال

5-فورم عرض الكل لعرض المتصلين 

______^

هو طلب عرض اتصال بالاخر اذا مفصول من الاكسس تظهر رسالة خطأ لا يوجد قاعده  !! يستطيع من خلال الرسالة erro: 

بتغير الرسالة او من غير رسالة تغير صور غير متصل .. 

______

وانا ليس لدي علم بطريقة تشغيل الاجهزه لديه بأختيار جداول او جدول واحد  للسنه للحواسيب ! .. 🙂

 

أريدك انت ترفع الملف المعدل .. مثل ما ذكرت سابقا 👍🏼😏

ودعنا نتعلم من خبراتك 😌🌹

[Moosak]

21 دقائق مضت, rockjone33 said:

تم بعض عمل الحبايب .. 🙂

بأذن الله يكون طلبك ..🙂

ليه !! .. ان شاء الله نرفع بدال الصور ICON اقل بعد .. الله يحفظك .. 🙂

jaffer NOT LAN$ .rar 691.47 kB · 0 downloads

أول شي خليني أخبرك سر خطير لتصوير الشاشة 😏👌🏼

جرب تضغط : شعار الويندوز + S + SHIFT  

 

ثانيا : زين تعطينا تعليمات التشغيل 😅

[Eng.Qassim]

2 ساعات مضت, Moosak said:

جرب تضغط : شعار الويندوز + S + SHIFT

استاذ موسى انا جدا ضعيف بالويندوز ...اعرف ان تصوير الشاشة Ctrl+printScr

بس هاي من وين جبتها ...وين نخليها

ربما السؤال خارج الموضوع ...اعتذر كثيرا

[Moosak]

7 ساعات مضت, Eng.Qassim said:

استاذ موسى انا جدا ضعيف بالويندوز ...اعرف ان تصوير الشاشة Ctrl+printScr

بس هاي من وين جبتها ...وين نخليها

ربما السؤال خارج الموضوع ...اعتذر كثيرا

حيالله مهندسنا العزيز 😊

هذا الاختصار يشغل لك أداة اسمها snipping tool وهي من ضمن أدوات ويندوز ، ووضيفتها أخذ لقطة لجزء من الشاشة أو شاشة كاملة أو لنافذة معينة ( بمعنى انها تسهل لك الموضوع ) ، وبعدها ممكن تعمل لصق للصور في أي مكان بشكل عادي أو تفتح محرر للصور خاص بويندوز لتحرير الصورة .. 🙂

ولمعرفة المزيد:

https://en.m.wikipedia.org/wiki/Snipping_Tool

[متقاعد]

ايضا ويندوز 11

Ctrl Shift S

على الترتيب

18 ساعات مضت, Moosak said:

والموضوع اللي يقصده أخونا @rockjone33 هذا هو :  🙂

هذا ☝️ الموضوع فيه افكار جميلة

كثير من المبرمجين الشباب لديهم افكار رائعة وبعضها خارج المألوف

بينما المبرمجين الفدماء لديهم الخبرة ولكن اعمالهم تقليدية اكثر واهتمامهم بالتفاصيل والعملانية اكبر  .

رأي شخصي وفي كل خير

[Mohameddd200300]

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

الحمد لله استطعت  الوصل للي اريد بفضلكم بعد الله   فا شكرا لكم جميعا .

[abouelhassan]

في 2‏/6‏/2022 at 13:49, Moosak said:

 

والموضوع اللي يقصده أخونا @rockjone33 هذا هو :  🙂 

 

 

استاذى موسى بارك الله فيك اخى الكريم

ممكن اسأل حضرتك سؤال

لدى قاعدة بيانات غير مقسمة واضعها على جوجل درايف

اريد ان استفيد من برنامج حضرتك فى الاتصال التلقائى بقاعدة البيانات بحيث اضعها على الديسك توب واقوم بعمل فتح لقاعدة حضرتك فأذا كان هناك اتصال بالانترنت تفتح لى قاعدة البيانات عى جوجل درايف 

هل بالامكان حضرتك تشرح لى الية العمل لذلك اكون شارك لك جداااااااااااا

تقبل احترامى

[Moosak]

4 ساعات مضت, abouelhassan said:

لدى قاعدة بيانات غير مقسمة

أهلا بك أخي أبا الحسن .. 🙂

يحتاج تقسم قاعدة البيانات أولا لكي تعمل لديك هذه التقنية .. 

أما بالنسبة لباقي السؤال .. فيمكن أن يضاف شرط في الكود بأولوية نسخة الجوجل درايف .. أو أن يضاف حقل في الجدول به ترتيب حسب الأولوية ليتعرف عليه الكود ..