كيف يمكن دمج قيم حقليين رقميين في مربع نص غير منظم

[ابو نزار]

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

اساتذتي الكرام  ارجوا مساعدتكم الكريمة في كيفية  دمج قيم حقلين أو اكثر  لتظهر في مربع نص غير منظم ليتم ربطه لاحقا بأحد حقول الجدول   

مثلا لدي في النموذج مربعين نص قيمهم                  a  = 33             b=44                  اريد النتيجة تظهر في  مربع النص      d= 3344

استخدمت الكودالتالي في  مربع النص d في النموذج  ولم افلح

 

 = [a] & " " & [b]

 

تم تعديل ديسمبر 25, 2022 بواسطه ابو نزار

[kkhalifa1960]

تفضل أخي   بدون مسافة "" بينهم

 d=[a]& "" & [b]

تم تعديل ديسمبر 25, 2022 بواسطه kkhalifa1960

[ابو نزار]

في 25‏/12‏/2022 at 18:39, kkhalifa1960 said:

تفضل أخي   بدون مسافة "" بينهم

 d=[a]& "" & [b]

شكرا  لمرورك الكريم وشكرا لمساعدتك الكريم @kkhalifa1960   اسئل الله ان يجزيك عن خيراtest.accdb... هذا المرفق بعد التطبيق عليه .. 

[kkhalifa1960]

تفضل أخي 

test1.accdb

[متقاعد]

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

اذا كان عدد الحقول كبير

فيمكن عن طريق حلقة تمر على الحقول بدون الحاجة الى كتابة اسماء الحقول

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

تحياتي

 

[kkhalifa1960]

الاستاذ الفاضل مبرمج متقاعد ممكن الدعم  بمثال

[متقاعد]

25 دقائق مضت, kkhalifa1960 said:

ممكن الدعم  بمثال

الملف مرفق

 

test1(1).accdb

[kkhalifa1960]

شكرا لك هل ممكن لبعض الحقول وليس كلها 

[متقاعد]

6 دقائق مضت, kkhalifa1960 said:

شكرا لك هل ممكن لبعض الحقول وليس كلها 

نعم ممكن فقط في الحقل الذي ترغب في عدم احتسابة احذف النجمة في خصائص الحقل تبويب غير ذالك علامة احذف النجمة هذا استخدمنا التاج في تعريف الحقول

شاهد الصورة في ردي الاول

اما اذا استخدمنا نوع الحقل فعلينا استثناء الحقل

If ctl.Name <> "المعرف" Then

وهكذا ممكن اضافة حقول اخرى في الاستثناء

تحياتي

 

[متقاعد]

تعديل المرفق بعد استثناء الحقلين e و x

للطريقتين

في الطريقة الاولى

If ctl.Name <> "المعرف" And ctl.Name <> "x" And ctl.Name <> "e" Then

وفي طريقة التاج فقط ازلنا النجمة من خصائص الحقلين

 

test1(1)(1).accdb

[kkhalifa1960]

جزاك الله عنا كل الخير

ممكن بعدما أدخلنا حقل (yes/no)  والاختيار منهم

test1(1)(2).rar

تم تعديل ديسمبر 26, 2022 بواسطه kkhalifa1960

[متقاعد]

35 دقائق مضت, kkhalifa1960 said:

ممكن بعدما أدخلنا حقل (yes/no)  والاختيار منهم

نعم ممكن

ولكن سوف نكتب اكواد اضافية والهدف من الطريقة اختصار الامر

انظر في الفيديو المرفق استخدمت خصائص اللون للحقل

ربما هناك طريقة افضل ولكني تفكيري الان في النوم