السلام عليكم
عندي جدول table1
فيه عدة حقول t1 , t2 , t3
اريد اسند جملة كالتالي
في حال وجود t3 اجعل " العنوان" = MSFlexGrid1.TextMatrix(0, 3)
وفي حال عدم وجوده " " = MSFlexGrid1.TextMatrix(0, 3)
أهلا بك أخي الكريم , إذا كانت قاعدة البيانات أكسس وتريد من خلال جملة الإستعلام فحص ما إذا كان حقل موجود في الجدول أم لا فعلى حد علمي أعتقد لايمكن ذلك لكن تستطيع بالكود أن تفحص وجود الحقل من عدمه وعلى النتيجة تنشئ جملة الإستعلام التي تناسب وجود الحقل أو عدمه , مثلا تعمل دالة تفحص وجود الحقل في الجدول وترجع لك قيمة True إن كان موجود و False إن لم يكن موجود , مثال :
PHP كود :
Dim SQL As String
If CheckField("t3") = True Then SQL = "Select t1,t2,t3 From table1" MSFlexGrid1.TextMatrix(0, 3) = "العنوان" Else SQL = "Select t1,t2,'' From table1" MSFlexGrid1.TextMatrix(0, 3) = "" End If
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
(08-12-19, 02:24 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , إذا كانت قاعدة البيانات أكسس وتريد من خلال جملة الإستعلام فحص ما إذا كان حقل موجود في الجدول أم لا فعلى حد علمي أعتقد لايمكن ذلك لكن تستطيع بالكود أن تفحص وجود الحقل من عدمه وعلى النتيجة تنشئ جملة الإستعلام التي تناسب وجود الحقل أو عدمه , مثلا تعمل دالة تفحص وجود الحقل في الجدول وترجع لك قيمة True إن كان موجود و False إن لم يكن موجود , مثال :
PHP كود :
Dim SQL As String
If CheckField("t3") = True Then SQL = "Select t1,t2,t3 From table1" MSFlexGrid1.TextMatrix(0, 3) = "العنوان" Else SQL = "Select t1,t2,'' From table1" MSFlexGrid1.TextMatrix(0, 3) = "" End If
السلام عليكم
لم اوفق في تطبيق الدالة التي تكرمت وتفضلت بها ولهذا ارفقت تطبيقا اذا سمح لك الوقت
كرمك علينا كثيرا
جزاك الله خيرا
السلام عليكم اخي احمد
اريد اسند هذه الدالة الى تكست بوكس للكشف عن اسم الحقل الثالث
Text1.Text = Data2.Recordset.Fields(3).Name
لكن المشكلة انه في حال عدم وجود الحقل ( محذوف من الجدول ) فانه يعطي رساله خطا
المطلوب :
اذا كان موجود يعرض الاسم في التكست ولكن في حال عدم وجوده يكون
Text1.Text = ""
شكرا لك اخي احمد على اهتمامك ورعايتك الكريمة ومتابعتك لنا جميعا
انا استخدمت سابقا عدة جمل يمكن ان يستخرج منها اسم الحقل ولكن المشكلة تكمن في ان الحقل يفترض موجود بالفعل حتى يمكن اسناد الجملة له
وما اريده هو
استخراج الاسم في حال الحقل موجود او لم يكن موجودا بحيث يصفر التكست بلا اي رسالة خطا
ففي هذا المثال
Text1.Text = Data2.Recordset.Fields(3).Name
لو كان الحقل 3 محذوفا لا يمكن تشغيل هذه الجملة وتعطي رسالة خطا
تحياتي لك
Data2.DatabaseName = App.Path & "\sari.mdb" Data2.RecordSource = "Select Top 1 * From table1" Data2.Refresh
If Data2.Recordset.Fields.Count - 1 >= 3 Then Text1.Text = Data2.Recordset.Fields(3).Name Else Text1.Text = "" End If
في هذا الجزء من الكود :
PHP كود :
Data2.DatabaseName = App.Path & "\sari.mdb" Data2.RecordSource = "Select Top 1 * From table1" Data2.Refresh
نقوم بفتح الجدول بجميع الحقول الموجودة فيه , وفي هذا الجزء من الكود :
PHP كود :
If Data2.Recordset.Fields.Count - 1 >= 3 Then Text1.Text = Data2.Recordset.Fields(3).Name Else Text1.Text = "" End If
نقوم بفحص ما إذا كان عدد الحقول أكبر من أو يساوي رقم الحقل الذي تريد معرفة إسمه فإذا كان عدد الحقول أكبر أو يساويه فمعناته أن الحقل بهذا الرقم موجود في الجدول أما إذا كان عدد الحقول الموجودة في الجدول أصغر فمعناته أن الحقل بهذا الرقم غير موجود ولايمكن جلب إسمه , بالتوفيق .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
احسنت اخي واستاذي الطيب احمد منصور
اجدد الشكر والتقدير لك واسال الله تعالى ان يوفقك ويقضي حوائجك للدنياوالاخرة وييسر امورك كلها ويرحم والديك في الدنيا والاخرة
تحياتي لك
انا عملت سابقا فكرة مشابهة لما تفضلت به ولكن ماتجود به انت من الكرم هو اجود وافضل ماعندنا طريقتك في الوصول الى المطلوب احترافي ودقيق
الله يوفقك