ابو فتحى قام بنشر نوفمبر 2, 2021 قام بنشر نوفمبر 2, 2021 السلام عليكم و رحمه الله و بركاته عندى 300 مربع نص غير منضم هل يوجد كود لجلب بيانات جدوال او استعلام فى مربعات النص غير المنضم برتيب ( كمان النموذج غير منضم ) و شكرا
محمد أبوعبدالله قام بنشر نوفمبر 3, 2021 قام بنشر نوفمبر 3, 2021 وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم 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 تحياتي
ابو فتحى قام بنشر نوفمبر 3, 2021 الكاتب قام بنشر نوفمبر 3, 2021 اخى العزيز اولا : شكرا على الرد والاهتمام الحل ده ممتاز بس امر صعبة مع اكتر 300 مربع نص
محمد أبوعبدالله قام بنشر نوفمبر 3, 2021 قام بنشر نوفمبر 3, 2021 تفضل اخي الكريم هذا الكود سيجلب لك 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 تحياتي
ابو فتحى قام بنشر نوفمبر 3, 2021 الكاتب قام بنشر نوفمبر 3, 2021 اخى الكريم ممكن تغيير الرقم الى اكتر من 300 ام لا
محمد أبوعبدالله قام بنشر نوفمبر 3, 2021 قام بنشر نوفمبر 3, 2021 7 دقائق مضت, ابو فتحى said: ممكن تغيير الرقم الى اكتر من 300 ام لا يمكن بالتأكيد ولكن لا يوجد جدول او استعلام استيعاب اكثر من 255 حقل تحياتي
ابو فتحى قام بنشر نوفمبر 3, 2021 الكاتب قام بنشر نوفمبر 3, 2021 اخى العزير البيانات من سجلات فى جدوال الى اكتر من 300 مربع نص مش حقل
محمد أبوعبدالله قام بنشر نوفمبر 3, 2021 قام بنشر نوفمبر 3, 2021 3 ساعات مضت, ابو فتحى said: هل يوجد كود لجلب بيانات جدوال او استعلام فى مربعات النص بالطريقة السابقة يمكن باذن الله تحياتي
ابو فتحى قام بنشر نوفمبر 3, 2021 الكاتب قام بنشر نوفمبر 3, 2021 المشكلة هنا فى الكود جلب الحقول مش السجل التانى
jjafferr قام بنشر نوفمبر 3, 2021 قام بنشر نوفمبر 3, 2021 السلام عليكم 🙂 صار لكم 15 ساعة وما وصلتوا الى نتيجة ، بسبب قلة المعلومات 🙂 محتاجين مرفق. جعفر
Eng.Qassim قام بنشر نوفمبر 3, 2021 قام بنشر نوفمبر 3, 2021 استاذنا العزيز @محمد أبوعبدالله اعتقد ان الاخ صاحب المشاركة يتكلم عن سجلات وليس حقول !!! 1
ابو فتحى قام بنشر نوفمبر 3, 2021 الكاتب قام بنشر نوفمبر 3, 2021 اخى العزيز استاذ jjafferr و Eng.Qassim اولا شكرا على الرد و الاهتمام ثانيا عندى اكتر من 300 مربع نض غير منضم فى نموذج غير منضم المطلوبة جلب 300 كود موظف من جدوال العاملين ( سجل كود الموظف ) الى كل مربع نص فى النموذج بترتيب مثلا اول موظف كود 1001 الى مربع نص 1 ثانيا موظف كود 1106 الى مربع نص 2
ناقل قام بنشر نوفمبر 3, 2021 قام بنشر نوفمبر 3, 2021 2 ساعات مضت, jjafferr said: السلام عليكم 🙂 صار لكم 15 ساعة وما وصلتوا الى نتيجة ، بسبب قلة المعلومات 🙂 محتاجين مرفق. جعفر طيب مدام ما تبغى ترفق مرفق او مثال عشان نعرف ايش الهرجة .... حندور في حلقة مفرغة تماما .... على كل حال اجعل النموذج نموذج مستمر بدلا من نموذج مفرد .....
محمد أبوعبدالله قام بنشر نوفمبر 3, 2021 قام بنشر نوفمبر 3, 2021 منذ ساعه, ابو فتحى 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 تحياتي 1
محمد أبوعبدالله قام بنشر نوفمبر 3, 2021 قام بنشر نوفمبر 3, 2021 تفضل اخي الكريم ملاحظة : تم تغيير اسماء مربعات النص 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, 2021 الكاتب قام بنشر نوفمبر 3, 2021 اخى العزير محمد أبوعبدالله الخطا فى تكرار السجل الاول فى كل المربعات فى 30 مربع مع العلم هم 10 سجلات فقط فى استعلام
ناقل قام بنشر نوفمبر 3, 2021 قام بنشر نوفمبر 3, 2021 جرب هذا اخي الكريم 5 دقائق مضت, ناقل said: مشاركة مع استاذي الفاضل ..... db1.mdbFetching info...
ابو فتحى قام بنشر نوفمبر 3, 2021 الكاتب قام بنشر نوفمبر 3, 2021 الف شكرا استاذ ناقل على الحل الف شكرا استاذ محمد ابو عبدالله على المجهود
محمد أبوعبدالله قام بنشر نوفمبر 3, 2021 قام بنشر نوفمبر 3, 2021 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.