memo20067

السلام عليكم استاذ Moosak

جربت الملف ولكن دائما يعطي رسالة (الجداول غير متصلة)

هل في تعديل على هذا الكود؟

اقتباس

 

Public 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

Public Function TestConnection(strTableName As String)

If TableLinkOkay(strTableName) = True Then
    MsgBox "الجداول متصلة"
Else
    MsgBox "الجداول غير متصلة"
End If

End Function

 

وشكرا جدا جدا لحضرتك على الاهتمام والمشاركة والمساعدة

بعد اذنكم ياجماعه الموضوع مهم جدا

يارت لو حد حمل الملف وشغال عليه يعرفني ويقول تحت المراجعه على الاقل

وشكرا لكل من ساهم بالمشارمة في حل مشكلتى هذه

للرفع

رفع للأهمية بعد اذنكم

للأسف انا حاولت اطبق حاجة من دول بس معرفتش

طول ما في شكبه متصله يعمل بشكل جيد

ولكن اريد بهذا الكود انه في حالة عدم الاتصال بالشبكة لا تجلب البيانات من الجداول المرتبطة بقاعدة البيانات SQL ويتم الاعتماد على البيانات الموجوده مسبقاً فى الجداول المحلية التي تم جلبها مسبقا من جداول قاعدة البيانات SQL

وهذا هو ملف العمل

اسعار.zip

في 3‏/8‏/2022 at 11:59, حسين العربى said:

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

ممكن تنشأ جدول علي  قاعدة بيانات sql server  مكون من حقل فقط وتضع في الحقل هذا اي قيمه مثلا 1 وتذهب الي اكسس وتعمل ربط للجدول  وفي النموذج نعمل مربع نص مرتبط بالحقل بحيث لو الحقل لاتوجد به قيمة معناه انه غير متصل وانت عمل الشرط بتاعك 

انا بستعمل الشرط هذا 

If Len(Me.chk_1 & "") = 0 Then
MsgBox "لايوجد اتصال بالشبكة الرجاء التأكد من اتصال الشبكة "
Me.serh.SetFocus
Undo
Exit Sub
End If

chk_1   هو حقل غير منضم في نموذج 

يتم جلب القيمة من الجدول المرتبط مع sgl   عن طريق هذ هذا الكود

Me.chk_1 = DLookup("[cvil_id]", "tabol_1", "[cvil_id]")

 tabol_1  هو اسم الجدول  و cvil_id هو الحقل في الجدول المرتبط   و chk_1 هو مربع النص الغير منضم في النموذج 

شكرا لك يا استاذ حسين العربي

انا جربت الطريقة واشتغلت معايا شكرا جدا لحضرتك

في 3‏/8‏/2022 at 17:46, Moosak said:

أنا أستخدم هذا الكود لفحص الاتصال عندما تكون قاعدة البيانات مقسمة إلى  FE و BE .. ولم أجرب الاتصال بقاعدة SQL سابقا .. 

وضيفة الكود أن تعطيه اسم أحد الجداول المرتبطة فيفحصه إذا كان متصل أم لا ويعطيك النتيجة 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")

 

جربه أنت مع قاعدة الـ  SQL وأخبرنا بالنتيجة 🙂 

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

في 3‏/8‏/2022 at 19:56, Moosak said:

مع البحث وجدت هذا الموضوع فيه كود لعله يساعدك :

https://stackoverflow.com/questions/37426141/access-vba-connection-to-test-existence-of-sql-server

وهذا هو الكود :

