هل هناك طريقة لجعل rs يعمل في برنامج مقسمة بين جداول ونماذج

[rey360]

السلام عليكم أعضاء المنتدي الكرام أريد أن أستفسر عن طريقة ربط قاعدة بينات مقسمة بحيث أن ركورد ست لايعمل بها عند تقسيمها عندما نريد اضافة زابون مثلا وشكر

 

 

test.rar

تم تعديل مايو 26, 2020 بواسطه rey360

[kanory]

جرب هذا الكود مع تعديل مسار وجود قاعدة الجداول

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

 

[kanory]

وهذا تعديل مع الكود تبعك .... اختر ما شئت ... ومع العايدين

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

 

[Barna]

ما شاء الله اخي Kanory وكل عام وانت بخير

[أبوبسمله]

احسنت اخى واستاذى @kanory جزاك الله خيرا 💐

اسمح لى بالاستفسار عن الفرق بين وضع مسار القاعده كامل

وعن حذف dbOpenTable من الكود

Set rs = db.OpenRecordset("Clients", dbOpenTable)

واعذرنى فلغتى الانجليزيه ضعيفه وابحث عن المعلومه بشق الانفس مع الترجمه

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

[Barna]

اسمح لي استاذي @kanory

اجاوب ... 

54 دقائق مضت, أحمد الفلاحجى said:

💐

اسمح لى بالاستفسار عن الفرق بين وضع مسار القاعده كامل

اخي الحبيب @احمد الفلاحجي

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

 

54 دقائق مضت, أحمد الفلاحجى said:

💐

 

Set rs = db.OpenRecordset("Clients", dbOpenTable)

 

اما في الحالة الثانية كان اخي السائل @rey360 كاتب الكود على اساس الاتصال بالقاعدة الحالية فلذلك لم يكن يحتاج لمسار القاعدة الخارجية ... ولكنه عرف المطلوب انه جدول وليس جدول مرتبط فلذلك الكود كان يدور ويبحث عن اسم الجدول Clients ولا يجد ... فقام اخي kanory بحذف عبارة dbOpenTable

ارجو اني اوصلت الفكرة

54 دقائق مضت, أحمد الفلاحجى said:

 

واعذرنى فلغتى الانجليزيه ضعيفه وابحث عن المعلومه بشق الانفس 

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

تم تعديل مايو 27, 2020 بواسطه Barna

[أبوبسمله]

جزاكم الله خيرا اخوانى واساتذتى محمد البرناوى @Barna و @kanory 💐

2 دقائق مضت, Barna said:

اما في الحالة الثانية كان اخي السائل @rey360 كاتب الكود على اساس الاتصال بالقاعدة الحالية فلذلك لم يكن يحتاج لمسار القاعدة الخارجية ... ولكنه عرف المطلوب انه جدول وليس جدول مرتبط فلذلك الكود كان يدور ويبحث عن اسم الجدول Clients ولا يجد ... فقام اخي kanory بحذف عبارة dbOpenTable

ارجو اني اوصلت الفكرة

نعم اخى محمد بارك الله فيك وصلت احسنتم احسن الله اليكم اخوانى واساتذتى 💐

5 دقائق مضت, Barna said:

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

💐😀 بترفع من روحى المعنويه حبيبى بارك الله فيكم بالرغم انى احب ان اتعلم الا اننى اكره اللغه الانجليزيه بشكل مش طبيعى وبرغم حاجاتى لها فهى لا تدير لى وجهها فضربتها على قفاها وطنشتها هههههههههههههههههههه بحاول على قد ما اقدر استعمل المترجم

انا لم ادرس برمجه وليست تخصصى وانما هوايه واتعلم منكم اخوانى واساتذتى جزاكم الله كل خير 💐

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

جزاكم الله خيرا وبارك الله فيكم وبارك لكم فيما تحبون وجعله الله فى موازين حسناتكم

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

[rey360]

شكرا لك أستاذ kanory على الحل