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

[ابو نزار]

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

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

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

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

 

 = [a] & " " & [b]

 

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

[kkhalifa1960]

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

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

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

[ابو نزار]

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

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

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

Expand  

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

[kkhalifa1960]

تفضل أخي 

test1.accdbFetching info...

[متقاعد]

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

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

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

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]

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

[متقاعد]

  في 26‏/12‏/2022 at 16:09, kkhalifa1960 said:

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

Expand  

الملف مرفق

 

test1(1).accdbFetching info...

[kkhalifa1960]

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

[متقاعد]

  في 26‏/12‏/2022 at 16:51, kkhalifa1960 said:

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

Expand  

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

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

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

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

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

تحياتي

 

[متقاعد]

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

للطريقتين

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

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

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

 

test1(1)(1).accdbFetching info...

[kkhalifa1960]

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

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

test1(1)(2).rarFetching info...

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

[متقاعد]

  في 26‏/12‏/2022 at 19:06, kkhalifa1960 said:

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

Expand  

نعم ممكن

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

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

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