Public Function IsSqlServer( _
    ByVal TestNewConnection As Boolean, _
    Optional ByVal Hostname As String, _
    Optional ByVal Database As String, _
    Optional ByVal Username As String, _
    Optional ByVal Password As String, _
    Optional ByRef ErrNumber As Long) _
    As Boolean

    Const cstrQuery     As String = "VerifyConnection"

    Dim dbs             As DAO.Database
    Dim qdp             As DAO.QueryDef
    Dim rst             As DAO.Recordset

    Dim booConnected    As Boolean
    Dim strConnect      As String
    Dim strConnectOld   As String
    Dim booCheck        As Boolean

    Set dbs = CurrentDb
    Set qdp = dbs.QueryDefs(cstrQuery)

    If Hostname & Database & Username & Password = "" Then
        If TestNewConnection = False Then
            ' Verify current connection.
            booCheck = True
        Else
            ' Fail. No check needed.
            ' A new connection cannot be checked with empty parameters.
        End If
    Else
        strConnectOld = qdp.Connect
        strConnect = ConnectionString(Hostname, Database, Username, Password)
        If strConnect <> strConnectOld Then
            If TestNewConnection = False Then
                ' Fail. No check needed.
                ' Tables are currently connected to another database.
            Else
                ' Check a new connection.
                qdp.Connect = strConnect
                booCheck = True
            End If
        Else
            ' Check the current connection.
            strConnectOld = ""
            booCheck = True
        End If
    End If

    On Error GoTo Err_IsSqlServer

    ' Perform check of a new connection or verify the current connection.
    If booCheck = True Then
        Set rst = qdp.OpenRecordset()
        ' Tried to connect ...
        If ErrNumber = 0 Then
            If Not (rst.EOF Or rst.BOF) Then
                ' Success.
                booConnected = True
            End If
            rst.Close
        End If

        If strConnectOld <> "" Then
            ' Restore old connection parameters.
            qdp.Connect = strConnectOld
        End If
    End If

    Set rst = Nothing
    Set qdp = Nothing
    Set dbs = Nothing

    IsSqlServer = booConnected

Exit_IsSqlServer:
    Exit Function

Err_IsSqlServer:
    ' Return error.
    ErrNumber = Err.Number
    ErrorMox "Tilslutning af database"
    ' Resume to be able to restore qdp.Connect to strConnectOld.
    Resume Next

End Function

 

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

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

اخوانى بعد اذنكم لو فى أحد يقدر يساعدني

محتاج: كود vba لفحص ما اذا كان الاتصال بين access و sql server محقق او لا

لأني محتاج اضعه فى معادلة If الشرطية إذا كان محقق الإتصال يفعل بعض الأوامر وإذا لا يتحقق الاتصال لا يفعل شيئ.

وشكرا لكم ولاهتمامكم ومساعدتكم المتكررة لنا.

وجزاكم الله خيراً

تمام يا أ/محمد ...اشتغلت معايا على نفس الامتداد ..

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

بعد اذنكم محتاج معادلة بدالة IF اذا تغيرت قيمة الخلية A1 اذا B1=تاريخ اليوم

وشكرا لكم ...ملف مختصر لما اود فعله

New Microsoft Excel Worksheet.xlsx

شكراً لك أستاذ/ على

على مشاركتك المحفزة والمشجعة ولعل العمل يكن مفيداً لكم وللأخوة الكرام

بسم الله الرحمن الرحيم ..السلاك عليكم ورحة الله وبركاته ..إخواني وأخواتى،..

هذه هدية بسيطة لكم(ملف لاحتساب اوقات الحضور والانصراف واوقات الراحة للموظفين)

كل ما يجب عليك فعله أن تضغط على كود الموظف في شيت أسماء الموظفين تنتقل للشيت لهذا الكود تكتب فقط اسم الموظف بالأعلى وتكتب وقت الحضور والإنصراف للموظف في اليوم وتكتب وقت ذهابه وحضوره من الراحة واترك الباقي على المعادلات. ...وشكرا لكم.الملف مره أخرى بعد التطوير يا أحباب

الحضور والانصراف واحتساب وقت الراحة بالوقت.xlsx

الحمد لله

قدرت اتوصل لحل مؤقت ، الملف في المرفقات:

لكن اود من يساعدني في ان اجمع ناتج الخليتين في خليه واحده.

بمعنى:

اذا بحثت عن الصنف فقط يظهر ناتج الصنف لكن اذا وودت ان ابحث عن صنف من شركة اود الناتج يظهر في نفس الخلية التى ظهر بها الناتج سابقا ولكن طبعا بعد حذف اسم الصنف المبحوث عنه سابقا فى البحث فى الصنف.

خلايا ناتج البحث يظهر بها ناتج الخلايا المبحوث عنها اما ذلك واما ذاك.

وشكرا لكم على مجهوداتكم.

store prices - Copy.xls

والله جربت اكتر من مره وقفلت وفتحت وعملت نفس اللى عملته علشان اشوف هيظهر نفس الخطأ او لا وفعلا ظهر تاني

