مشكلة في أداة Combo box

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

لا أرى مشلكة في الكود سوى هذا الخطأ

Combo1.AddItem items!ItemName

يجب ان يكون

Combo1.AddItem myitems!ItemName

!!

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

أخي الكريم إستعمل كذلك الخاصية

cstring()

وذلك لتفادي نقل خاطئ للمعلومات من الجداول

موفق

الحاج نقبيل

برمجة عامة .

اخي العزيز Meynot

لقد كنت اجرب ايضا هذا الكود وكانت تخرج لي الرسالة

Set myitems = mydb.OpenRecordset("items", dbOpenTable)

في الموديول

فماذا على ان افعل

أخي العزيز elhadj

ارجو ان تفيدني عن هذة الخاصية

حيث لا اعلم الكثير

وبارك الله فيك

أخي الكريم .. ماهي رسالة الخطأ ؟؟؟

السلام عليكم

ارجو ان لا اكون قد اثقلت عليكم

هي ليست برسالة ولكنها اشرة خطا في التعاريف في الموديول وهي

Set myitems = mydb.OpenRecordset("items", dbOpenTable)

ما هي المشكلة التي قد تكون

أخي الكريم ..

ضع مثالا للكود .. حقيقة لم أفهم المقصود :(

اما بالنسبة للكود المذكور فهو صحيح من رأيي.. ولكن لا أستطيع الحكم عليه من مجرد سطر مكتوب.. لأن المتغيرات المذكوره قد تكون فيها أخطاء!!

المشكلة غير واضحة بالمرة ..

بالنسبة للكود الذي ذكرت أنك تضعه في الـ module

أين وضعته في الـ Module بالضبط ؟؟

طبعاً لا يمكن إضافته إلى الـ Module مباشرة وإنما يجب إضافته إلى إجراء فرعي أو ما شابه ..

ولماذا لا يتم إضافته إلى تحميل النموذج ؟؟

كما أنك لم تذكر إذا ما كنت كنت وضعت كوداً يوضح نوع المتغيرين mydb و myitems سابقاً أم لا !!

السلام عليكم

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

Public mydb As Database

Public mytb As Recordset

Public myitems As Recordset

Private Sub main()

Set mydb = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\hamada97.mdb")

Set mytb = mydb.OpenRecordset("Orders", dbOpenTable)

Set myitems = mydb.OpenRecordset("items", dbOpenTable)

FrmMain.Show

اما بالنسبة للكود داخل اللود للشاشة الرئيسية فهو كالتالي

Private Sub Form_Load()

SQL = "select ItemName from Items"

Set myitems = mydb.OpenRecordset(SQL, dbOpenDynaset)

For i = 1 To n

Combo1.AddItem myitems !ItemName

myitems .MoveNext

Next i

Call gridd

End Sub

السلام عليكم

هل هناك خطا ما في الكود السابق مما ادهى عدم الرد على المشكلة المطروحة

رجاء افادتي ولكم جزيل الشكر

Public mydb As Database
Public mytb As Recordset
Public myitems As Recordset


Private Sub main()
Set mydb = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\hamada97.mdb")
Set mytb = mydb.OpenRecordset("Orders", dbOpenTable)
							Set myitems = mydb.OpenRecordset("items", dbOpenTable) '//   مكرر
FrmMain.Show

اما بالنسبة للكود داخل اللود للشاشة الرئيسية فهو كالتالي
أختر أحداها فقط وأعتقد انه من المنطقي أن تختار الكود الأسفل وتمحي الكود المكتوب عليه مكرر
Private Sub Form_Load()
SQL = "select ItemName from Items"
Set myitems = mydb.OpenRecordset(SQL, dbOpenDynaset)	'// لماذا هذا التكرار؟؟؟؟؟؟؟
For i = 1 To n
Combo1.AddItem myitems !ItemName
myitems .MoveNext
Next i
Call gridd
End Sub

السلام عليكم

عندما قمت بحذف الجملة المكررة داخل الكود وقمت بتشغيل البرنامج

ظهرت لي رسالة الخظا التالية في الموديول وهي

لمااااذا

لا أرى أي رسالة خطأ

فضلاً اكتب محتوى الرسالة......

لا يمكن الكشف عن خطأ في الكود المذكور ...!

فضلاً ضع الكود او مثال واضحاً ...

شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)

السلام عليكم

لا اقصد برسالة الخطا سوى العلامة الصفراء في سطر كامل في الموديول والتي تؤدي الى توقف البرنامج عن العمل عند تشغيله

والسطر موجود بالمشاركة السابقة

ولك الشكر

السلام عليكم

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

رجاء افيدوني لان هناك عمل تخر متعلق بنجاح هذا الكود

ولكم الشكر

نحن نحاول المساعدة :D

ولكن لابد أن تكون هناك رسالة خطأ ..

على أي حال ضع مثالاً بسيطاً يحتوي على المشكلة لكي نتعرف عليها أولاً ثم نحاول حلها ..

وبالتوفيق ..

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

انا استخدم هذه الطريقة حاول تجربتها

اكواد تكتب في module

اولا يتم تعرف متغير للاتصال بقاعدة البيانات cn , ومتغير للتعامل مع السجلات rs

Global CN As New ADODB.Connection
Global rs As New ADODB.Recordset

مسار قاعدة البيانات

Public Sub Main()
With CN
.Provider = "MICROSOFT.JET.OLEDB.4.0"
.ConnectionString = App.Path & "\DATA.MDB"
.CursorLocation = adUseClient
.Open
End With
START.Show 1

فتح الاتصال بقاعدة البيانات

Public Sub rs_state(ByVal rs As ADODB.Recordset)
If rs.State = adStateOpen Then rs.Close
rs.Open s1, CN, 1, 3
End Sub

تعبئة الكمبو في الفورم لود

s1 = "select ItemName from Items"
Call rs_state(rs)
Do While Not rs.EOF
Combo2.AddItem rs!ItemName

rs.MoveNext
Loop

اتمنى ان تفي بالغرض

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

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

وانني اتقدم له بجزيل الشكر

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

Coplie error

User - defind type not defined

وعليه رجاء ما هذه واين هو الخطا مبتغاه

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

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

هذا والله اعلى واعلم واحكم ;)