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

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

قام بنشر

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

عندى 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

تحياتي

قام بنشر

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

هذا الكود سيجلب لك 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

تحياتي

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

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

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

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

تحياتي

 

قام بنشر

اخى العزيز استاذ 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

تحياتي

  • Like 1
قام بنشر

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

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

    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

تحياتي

قام بنشر
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

تحياتي

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