rey360 قام بنشر مايو 26, 2020 مشاركة قام بنشر مايو 26, 2020 (معدل) السلام عليكم أعضاء المنتدي الكرام أريد أن أستفسر عن طريقة ربط قاعدة بينات مقسمة بحيث أن ركورد ست لايعمل بها عند تقسيمها عندما نريد اضافة زابون مثلا وشكر test.rar تم تعديل مايو 26, 2020 بواسطه rey360 رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر مايو 26, 2020 أفضل إجابة مشاركة قام بنشر مايو 26, 2020 جرب هذا الكود مع تعديل مسار وجود قاعدة الجداول Dim dbCurrent As DAO.Database Dim recCategories As Recordset Set dbCurrent = OpenDatabase("C:\Users\ACER\Desktop" & "\Nouveau Microsoft Access Base de données.accdb", False) Set recCategories = dbCurrent.OpenRecordset("select * from Clients") With recCategories .AddNew !nomComplet = Me.txtnomclien '!Time = Time .Update End With recCategories.Close dbCurrent.Close Set dbCurrent = Nothing 3 3 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر مايو 26, 2020 مشاركة قام بنشر مايو 26, 2020 وهذا تعديل مع الكود تبعك .... اختر ما شئت ... ومع العايدين Dim db As DAO.Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Clients") If Me.txtnomclien <> "" Then If rrr(Me.txtnomclien) = False Then rs.AddNew rs!nomComplet = Me.txtnomclien rs!Societé = Me.txtsociete rs!Adresse = Me.txtadresse rs("Tel") = Me.txttel rs!Email = Me.txtemail rs!Ville = Me.txtville rs.Update rs.Close Set rs = Nothing DoCmd.Close acForm, Me.Name 'DoCmd.Requery Else MsgBox "ce client existe deja", vbInformation Me.txtnomclien.SetFocus End If Else MsgBox "remplir le champ nom de client", vbCritical End If 3 3 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر مايو 26, 2020 مشاركة قام بنشر مايو 26, 2020 ما شاء الله اخي Kanory وكل عام وانت بخير 3 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر مايو 27, 2020 مشاركة قام بنشر مايو 27, 2020 احسنت اخى واستاذى @kanory جزاك الله خيرا 💐 اسمح لى بالاستفسار عن الفرق بين وضع مسار القاعده كامل وعن حذف dbOpenTable من الكود Set rs = db.OpenRecordset("Clients", dbOpenTable) واعذرنى فلغتى الانجليزيه ضعيفه وابحث عن المعلومه بشق الانفس مع الترجمه بارك الله فيكم اخوانى واساتذتى وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
Barna قام بنشر مايو 27, 2020 مشاركة قام بنشر مايو 27, 2020 (معدل) اسمح لي استاذي @kanory اجاوب ... 54 دقائق مضت, أحمد الفلاحجى said: 💐 اسمح لى بالاستفسار عن الفرق بين وضع مسار القاعده كامل اخي الحبيب @احمد الفلاحجي في الكود الاول تم الاتصال بالقاعدة الخارجية مباشرة دون النظر الى الجداول المرتبطة ... فلذلك احتجنا كتابة مسار القاعدة المطلوبة 54 دقائق مضت, أحمد الفلاحجى said: 💐 Set rs = db.OpenRecordset("Clients", dbOpenTable) اما في الحالة الثانية كان اخي السائل @rey360 كاتب الكود على اساس الاتصال بالقاعدة الحالية فلذلك لم يكن يحتاج لمسار القاعدة الخارجية ... ولكنه عرف المطلوب انه جدول وليس جدول مرتبط فلذلك الكود كان يدور ويبحث عن اسم الجدول Clients ولا يجد ... فقام اخي kanory بحذف عبارة dbOpenTable ارجو اني اوصلت الفكرة 54 دقائق مضت, أحمد الفلاحجى said: واعذرنى فلغتى الانجليزيه ضعيفه وابحث عن المعلومه بشق الانفس انا اضعف منك في اللغة ولم ادرس البرمجة وتحصصي بعيد جدا عن الحاسب ومجالاته .... والحمد لله رب العالمين بفضل الله ثم امثالكم من اساتذة المنتدى تعلمنا بالاضافة لشيئ مهم وهي عملية التطبيق .... بارك الله فيك .... واكرر معذرتي لاخي @kanory تم تعديل مايو 27, 2020 بواسطه Barna 2 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر مايو 27, 2020 مشاركة قام بنشر مايو 27, 2020 جزاكم الله خيرا اخوانى واساتذتى محمد البرناوى @Barna و @kanory 💐 2 دقائق مضت, Barna said: اما في الحالة الثانية كان اخي السائل @rey360 كاتب الكود على اساس الاتصال بالقاعدة الحالية فلذلك لم يكن يحتاج لمسار القاعدة الخارجية ... ولكنه عرف المطلوب انه جدول وليس جدول مرتبط فلذلك الكود كان يدور ويبحث عن اسم الجدول Clients ولا يجد ... فقام اخي kanory بحذف عبارة dbOpenTable ارجو اني اوصلت الفكرة نعم اخى محمد بارك الله فيك وصلت احسنتم احسن الله اليكم اخوانى واساتذتى 💐 5 دقائق مضت, Barna said: انا اضعف منك في اللغة ولم ادرس البرمجة وتحصصي بعيد جدا عن الحاسب ومجالاته .... والحمد لله رب العالمين بفضل الله وامثالكم من اساتذة المنتدى تعلمنا بالاضافة لشيئ مهم وهي عملية التطبيق .... بارك الله فيك .... واكرر معذرتي لاخي @kanory 💐😀 بترفع من روحى المعنويه حبيبى بارك الله فيكم بالرغم انى احب ان اتعلم الا اننى اكره اللغه الانجليزيه بشكل مش طبيعى وبرغم حاجاتى لها فهى لا تدير لى وجهها فضربتها على قفاها وطنشتها هههههههههههههههههههه بحاول على قد ما اقدر استعمل المترجم انا لم ادرس برمجه وليست تخصصى وانما هوايه واتعلم منكم اخوانى واساتذتى جزاكم الله كل خير 💐 نعم معك حق فى عمليه التطبيق فهو يزيد من عمليه الفهم والاستيعاب والحمدلله رب العالمين كل يوم الواحد بيتعلم جديد بفضل الله سبحانه وتعالى ثم بفضلكم اخوانى واساتذتى ثم بفضل اخواننا السائلين لان باسئلتهم اتعلم الكثير لان اسئلتهم لم تمر على فيما اعمل واستفيد كثيرا الحمدلله جزاكم الله خيرا وبارك الله فيكم وبارك لكم فيما تحبون وجعله الله فى موازين حسناتكم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
rey360 قام بنشر مايو 27, 2020 الكاتب مشاركة قام بنشر مايو 27, 2020 شكرا لك أستاذ kanory على الحل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.