شكرا جدا لحضرتك على المساعدة يا استاذ عمر

لكن في مشكلة لو كتبت الكود بالفعل الصنف بيظهر لكن لو اختارت شركة واصنافها ظهر تحت واختارت صنف وعرفت سعره وقت اختيار صنف اخر عن طريق الكود طبعا مش بيظهر بسبب اختيار شركة مختلفه عن شركته حتى لو مسحت اسم الشركه مش بيظهر غير العنوان "اسم الصنف" ومقدرش اعمل بحث باي طريقة مره تانيه حتى لو اختارت اسم شركه مش بيظهر الاصناف. ..وياريت لو ينفع يتم المطلوب عن طريق المعادلات بدون استخدام كود VBA ..وشكرا جدا لحضرتك مره أخرى

السلام عليكم

تحية طيبة لكم جميعا ودمتم بالصحة والعافية.

إخواني أرجو التكرم بمساعدتى شيت البحث هذا حيث ان هذا الملف مرتبط بملف أخر لجلب البيانات منه واريد عمل شيت بحث فى الاصناف من حيث اذا كتبت كود الصنف او الشركة او اسم الصنف تظهر بيانات الصنف

حيث اول خليه فى البحث وهي الكود عند كتابته تظهر بيانات الصنف واذا اخترت اسم شركة او كتبته من في قائمة منسدلة يظهر فى خلية الصنف داخل قائمة منسدلة اصناف هذه الشركة وعند اختيار صنف تظهر بياناته وفي خلية الصنف عند كتابة اسم صنف او جزء منه يظهر الاصناف المفلترة واختار منها الصنف المرد وعند اختياره تظهر ناتج بياناته.

واسف جدا للاطالة واشكركم جدا على محاولة مساعدتي فى ذلك.

الملف فى المرفات:

store prices - Copy.xls

السلام عليكم ورحمة الله وبركاته .. لو سمحتم يا أهل الخبرة محتاج مساعدة فى الشيت ده

محتاج اعمل قائمة منسدلة بأسماء المحافظات في شيت أخر واسم كل محافظة فى أول العمود ولكن يفصل بين كل عمود وأخر عمود اسعار وقائمة منسدلة فرعية أخرى ببيانات المدن بناء على اختيار المحافظة من القائمة الأولى وبعد اختيار المحافظة والمدينة يظهر السعر المقابل للمدينة

وأكون شاكر جدا لحضراتكم.. وده ملف العمل

اسعار الشحن.xlsx

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

اخي الكريم انا اعمل حاليا علي هذا من خلال onedrive المقدمة من شركة microsoft كل ما عليك فعله هو ان تملك بريد الكتروني من hotmail وتسجل دخولك علي onedrive وتتعامل معها مثلما تتعامل مع google drive وترفع الملف المراد عمله على onedrive وبعد ذلك تحمل تطبيق excel علي الهواتف وتسجل دخول البريد الالكتروني علي التطبيقات المثبته علي الهواتف وتطلب فتح ملف من التطبيق بعد ذلك تختار onedrive وتختار الملف الذي رفعته من قبل وبذلك يمكنك استخدامه من كل الهواتف ويتم الحفظ تلقائيا من التطبيق للسحابة ويراه الهاتف الاخر ربما خلال دقيقة

وان كنت تستخدم الحاسوب عليك ب microsoft office 2016 فما اعلى وتسجل الدخول عليه ويمكنك فتح الملف علي الحاسوب ايضا

ربما تكون اجابتي علي سؤالك مفيدة لك او ربما لا ولكن ربما شخص اخر يبحث عنها فتقبل مني الاحترام والتقدير

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

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

العامل الاساسي فيه هو التاريخ ثابت في كل شيئ

اريد عمل شيت جديد عند كتابة التاريخ في خلية محددة يظهر لي في نفس الصف بيانات هذا التاريخ المجاورة له في الشيت الاخر ويمكن لي التعديل علي بعض هذه البيانات ولكن دون استخدام الماكرو او ال vba لان استخدام الملف دائما من خلال هواتف اندرويد ولا يتيح تشغيل وحدات ماكرو او vba علي تطبيق الهاتف

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

شغل الشحن والمخزون.xlsx