ارجو المساعدة في استبدال جدول باخر

[Foksh]

  في 20‏/1‏/2024 at 12:20, سامر محمود said:

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

Expand  

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

[سامر محمود]

  في 20‏/1‏/2024 at 15:43, Foksh said:

هذه مشاركتي البسيطة أخي @سامر محمود

 

VACATIONS223.zip 406.71 kB · 0 downloads

Expand  

اخي العزيز @Foksh

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

[Foksh]

  في 20‏/1‏/2024 at 16:51, سامر محمود said:

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

Expand  

الجداول اللي عايز تستوردها في قاعدة بيانات مقفلة بكلمة سر ؟  

[سامر محمود]

  في 20‏/1‏/2024 at 16:59, Foksh said:

الجداول اللي عايز تستوردها في قاعدة بيانات مقفلة بكلمة سر ؟  

Expand  

اخي العزيز @Foksh

الجداول منفصلة عن عن البرنامج نفسه معمول لها لينك الفمروض انه يطلبها

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

 

 

[Foksh]

  في 20‏/1‏/2024 at 17:02, سامر محمود said:

اخي العزيز @Foksh

الجداول منفصلة عن عن البرنامج نفسه معمول لها لينك الفمروض انه يطلبها

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

 

 

Expand  

ده بيحصل معاك في أي نسخة ؟ 

[سامر محمود]

  في 20‏/1‏/2024 at 17:11, Foksh said:

ده بيحصل معاك في أي نسخة ؟ 

Expand  

ايوة حالا لسة هتجنن والله 

[Foksh]

  في 20‏/1‏/2024 at 17:13, سامر محمود said:

ايوة حالا لسة هتجنن والله 

Expand  

ما فهمتنيش ,,

قصدي في النسخة اللي ارفقتها وعدلتلك عليها في مشاركتي ؟

[سامر محمود]

  في 20‏/1‏/2024 at 17:13, سامر محمود said:

ايوة حالا لسة هتجنن والله 

Expand  

حليتها حليتها حليتها يا @Foksh

[Foksh]

  في 20‏/1‏/2024 at 16:51, سامر محمود said:

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

Expand  

بالنسبة لكلمة المرور في القاعدة المحمية ..

الكود ده بعد التعديل في زر ( اختيار قاعدة البيانات المصدر )

Private Sub CmdChosePath_Click()
    On Error GoTo ErrHandler
    Dim fDialog As Office.FileDialog
    Dim filepath As String
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim password As String
    
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    With fDialog
        .AllowMultiSelect = False
        .TITLE = "Please select one Item"
        .Filters.Clear
        .Filters.Add "All Files", "*.*"
        .Filters.Add "Access Database Files", "*.accdb;*.mdb"
        If .Show = True Then
            filepath = .SelectedItems(1)
            
            password = InputBox("Enter the database password:", "Password")
            
            Me.MdbPath = filepath
            
            Set db = OpenDatabase(filepath, False, False, ";PWD=" & password)
            
            DoCmd.OpenForm "List_Tables"
            [Forms]![List_Tables]![MdbPath] = Me.MdbPath
            
            [Forms]![List_Tables]![Lst_Tables].RowSource = ""
            
            For Each tdf In db.TableDefs
                If Left(tdf.name, 4) <> "MSys" Then
                    [Forms]![List_Tables]![Lst_Tables].AddItem tdf.name
                End If
            Next tdf
            
            db.Close
            
        End If
    End With
    
    Exit Sub

ErrHandler:
    MsgBox "You clicked Cancel in the file dialog box."
    Me.MdbPath = ""
End Sub

 

[سامر محمود]

  في 20‏/1‏/2024 at 17:35, Foksh said:

بالنسبة لكلمة المرور في القاعدة المحمية ..

الكود ده بعد التعديل في زر ( اختيار قاعدة البيانات المصدر )

Private Sub CmdChosePath_Click()
    On Error GoTo ErrHandler
    Dim fDialog As Office.FileDialog
    Dim filepath As String
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim password As String
    
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    With fDialog
        .AllowMultiSelect = False
        .TITLE = "Please select one Item"
        .Filters.Clear
        .Filters.Add "All Files", "*.*"
        .Filters.Add "Access Database Files", "*.accdb;*.mdb"
        If .Show = True Then
            filepath = .SelectedItems(1)
            
            password = InputBox("Enter the database password:", "Password")
            
            Me.MdbPath = filepath
            
            Set db = OpenDatabase(filepath, False, False, ";PWD=" & password)
            
            DoCmd.OpenForm "List_Tables"
            [Forms]![List_Tables]![MdbPath] = Me.MdbPath
            
            [Forms]![List_Tables]![Lst_Tables].RowSource = ""
            
            For Each tdf In db.TableDefs
                If Left(tdf.name, 4) <> "MSys" Then
                    [Forms]![List_Tables]![Lst_Tables].AddItem tdf.name
                End If
            Next tdf
            
            db.Close
            
        End If
    End With
    
    Exit Sub

ErrHandler:
    MsgBox "You clicked Cancel in the file dialog box."
    Me.MdbPath = ""
End Sub

 

Expand  

تسلم ايدك اخويا العزيز الغالي @Foksh

