كيف يمكننى جعل برنامج متاح لأكثر من مستخدم فى نطاق شبكة .

اختر أدوات خيارات خيارات متقدمة ثم خاص وجرب وإذا لم تنفع فاختر مشترك .

ولك تحياتي

قم بفصل البيانات عن البنرنامج فى قاعدتين منفصلتين

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

Link Table:rolleyes:

اجعل البرنامج الرئيسي في السيرفر او في جهاز معين

ومن ثم خذ نسخ كأختصار للبرنامج في الاجهزة الاخرى

شكرا لكم من أجاب على سؤالى ,

الأخ/ مصراوى ... أعطنى مثال أو تفصيل أكثر إذا كان ممكن...

الأخ أبو حمود : تقصد عمل ذلك عن طريق برنامج Accees

الأخ عبد الجواد سعد

نفس الطريقة التي ذكرها الأخ fahadam أنا شغال عليها فعلا منذ ما يقرب من سنتين

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

أشرف خليل

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

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

وللجميع التحية

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

الأخ fahadam

ما يحتاج كود ولا شيء لأن الأمر يتم مرة واحدة فقط .

ولك تحياتي

قم بعمل جدول به أسماء الجداول المطلوب ربطها بال Data الموجودة علي الجهاز الخادم ( أو أي جهاز آخر ) و هي الجداول التي تم عمل Link Table لها مع قاعدة البيانات التي تحتوي علي البرنامج

و قم بعمل Loop علي كل حقل فى الجدول الموجود به أسماء الجداول

و مسار القاعدة التي تحتوي علي الجداول نفذ الأوامر التالية لقطع الوصلة و إعادة تكوينها

هذا مثال من الHelp علي الوصل مع أنواع مختلفة من البيانات

[Note]

   Connect and SourceTableName Properties Example

This example uses the Connect and SourceTableName 
properties to link various external tables to a Microsoft Jet 
database. The ConnectOutput procedure is required for this 
procedure to run.


Sub ConnectX()

    Dim dbsTemp As Database
    Dim strMenu As String
    Dim strInput As String

    ' Open a Microsoft Jet database to which you will link
    ' a table.
    Set dbsTemp = OpenDatabase("DB1.mdb")

    ' Build menu text.
    strMenu = "Enter number for data source:" & vbCr
    strMenu = strMenu & _
        " 1. Microsoft Jet database" & vbCr
    strMenu = strMenu & _

        " 2. dBASE table" & vbCr
    strMenu = strMenu & _
        " 3. Paradox table" & vbCr
    strMenu = strMenu & _
        " M. (see choices 5-9)"

    ' Get user's choice.
    strInput = InputBox(strMenu)

    If UCase(strInput) = "M" Then

        ' Build menu text.
        strMenu = "Enter number for data source:" & vbCr
        strMenu = strMenu & _
            " 4. Microsoft Excel spreadsheet" & vbCr
        strMenu = strMenu & _
            " 5. Lotus spreadsheet" & vbCr
        strMenu = strMenu & _
            " 6. Comma-delimited text (CSV)" & vbCr
        strMenu = strMenu & _
            " 7. HTML table" & vbCr
        strMenu = strMenu & _
            " 8. Microsoft Exchange folder"

        ' Get user's choice.
        strInput = InputBox(strMenu)

    End If

    ' Call the ConnectOutput procedure. The third argument
    ' will be used as the Connect string, and the fourth
    ' argument will be used as the SourceTableName.
    Select Case Val(strInput)
        Case 1
            ConnectOutput dbsTemp, _
                "JetTable", _
                ";DATABASE=C:My DocumentsNorthwind.mdb", _
                "Employees"

        Case 2
            ConnectOutput dbsTemp, _
                "dBASETable", _
                "dBase IV;DATABASE=C:dBASESamples", _
                "Accounts"
        Case 3
            ConnectOutput dbsTemp, _
                "ParadoxTable", _
                "Paradox 3.X;DATABASE=C:ParadoxSamples", _
                "Accounts"
        Case 4
            ConnectOutput dbsTemp, _
                "ExcelTable", _
                "Excel 5.0;" & _
                    "DATABASE=C:ExcelSamplesQ1Sales.xls", _
                "January Sales"
        Case 5
            ConnectOutput dbsTemp, _
                "LotusTable", _
                "Lotus WK3;" & _
                    "DATABASE=C:LotusSamplesSales.xls", _
                "THIRDQTR"
        Case 6
            ConnectOutput dbsTemp, _
                "CSVTable", _
                "Text;DATABASE=C:Samples", _
                "Sample.txt"
        Case 7
            ConnectOutput dbsTemp, _
                "HTMLTable", _
                "HTML Import;DATABASE=http://" & _
                    "www.server1.com/samples/page1.html", _
                "Q1SalesData"
        Case 8
            ConnectOutput dbsTemp, _
                "ExchangeTable", _
                "Exchange 4.0;MAPILEVEL=" & _
                    "Mailbox - Michelle Wortman (Exchange)" & _
                    "|PeopleImportant;", _
                "Jerry Wheeler"
    End Select

    dbsTemp.Close

End Sub

Sub ConnectOutput(dbsTemp As Database, _
    strTable As String, strConnect As String, _
    strSourceTable As String)

    Dim tdfLinked As TableDef
    Dim rstLinked As Recordset
    Dim intTemp As Integer

    ' Create a new TableDef, set its Connect and
    ' SourceTableName properties based on the passed
    ' arguments, and append it to the TableDefs collection.
    Set tdfLinked = dbsTemp.CreateTableDef(strTable)

    tdfLinked.Connect = strConnect
    tdfLinked.SourceTableName = strSourceTable
    dbsTemp.TableDefs.Append tdfLinked

    Set rstLinked = dbsTemp.OpenRecordset(strTable)

    Debug.Print "Data from linked table:"

    ' Display the first three records of the linked table.
    intTemp = 1
    With rstLinked
        Do While Not .EOF And intTemp <= 3
            Debug.Print , .Fields(0), .Fields(1)
            intTemp = intTemp + 1
            .MoveNext
        Loop
        If Not .EOF Then Debug.Print , "[additional records]"
        .Close
    End With

    ' Delete the linked table because this is a demonstration.
    dbsTemp.TableDefs.Delete strTable

End Sub

[/Note]

و كما ذكرت يمكن و ضع أسماء الجداول المطلوب ربطها و مسار قواعد

البيانات فى جدول و تنفيذ المثال السابق علي كل حتويات الجدول

أو

كما قال الأخ أبو حمود

مع إستعمال

Toold Database utiilities Linked Table Manager

إذا أردت تغيير الوصلة

[m]

أما إذا كنت ستوزع MDE فستضطر لعمل الكود

[/m]

أشكركم جميعا ..

وشكر لكود الأخ/ مصرواى وسأحاول المضى قدما فى تطبيق ما فهمته من خلال ردود الأخوة .. لكم تقديرى