الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال هام فى الموديول

مغلق
بدأه klkl2003 في 16 مارس 2005 · 8 رد · 609 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

عندى تعريف للداتا والتابل واريد ان اضعهم فى موديول لكى لا اقوم بكتابتهم فى كل حدث مرة اخرى يعنى يبقى التعرف شامل على جميع صفحات البرنامج ويكتب مرة واحدة واليكم التعريف واريد شكله الصحيح لكى اضعه فى موديول

Dim db As Database

Dim Tb2 As Recordset

Dim Tb1 As Recordset

Set db = Workspaces(0).OpenDatabase(App.Path & "\db.mdb")

Set Tb2 = db.OpenRecordset("tb2", dbOpenDynaset)

Set Tb1 = db.OpenRecordset("tb1", dbOpenDynaset)

ارجو ان تفيدونى سريعا حيث اننى واقف عند تلك الخطوة

شكرا لكم

#2

السلام عليكم ورحمة الله وبركاتة

Public db As Database

Public Tb2 As Recordset

Public Tb1 As Recordset

{يَا أَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمْ إِنَّ زَلْزَلَةَ السَّاعَةِ شَيْءٌ عَظِيمٌ }الحج1

#3

السلام عليكم

الشكر لك ايها الغالي " shearer "

المتغيرات من نوع public يمكن الوصول اليها من اي جزء من المشروع

ولكن dim لاتمكن الوصول الي المتغيرات الا في المديول الذي عرفت فيه .

تم تعديل هذه المشاركة بواسطة إبراهيم الطيب في 16 مارس 2005 في 18:16

gaza3-3.jpg
#4

السلام عليكم ورحمة الله وبركاته

الشكر لكم على الرد ولكن اذا تم قبول جملة

Public db as database

Public tb1 as record set

فانه لا يقبل كتابة جملة

Set نهائيا فى الموديول ارجو كتابة الجملة كاملة داخل الموديول

شكرا

#5

السلام عليكم

العزيز "klkl2003" مارأيك لو كتبت جمل الاسناد في حث التحميل للنمازج ؟

gaza3-3.jpg
#6

السلام عليكم ورحمة الله وبركاته

الاخ إبراهيم الطيب

مشكور ولكن انا اسف مش فاهم انت تقصد ايه

#7

اوكي يا عم

انا اقصد انك تعرف المتغيرات الي بدك في المديول . و هاد مشت منيح متل ما قلت . و الحمد لله

اي تكتب الكود الاتي في المديول

Public db As Database
Public Tb2 As Recordset
Public Tb1 As Recordset

Private Sub main()
Set db = Workspaces(0).OpenDatabase(App.Path & "\db.mdb")
Form1.Show
End Sub

"Form1" هو النموزج الذي يفترض ان يبدأ به المشروع

و بعدين في حدث التحميل للنموزج تكتب الكود الذي تسند به الجدول للمتغير تبعك :

Set Tb1 = db.OpenRecordset("tb1", dbOpenDynaset)

اتمني ان اكون قد وفقت هذه المرة . :)

gaza3-3.jpg
#8

السلام عليكم ورحمة الله وبركاته

الله يجزيك عنى خيرااااا الان فهمت ما تقصد وهو فعلا الافضل

متشكر جدااااااااااااااا يا هيمة

#9

العفو :)

gaza3-3.jpg

هذا الموضوع مغلق.

مواضيع مشابهة