[Foksh]

  في 20‏/1‏/2024 at 17:43, سامر محمود said:

تسلم ايدك اخويا العزيز الغالي @Foksh

Expand  

جرب وإذا تكرمت اعطيني النتيجة حتى يتم تصنيف الملف في مكتبتي 

[سامر محمود]

  في 20‏/1‏/2024 at 17:35, Foksh said:

بالنسبة لكلمة المرور في القاعدة المحمية ..

الكود ده بعد التعديل في زر ( اختيار قاعدة البيانات المصدر )

Private Sub CmdChosePath_Click()
    On Error GoTo ErrHandler
    Dim fDialog As Office.FileDialog
    Dim filepath As String
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim password As String
    
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    With fDialog
        .AllowMultiSelect = False
        .TITLE = "Please select one Item"
        .Filters.Clear
        .Filters.Add "All Files", "*.*"
        .Filters.Add "Access Database Files", "*.accdb;*.mdb"
        If .Show = True Then
            filepath = .SelectedItems(1)
            
            password = InputBox("Enter the database password:", "Password")
            
            Me.MdbPath = filepath
            
            Set db = OpenDatabase(filepath, False, False, ";PWD=" & password)
            
            DoCmd.OpenForm "List_Tables"
            [Forms]![List_Tables]![MdbPath] = Me.MdbPath
            
            [Forms]![List_Tables]![Lst_Tables].RowSource = ""
            
            For Each tdf In db.TableDefs
                If Left(tdf.name, 4) <> "MSys" Then
                    [Forms]![List_Tables]![Lst_Tables].AddItem tdf.name
                End If
            Next tdf
            
            db.Close
            
        End If
    End With
    
    Exit Sub

ErrHandler:
    MsgBox "You clicked Cancel in the file dialog box."
    Me.MdbPath = ""
End Sub

 

Expand  

اخي العزيز @Foksh

بعتذر عن التاخير نظرا لظروف صحية غصب عني 

الكود تمام اشتغل بس في بعض المشاكل ان اول inputbox بطلب كلمة المرور وبتكون ظاهررة اثناء الكتابة 

بعد كده بيظهر اخر ده فعلا بتاع قاعدة البيانات المطلوب منها التحديث 

الجداول بتظهر في الليست وبختار المطلوب بينزله باسم copy data  المفروض انه يمسح القديم ويضيف الجديد المحث بنفس الاسم علشان العلاقات والجداول 

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

تحياتي لمساعدتك الكريمة 

[سامر محمود]

  في 26‏/1‏/2024 at 17:03, سامر محمود said:

اخي العزيز @Foksh

بعتذر عن التاخير نظرا لظروف صحية غصب عني 

الكود تمام اشتغل بس في بعض المشاكل ان اول inputbox بطلب كلمة المرور وبتكون ظاهررة اثناء الكتابة 

بعد كده بيظهر اخر ده فعلا بتاع قاعدة البيانات المطلوب منها التحديث 

الجداول بتظهر في الليست وبختار المطلوب بينزله باسم copy data  المفروض انه يمسح القديم ويضيف الجديد المحث بنفس الاسم علشان العلاقات والجداول 

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

تحياتي لمساعدتك الكريمة 

Expand  

 

[Foksh]

  في 27‏/1‏/2024 at 11:06, سامر محمود said:

 

Expand  

لها حل اخي الكريم ، ولكن اعذرني ليوم الغد إن شاء الله 😊

[سامر محمود]

  في 27‏/1‏/2024 at 19:50, Foksh said:

لها حل اخي الكريم ، ولكن اعذرني ليوم الغد إن شاء الله 😊

Expand  

اخي الكريم @Foksh

ولا يهمك في انتظارك جزاك الله خيرا 

[Foksh]

  في 27‏/1‏/2024 at 20:06, سامر محمود said:

اخي الكريم @Foksh

ولا يهمك في انتظارك جزاك الله خيرا 

Expand  

قد يكون ردي متأخراً ، واعتذر عن عدم المتابعة مني ومن صاحب الموضوع ، ولكن أعتقد افضل طريقة ولضمان عدم تلف العلاقات بين الجداول هو استيراد البيانات من الجدول المحدد وليس استيراد الجدول كاملا استناداً وتأييداً لكلامي أستاذنا @kanory .

 

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

 

هذه الجداول شكلها بنت عالم وناس 😂🤪

تم تعديل فبراير 16, 2024 بواسطه Foksh

[kanory]

  في 10‏/1‏/2024 at 20:02, kanory said:

بهذا الشكل سوف تفقد العلاقات وعمليات الربط بينها والجداول الاخرى ؟؟؟؟؟

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

Expand  

 

[Foksh]

  في 16‏/2‏/2024 at 14:31, kanory said:

 

Expand  

🤗

[kkhalifa1960]

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

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

اليك المرفق .ووافني بالرد .

DDTestSamer.rarFetching info...

[سامر محمود]

  في 16‏/2‏/2024 at 20:03, kkhalifa1960 said:

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

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

اليك المرفق .ووافني بالرد .

DDTestSamer.rar 1.02 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads

Expand  

تحياتي وتقدرير للاخ الغالي القدير @kkhalifa1960