مربعات النص

[ابو فتحى]

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

عندى 300 مربع نص غير منضم 

هل يوجد كود لجلب بيانات جدوال او استعلام فى مربعات النص غير المنضم برتيب ( كمان النموذج غير منضم )

و شكرا

[محمد أبوعبدالله]

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

تفضل اخي الكريم

    Dim db As Object
    Dim rst As DAO.Recordset
    Dim mySQL As String
    
    mySQL = "Select * From table_name"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
    If Not rst.BOF Then rst.MoveFirst
        
        While (Not rst.EOF)
         Me.TextBox1 = rst.Fields(0)
         Me.TextBox2 = rst.Fields(1)
         Me.TextBox3 = rst.Fields(2)
'         >>>>>>>>>>>>>>>>>>
'         >>>>>>>>>>>>>>>>>>
'         >>>>>>>>>>>>>>>>>>
        Wend
   
    rst.Close
    Set rst = Nothing

تحياتي

[ابو فتحى]

اخى العزيز 

اولا : شكرا على الرد والاهتمام 

الحل ده ممتاز بس امر صعبة مع  اكتر 300 مربع نص  

[محمد أبوعبدالله]

تفضل اخي الكريم

هذا الكود سيجلب لك 254 حقل من جدول table_name

مع  مراعاة ان يكون ان تكون اسماء مربعات النص الغير منضمة متالية الترقيم ( Textbox1 - Textbox2 >>>>> )

    Dim db As Object
    Dim rst As DAO.Recordset
    Dim mySQL As String
    Dim i As Integer
    
    mySQL = "Select * From table_name"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
    If Not rst.BOF Then rst.MoveFirst
        
     Dim ctl As Control
    For i = 1 To 254
        Me.Controls("Textbox" & i) = rst.Fields(i)
    Next i
   
    rst.Close
    Set rst = Nothing

تحياتي

[ابو فتحى]

اخى الكريم 

ممكن تغيير الرقم الى  اكتر من 300 ام لا

 

[محمد أبوعبدالله]

7 دقائق مضت, ابو فتحى said:

ممكن تغيير الرقم الى  اكتر من 300 ام لا

يمكن بالتأكيد

ولكن لا يوجد جدول او استعلام استيعاب اكثر من 255 حقل

تحياتي

 

[ابو فتحى]

اخى العزير 

البيانات من سجلات فى جدوال الى اكتر من 300 مربع نص 

مش حقل 

[محمد أبوعبدالله]

3 ساعات مضت, ابو فتحى said:

هل يوجد كود لجلب بيانات جدوال او استعلام فى مربعات النص

بالطريقة السابقة يمكن باذن الله

تحياتي

[ابو فتحى]

للاسف الطريقة ده فيها خطا 

هل من حل ؟

[ابو فتحى]

المشكلة هنا فى الكود جلب الحقول مش السجل التانى 

[jjafferr]

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

 

صار لكم 15 ساعة وما وصلتوا الى نتيجة ، بسبب قلة المعلومات 🙂

محتاجين مرفق.

 

جعفر

[Eng.Qassim]

استاذنا العزيز @محمد أبوعبدالله اعتقد ان الاخ صاحب المشاركة يتكلم عن سجلات وليس حقول !!!

[ابو فتحى]

اخى العزيز استاذ jjafferr و Eng.Qassim

اولا شكرا على الرد و الاهتمام 

ثانيا عندى اكتر من 300 مربع نض غير منضم فى نموذج غير منضم 

المطلوبة جلب 300 كود موظف من جدوال العاملين ( سجل كود الموظف ) 

الى كل مربع نص فى النموذج بترتيب مثلا اول موظف كود 1001 الى مربع نص 1

ثانيا موظف كود 1106 الى مربع نص 2

 

 

[ناقل]

2 ساعات مضت, jjafferr said:

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

 

صار لكم 15 ساعة وما وصلتوا الى نتيجة ، بسبب قلة المعلومات 🙂

محتاجين مرفق.

 

جعفر

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

[محمد أبوعبدالله]

منذ ساعه, ابو فتحى said:

اخى العزيز استاذ jjafferr و Eng.Qassim

اولا شكرا على الرد و الاهتمام 

ثانيا عندى اكتر من 300 مربع نض غير منضم فى نموذج غير منضم 

المطلوبة جلب 300 كود موظف من جدوال العاملين ( سجل كود الموظف ) 

الى كل مربع نص فى النموذج بترتيب مثلا اول موظف كود 1001 الى مربع نص 1

ثانيا موظف كود 1106 الى مربع نص 2

 

 

تفضل اخي الكريم

    Dim db As Object
    Dim rst As DAO.Recordset
    Dim mySQL As String
    Dim i As Integer
    
    mySQL = "Select * From table_name"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
    If Not rst.BOF Then rst.MoveFirst
        
     Dim ctl As Control
    For i = 1 To 300
        Me.Controls("Textbox" & i) = rst.Fields(i)
        rst.MoveNext
Next i
    
   
    rst.Close
    Set rst = Nothing

تحياتي

[ابو فتحى]

مرفق قاعدة بيانات للمطلوب 

db1.mdb

[محمد أبوعبدالله]

تفضل اخي الكريم

ملاحظة : تم تغيير اسماء مربعات النص

    Dim db As Object
    Dim rst As DAO.Recordset
    Dim mySQL As String
    Dim i As Integer
    
    mySQL = "Select * From qvode"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
    If Not rst.BOF Then rst.MoveFirst
     Dim ctl As Control
     
    For i = 1 To 30
        Me.Controls("Textbox" & i) = rst!CODE
Next i
        rst.MoveNext
    
   
    rst.Close
    Set rst = Nothing

db1.rar

تحياتي

[ناقل]

مشاركة مع استاذي الفاضل .....

 

db1.mdb

[ابو فتحى]

اخى العزير  محمد أبوعبدالله

الخطا فى تكرار السجل الاول فى كل المربعات فى 30 مربع مع العلم هم 10 سجلات فقط فى استعلام 

[ناقل]

جرب هذا اخي الكريم

5 دقائق مضت, ناقل said:

مشاركة مع استاذي الفاضل .....

 

db1.mdbFetching info...

 

[ابو فتحى]

الف شكرا استاذ ناقل على الحل

الف شكرا استاذ محمد ابو عبدالله على المجهود 

[محمد أبوعبدالله]

3 ساعات مضت, ابو فتحى said:

الخطا فى تكرار السجل الاول فى كل المربعات فى 30 مربع مع العلم هم 10 سجلات فقط فى استعلام 

معك حق كان يوجد سطر قبل سطر

    Dim db As Object
    Dim rst As DAO.Recordset
    Dim mySQL As String
    Dim i As Integer
    
    mySQL = "Select * From qvode"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
    If Not rst.BOF Then rst.MoveFirst
     Dim ctl As Control
     
    For i = 1 To 10
        Me.Controls("Textbox" & i) = rst!CODE
        rst.MoveNext
Next i

    rst.Close
    Set rst = Nothing

تحياتي