مشكلة Index مع جدول مرتبط

[capitala]

السلام عليكم،

إنني أستخدام جداول من Back end database في نموذج من FE

المشكلة أني استخدم الصيغة التالية: 

Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = OpenForSeek("client_master")

rst.Index = "client_id"
rst.Seek "=", client_ID

وهذه هي الدالة OpenforSeek
Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _
(Mid(CurrentDb().TableDefs(TableName).Connect, _
11), False, False, "PWD="narsing").OpenRecordset(TableName, _
dbOpenTable)

وأحصل حاليا على رسالة: not a valid file name ، علما بأن قاعدة البيانات BE تحتوي على كلمة مرور

أرجو المساعدة للأهمية

تم تعديل نوفمبر 9, 2021 بواسطه jjafferr
إظهار الكود بالطريقة الصحيحة بإستعمال زر <> من القائمة

[Moosak]

استخدم هذا الكود لربط الواجهة بالجداول في ال  Back End :

    On Error GoTo ErrHandler
    
'-----------------------------------------------------------
' File Dialog Code Starts
'-----------------------------------------------------------
    
    Dim fd As FileDialog
    Dim filedialogPath As String
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    fd.AllowMultiSelect = False
    fd.Title = ChrW("1581") & ChrW("1583") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1604") & ChrW("1601") & ChrW("32") & ChrW("1602") & ChrW("1575") & ChrW("1593") & ChrW("1583") & ChrW("1577") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1610") & ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578")
    fd.InitialFileName = CurrentProject.path & "\ChatAppDB.accdb"
    fd.Filters.Clear
    fd.Filters.Add "Access DataBase", "*.accdb"
      
    If fd.Show = True Then
    filedialogPath = fd.SelectedItems(1)
    Else
    MsgBox ChrW("1604") & ChrW("1605") & ChrW("32") & ChrW("1578") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1576") & ChrW("1578") & ChrW("1581") & ChrW("1583") & ChrW("1610") & ChrW("1583") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1604") & ChrW("1601")
    Exit Function
    End If

'-----------------------------------------------------------
' From Here Relinking Starts
'-----------------------------------------------------------

    Dim path As String
    Dim wrkJet0 As Workspace
    Dim dbs0 As DAO.Database
    
    path = filedialogPath
    Set wrkJet0 = DBEngine.Workspaces(0)
    Set dbs0 = wrkJet0.OpenDatabase(path, False, False, ";PWD=" & "0000")
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    
    Set db = CurrentDb()
    For Each tdf In db.TableDefs
        If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then
        On Error Resume Next
            tdf.Connect = ";DATABASE=" & path
            tdf.RefreshLink
        End If
    Next
    MsgBox ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1578") & ChrW("1589") & ChrW("1575") & ChrW("1604") & ChrW("32") & ChrW("1576") & ChrW("1606") & ChrW("1580") & ChrW("1575") & ChrW("1581")
        
    DoCmd.Close
    DoCmd.OpenForm "LoginF", acNormal
    Exit Function
    
ErrHandler:
    
    MsgBox "Error Number : " & Err.Number & " / Error Description : " & Err.Description

ولا تنس كتابة كلمة المرور مكان الأصفار هنا :

Set dbs0 = wrkJet0.OpenDatabase(path, False, False, ";PWD=" & "0000")

 

تم تعديل نوفمبر 9, 2021 بواسطه Moosak

[capitala]

شاكرين جهودكم، وفقكم الله لما فيه الخير دائما

[jjafferr]

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

 

ممكن تشرح لنا شو اللي تريد عمله من هذا الكود؟

 

جعفر