استفسار عن عرض أكثر من حقل من قاعدة البيانات باستخدام أداة النص

السلام عليكم اخي sp

جرب هذه الرموز ..

Command 1          to create
Text1= " "
Text2= " "
Text3= " "

Command2       to add new filde
Adodc1. recordset.addnew

Command 3           
DIM c as byte
c= inputbox ("enter course code bla bla bla")
Do until Adodc1.Recordset.EoF
if c= Adodc1.Recordset.Fields ("Ccode")
text1= adodc1.recordset. fields (0)
text2= adodc1.recordset.fields (1)
text3= adodc1.recordset.fields (2)
Exit Do
Else
adodc1.recorset.MoveNext
End if
loop

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

شكرًا لردك :)

ليس ذلك المقصود، سأوضح أكثر

لدي قاعدة بيانات بها التالي:

في النموذج أرغب بعرض 3 مصفوفات من قواعد البيانات كل مرة لتكون كالتالي:

مع العلم اني استخدمت في النموذج control array .. أجزم ان هذا المسمّى الصحيح، بالتالي:

text3(0) = "First input box"
text3(1) = "Second input box"
text3(2) = "Third input box"

هل وصلتك الفكرة ؟

توهتناا لما تكتب بالعربي :wacko:

لان الدراسه كانت بالانجليزي خخخخ

اهاا تمام :ohmy:

اعتقد وصلت الفكر :wink:

" تريد البيانات الي في ملف ACCESS بالظهور في الحقول " صح!

انتظر حتى نصل الا الحل :happy:

امم طيب اس بي

هو الـ codes الي انت كاتبنهم صحيحه بس تحتاج بعض التصحيح :P

Dim c As byte
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "SELECT * FROM ITEM"
c = 0
Do Until Adodc2.Recordset.EOF
 If c= Adodc2.Recordset.Fields ("ITEM")
 Text3(c).Text = Adodc2.Recordset.Fields("ICODE")
 Text4(c).Text = Adodc2.Recordset.Fields("IDESC")
 c = c + 1
 End If
 Adodc2.Recordset.MoveNext
Loop

هنا صلحت اشياء بسيطه .. جرب اذا شغال

لان للأسف البرنامج محذوف من الجهازي :unsure:

شكرًا لمحاولتك ..

الشرط:

If c= Adodc2.Recordset.Fields ("ITEM")

منطقيًا يستحيل تحققه لأن قيمة C محددة بـ0

بالتالي C ستضل صفرًا بما أنه أمر تغير قيمته داخل الشرط المستحيل تحققه :blush:

لكن لا ضير في التجربة، سأقوم بالتجربة وأعود لاحقًا إن شاء الله

---------------------

لا يعمل ..

أكرر شكري لك :)

اكتب سؤال الاسايمنت assignment بالضبط

للتتوضح الصوره :lol: