ابو نزار قام بنشر ديسمبر 25, 2022 مشاركة قام بنشر ديسمبر 25, 2022 (معدل) السلام عليكم ورحمة الله تعالى وبركاته اساتذتي الكرام ارجوا مساعدتكم الكريمة في كيفية دمج قيم حقلين أو اكثر لتظهر في مربع نص غير منظم ليتم ربطه لاحقا بأحد حقول الجدول مثلا لدي في النموذج مربعين نص قيمهم a = 33 b=44 اريد النتيجة تظهر في مربع النص d= 3344 استخدمت الكودالتالي في مربع النص d في النموذج ولم افلح = [a] & " " & [b] تم تعديل ديسمبر 25, 2022 بواسطه ابو نزار رابط هذا التعليق شارك More sharing options...
أفضل إجابة kkhalifa1960 قام بنشر ديسمبر 25, 2022 أفضل إجابة مشاركة قام بنشر ديسمبر 25, 2022 (معدل) تفضل أخي بدون مسافة "" بينهم d=[a]& "" & [b] تم تعديل ديسمبر 25, 2022 بواسطه kkhalifa1960 1 رابط هذا التعليق شارك More sharing options...
ابو نزار قام بنشر ديسمبر 25, 2022 الكاتب مشاركة قام بنشر ديسمبر 25, 2022 في 25/12/2022 at 18:39, kkhalifa1960 said: تفضل أخي بدون مسافة "" بينهم d=[a]& "" & [b] شكرا لمرورك الكريم وشكرا لمساعدتك الكريم @kkhalifa1960 اسئل الله ان يجزيك عن خيراtest.accdb... هذا المرفق بعد التطبيق عليه .. رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر ديسمبر 25, 2022 مشاركة قام بنشر ديسمبر 25, 2022 تفضل أخي test1.accdb 1 رابط هذا التعليق شارك More sharing options...
متقاعد قام بنشر ديسمبر 26, 2022 مشاركة قام بنشر ديسمبر 26, 2022 مشاركة مع الاستاذ خليفة اذا كان عدد الحقول كبير فيمكن عن طريق حلقة تمر على الحقول بدون الحاجة الى كتابة اسماء الحقول Dim ctl As Control Dim k As String kk = "" For Each ctl In Me.Controls If ctl.ControlType = 109 Then If ctl.Name <> "المعرف" Then k = k & "" & ctl End If End If Next ctl kk = k واذا اردنا عدم تحديد نوع الحقول وعدم كتابة اسماء الحقول التي سوف نستثنيها فيمكن باستخدام Tag Dim ctl As Control Dim k As Variant kk = "" For Each ctl In Me.Controls If ctl.Tag = "*" Then k = k & "" & ctl End If Next ctl kk = k تحياتي 2 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر ديسمبر 26, 2022 مشاركة قام بنشر ديسمبر 26, 2022 الاستاذ الفاضل مبرمج متقاعد ممكن الدعم بمثال رابط هذا التعليق شارك More sharing options...
متقاعد قام بنشر ديسمبر 26, 2022 مشاركة قام بنشر ديسمبر 26, 2022 25 دقائق مضت, kkhalifa1960 said: ممكن الدعم بمثال الملف مرفق test1(1).accdb رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر ديسمبر 26, 2022 مشاركة قام بنشر ديسمبر 26, 2022 شكرا لك هل ممكن لبعض الحقول وليس كلها رابط هذا التعليق شارك More sharing options...
متقاعد قام بنشر ديسمبر 26, 2022 مشاركة قام بنشر ديسمبر 26, 2022 6 دقائق مضت, kkhalifa1960 said: شكرا لك هل ممكن لبعض الحقول وليس كلها نعم ممكن فقط في الحقل الذي ترغب في عدم احتسابة احذف النجمة في خصائص الحقل تبويب غير ذالك علامة احذف النجمة هذا استخدمنا التاج في تعريف الحقول شاهد الصورة في ردي الاول اما اذا استخدمنا نوع الحقل فعلينا استثناء الحقل If ctl.Name <> "المعرف" Then وهكذا ممكن اضافة حقول اخرى في الاستثناء تحياتي 1 رابط هذا التعليق شارك More sharing options...
متقاعد قام بنشر ديسمبر 26, 2022 مشاركة قام بنشر ديسمبر 26, 2022 تعديل المرفق بعد استثناء الحقلين e و x للطريقتين في الطريقة الاولى If ctl.Name <> "المعرف" And ctl.Name <> "x" And ctl.Name <> "e" Then وفي طريقة التاج فقط ازلنا النجمة من خصائص الحقلين test1(1)(1).accdb 1 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر ديسمبر 26, 2022 مشاركة قام بنشر ديسمبر 26, 2022 (معدل) جزاك الله عنا كل الخير ممكن بعدما أدخلنا حقل (yes/no) والاختيار منهم test1(1)(2).rar تم تعديل ديسمبر 26, 2022 بواسطه kkhalifa1960 رابط هذا التعليق شارك More sharing options...
متقاعد قام بنشر ديسمبر 26, 2022 مشاركة قام بنشر ديسمبر 26, 2022 35 دقائق مضت, kkhalifa1960 said: ممكن بعدما أدخلنا حقل (yes/no) والاختيار منهم نعم ممكن ولكن سوف نكتب اكواد اضافية والهدف من الطريقة اختصار الامر انظر في الفيديو المرفق استخدمت خصائص اللون للحقل ربما هناك طريقة افضل ولكني تفكيري الان في النوم 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.