اذهب الي المحتوي
أوفيسنا

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


rey360
إذهب إلى أفضل إجابة Solved by kanory,

الردود الموصى بها

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

 

 

test.rar

تم تعديل بواسطه rey360
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

 

  • Like 3
  • Thanks 3
رابط هذا التعليق
شارك

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

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

 

  • Like 3
  • Thanks 3
رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

اجاوب ... 

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

💐

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

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

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

 

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

💐

 


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

 

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

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

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

 

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

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

تم تعديل بواسطه Barna
  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

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

  • Haha 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information