طلب شرح كود

[يوليوس قيصر]

السلام عليكم 

اذا ممكن من الاخوه المبرمجين تنويري بكود  

انا مبرمج فيجوال بيسك ولاكن عند كتابه كودات الفيجوال بالاكسس تضهر كلها اخطاء مثل

عندما اريد حفظ مجمعه بيانات موجود في مربعات نصور بفورم معين استخدم 

dim rs as new recordset

rs.open"select* from tabel1 الى اخره 

table1.name = text1.text

table1.age = text2.tex 

وهكذا 

المشكله بالاكسس لايقبل هذه الكودات 

المطلوب كود حفظ لمربعات نصوص غير مصنفه 

اريد كود مثل الي شرحته وليس كود جاهز من كودات الاكسس 

ولكم الشكر الوافر

 

[kha9009lid]

وعليكم السلام

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

اذا كان فهمي صحيح جرب المثال المرفق لحفظ وتعديل وحذف والبحث عن طريق نموذج غير مرتبط

للتعديل والحذف ابحث اولا عن طريق رقم الملف .

 

مثال.accdb

[أبوبسمله]

تسلم ايدك اخى واستاذى العزيز خالد @kha9009lid وجزاك الله خيرا

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

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

جزاكم الله خيرا اساتذتى

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

[ابو فتحى]

ممكن نسخة 2003

[د.كاف يار]

بعد اذن اخواني لكي تتعدد الخيارات

 

اخي الكريم 

لكي يسهل عليك الامر استخدم الكود التالي

 

Dim dbsNorthwind As DAO.Database
Dim rstShippers As DAO.Recordset
 
   Set dbsNorthwind = CurrentDb
   Set rstShippers = dbsNorthwind.OpenRecordset("Table_Name")
 With rstShippers
   .AddNew
   !User_Name = [text1]
   !Password = [text2]
   .Update
 End With

 

 

[الحلبي]

الله يفتح عليك معلمنا الجليل / @kha9009lid

[أحمد يوسف]

أستاذ

يوليوس قيصر

لماذل لا تقوم بالضغط على الإعجاب ؟!!! 💙

وأعتقد ان هذا اقل ما يقدم لصاحب الفضل عليك بعد ربنا فى حل مشكلتك