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

طلب شرح كود


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

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

السلام عليكم 

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

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

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

dim rs as new recordset

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

table1.name = text1.text

table1.age = text2.tex 

وهكذا 

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

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

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

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

 

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

  • أفضل إجابة

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

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

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

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

 

مثال.accdb

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

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

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

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

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

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

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

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

 

اخي الكريم 

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

 

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

 

 

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

أستاذ

يوليوس قيصر

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

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

 

 

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

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