Foksh قام بنشر يناير 20 مشاركة قام بنشر يناير 20 3 ساعات مضت, سامر محمود said: هي المشكلة ان الجدولين دول مرتبطين بعلاقات هذه الفكرة سأقوم بالتعديل حسب المطلوب ، ولكن استحملني بالوقت بسبب العمل رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر يناير 20 الكاتب مشاركة قام بنشر يناير 20 الان, Foksh said: هذه مشاركتي البسيطة أخي @سامر محمود VACATIONS223.zip 406.71 kB · 0 downloads اخي العزيز @Foksh تسلم علي المساعدة الكريمة بس اول ما بضغط عليه بيقول كلمة المرور غلط علطول من قبل حتر ما اكتبها علشان كده الجداول مش بتظهر في الليست بوكس رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 20 مشاركة قام بنشر يناير 20 7 دقائق مضت, سامر محمود said: تسلم علي المساعدة الكريمة بس اول ما بضغط عليه بيقول كلمة المرور غلط علطول من قبل حتر ما اكتبها علشان كده الجداول مش بتظهر في الليست بوكس الجداول اللي عايز تستوردها في قاعدة بيانات مقفلة بكلمة سر ؟ 1 رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر يناير 20 الكاتب مشاركة قام بنشر يناير 20 الان, Foksh said: الجداول اللي عايز تستوردها في قاعدة بيانات مقفلة بكلمة سر ؟ اخي العزيز @Foksh الجداول منفصلة عن عن البرنامج نفسه معمول لها لينك الفمروض انه يطلبها وعندي مشكلة مجنناني كل ما افتح كود زارا مثلا بقوم فاتح كل شاشات البرمجة اللي في البرنامج دي حلها ايه رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 20 مشاركة قام بنشر يناير 20 8 دقائق مضت, سامر محمود said: اخي العزيز @Foksh الجداول منفصلة عن عن البرنامج نفسه معمول لها لينك الفمروض انه يطلبها وعندي مشكلة مجنناني كل ما افتح كود زارا مثلا بقوم فاتح كل شاشات البرمجة اللي في البرنامج دي حلها ايه ده بيحصل معاك في أي نسخة ؟ رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر يناير 20 الكاتب مشاركة قام بنشر يناير 20 الان, Foksh said: ده بيحصل معاك في أي نسخة ؟ ايوة حالا لسة هتجنن والله رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 20 مشاركة قام بنشر يناير 20 2 دقائق مضت, سامر محمود said: ايوة حالا لسة هتجنن والله ما فهمتنيش ,, قصدي في النسخة اللي ارفقتها وعدلتلك عليها في مشاركتي ؟ رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر يناير 20 الكاتب مشاركة قام بنشر يناير 20 الان, سامر محمود said: ايوة حالا لسة هتجنن والله حليتها حليتها حليتها يا @Foksh رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 20 مشاركة قام بنشر يناير 20 43 دقائق مضت, سامر محمود 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 1 رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر يناير 20 الكاتب مشاركة قام بنشر يناير 20 الان, 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 تسلم ايدك اخويا العزيز الغالي @Foksh 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 20 مشاركة قام بنشر يناير 20 17 دقائق مضت, سامر محمود said: تسلم ايدك اخويا العزيز الغالي @Foksh جرب وإذا تكرمت اعطيني النتيجة حتى يتم تصنيف الملف في مكتبتي 1 رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر يناير 26 الكاتب مشاركة قام بنشر يناير 26 في 20/1/2024 at 19: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 اخي العزيز @Foksh بعتذر عن التاخير نظرا لظروف صحية غصب عني الكود تمام اشتغل بس في بعض المشاكل ان اول inputbox بطلب كلمة المرور وبتكون ظاهررة اثناء الكتابة بعد كده بيظهر اخر ده فعلا بتاع قاعدة البيانات المطلوب منها التحديث الجداول بتظهر في الليست وبختار المطلوب بينزله باسم copy data المفروض انه يمسح القديم ويضيف الجديد المحث بنفس الاسم علشان العلاقات والجداول حضرتك قولتلي ابلغك بعد التجربة علشان المكتبة بتاعتك تحياتي لمساعدتك الكريمة رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر يناير 27 الكاتب مشاركة قام بنشر يناير 27 الان, سامر محمود said: اخي العزيز @Foksh بعتذر عن التاخير نظرا لظروف صحية غصب عني الكود تمام اشتغل بس في بعض المشاكل ان اول inputbox بطلب كلمة المرور وبتكون ظاهررة اثناء الكتابة بعد كده بيظهر اخر ده فعلا بتاع قاعدة البيانات المطلوب منها التحديث الجداول بتظهر في الليست وبختار المطلوب بينزله باسم copy data المفروض انه يمسح القديم ويضيف الجديد المحث بنفس الاسم علشان العلاقات والجداول حضرتك قولتلي ابلغك بعد التجربة علشان المكتبة بتاعتك تحياتي لمساعدتك الكريمة رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 27 مشاركة قام بنشر يناير 27 8 ساعات مضت, سامر محمود said: لها حل اخي الكريم ، ولكن اعذرني ليوم الغد إن شاء الله 😊 1 رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر يناير 27 الكاتب مشاركة قام بنشر يناير 27 17 دقائق مضت, Foksh said: لها حل اخي الكريم ، ولكن اعذرني ليوم الغد إن شاء الله 😊 اخي الكريم @Foksh ولا يهمك في انتظارك جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 16 مشاركة قام بنشر فبراير 16 (معدل) في 27/1/2024 at 23:06, سامر محمود said: اخي الكريم @Foksh ولا يهمك في انتظارك جزاك الله خيرا قد يكون ردي متأخراً ، واعتذر عن عدم المتابعة مني ومن صاحب الموضوع ، ولكن أعتقد افضل طريقة ولضمان عدم تلف العلاقات بين الجداول هو استيراد البيانات من الجدول المحدد وليس استيراد الجدول كاملا استناداً وتأييداً لكلامي أستاذنا @kanory . هذه نقطة ، والثانية هي مجرد فكرة خطرت ببالي من فكرة النسخ الإحتياطي للجداول واستعادة النسخة ، قد نستطيع فيما بعد بتوظيف الفكرة هذه لعمل استيراد للجداول حتى لو كانت مرتبطة بعلاقة 😅 هذه الجداول شكلها بنت عالم وناس 😂🤪 تم تعديل فبراير 16 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر فبراير 16 مشاركة قام بنشر فبراير 16 في 10/1/2024 at 23:02, kanory said: بهذا الشكل سوف تفقد العلاقات وعمليات الربط بينها والجداول الاخرى ؟؟؟؟؟ استخدم حذف البيانات وتصدير بيانات الجدول اليها افضل ..... ابحث في المنتدى تجد طرق كثيرة لذلك 1 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 16 مشاركة قام بنشر فبراير 16 31 دقائق مضت, kanory said: 🤗 1 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر فبراير 16 مشاركة قام بنشر فبراير 16 استاذ @سامر محمود من خلال قراءتي للمشاركة . المطلوب تحديث بيانات الجدول بدون ارالته حتى لا تتأثر العلاقات . فتم عمل ذلك من خلال المرفق وكمان تم برمجة باسوورد القاعدة الخلفية يعني البرنامج بيتعرف على القاعدة الخلفية دون كتابة الباسوورد . اليك المرفق .ووافني بالرد . DDTestSamer.rar 1 رابط هذا التعليق شارك More sharing options...
سامر محمود قام بنشر فبراير 17 الكاتب مشاركة قام بنشر فبراير 17 الان, kkhalifa1960 said: استاذ @سامر محمود من خلال قراءتي للمشاركة . المطلوب تحديث بيانات الجدول بدون ارالته حتى لا تتأثر العلاقات . فتم عمل ذلك من خلال المرفق وكمان تم برمجة باسوورد القاعدة الخلفية يعني البرنامج بيتعرف على القاعدة الخلفية دون كتابة الباسوورد . اليك المرفق .ووافني بالرد . DDTestSamer.rar 1.02 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads تحياتي وتقدرير للاخ الغالي القدير @kkhalifa1960 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان