الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]تجميع الاسم الرباعي في حقل واحد

مغلق
بدأه طلال حامد في 2 يناير 2008 · 8 رد · 789 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني عملت وظيفة تقوم بتجميع الاسماء في حقل واحد

لكن واجهتني صعوبة ..

اريد عندما تكون الحقول فارغه يعطيني رساله بانها فارغه

تحياتي لكم

db1.rar

#2

تفضل اخي طلال

الملف بعد التعديل

db1_UP.rar

#3

جزاك الله خير اختي العزيزة زهرة

واثابكي الله خير الثواب

وياليت اذا اقدر استفسر عن بعض الامور اذا ممكن :

1. هل اقدر استخدم مثلا :

if me.textname = null then msgbox "الحقول فارغة "

2. لو لاحظتي اني استخدمت في الكوت عن حدث كليك دالة NZ مع الوظيفة fullname ..

السؤال هنا .. هل استطيع ان استخدم الدالة NZ بالوظيفة الاساسية مثل :

fullname = (Nz(str1) & " " & Nz(str2) & " " & Nz(str3) & " " & Nz(str4))

او مثل :

Function fullname(str1 As String, str2 As String, str3 As String, str4 As String) As String


str1 = Null
str2 = Null
str3 = Null
str4 = Null

fullname = (str1 & " " & str2 & " " & str3 & " " & str4)

End Function

انا ادري انهم خطأ :) بس يا ريت الافادة

تحياتي

#4

اختي العزيزة زهرة شكرا على المشاركة،، كنت انهي عمل التعديل على المثال المرفق،، وخرجت بصورة قد تكون بها تفاصيل اكبر،،

حيث هنا،، يعطي البرنامج رسالة بها اسماء الحقول الفارغة،، فان لم يكن هناك حقول فارغة يظهر رسالة بها الاسم...

ولكن يبدو انه يجب تنظيف الحقول كل مرة يضغط فيها زر الامر الخاص باظهار الاسم وذلك لاعطاء المتغير الذي استخدمته لعرضه قيمة جديدة،،وانا في طريقي لحلها..

تفضلو..اخي طلال كل عام وانتم بخير..

لقد حلت المشكلة،،، بالكود..

اسف جدا على الاطالة وشكرا للاخت زهرة ..

همام

db1.rar

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#5

مشكور اخي همام فعلا شي رائع بس في جزئية انا ما فهمتها ياليت اتوضحها لي :

If str <> "" Then
MsgBox ":###########" & vbCrLf & Replace(str, " ", "/")
str = ""

تحياتي لك يا بطل

تم تعديل هذه المشاركة بواسطة طلال حامد في 2 يناير 2008 في 21:58

#6

عزيزي طلال،، تحياتي..

طبعا الكود الذي وضعته في مشاركتك ليس واضحا بسس هذه الرموز التي لا تظهر عندي..

الكود هو:

If str <> "" Then
MsgBox ":الحقول الفارغة هي" & vbCrLf & Replace(str, " ", "/")
str = ""

وهنا،،، يسال الكود عن كون متغير str الذي استخدمته لتخزين اسماء الحقول الفارغة،، وقوم باستبدال الفراغات في هذا المتغير النص الى "/"، وهذا افضل لجعل اسماء الحقول واضحة..

بالنسبة للسطر الاخير... وضعته كما شرحت سابقا لكي يقوم باعادة تفريغ قيمة المتغير str وذلك لانه كان يبقى على القيمة السابقة مما لا يتيح عرض رسالة صحيحة حول فراغ الحقول من عدمه..

تمام..

همام

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#7

تحياتي لك يا اخي :) وشكرا جزيلا

#8

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#9

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…