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

لماذا يحدث الخطأ عند التنفيذ في vbs

مغلق
بدأه yasin12 في 27 أكتوبر 2006 · 6 رد · 903 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني صمت نموذج المنتجات حيث يمكنك احتيار المجموعة عن طريق فتح نموذج بحث يعرض لك اقرب النتائج

المتوفرة من اسماء المجموعة وذلك تبعأ للأدخال سوء عن طريق ادخال جزء من كود المجموعة او اسم المجموعة

ومن ثم اختيار الاسم المراد من نموذج البحث

والذي اريده هو اذاء كان عدد السجلات المعادة من الاستعلام المنفذ =1 لايظهر نموذج البحث ويضيف اسم المجموعة مباشرة من هذا السجل انا قمتت بوضع الكود التالي:

Private Sub Group_AfterUpdate()

Dim dbsCurrent As Database, rstrstServ2 As Recordset

Set dbsCurrent = CurrentDb()

Set rstrstServ2 = dbsCurrent.OpenRecordset("SELECT Group1.namGroup FROM Group1 WHERE (((Group1.codegroup) = Like " & Me.group & ")) ORDER BY Group1.codegroup;")

'If rstrstServ2.RecordCount = 1 Then

Me.group = rstrstServ2!namGroup

rstrstServ2.Close

Exit Sub

End If

DoCmd.OpenForm "Search", acNormal, , , acNormal, acDialog, Me.group & ""

End Sub

لكن عندما ادخل قيمة عددية مافي مشكلة لكن اذا كانت حروف لا يعمل الاستعلام في فيجول بيسك

فهل من حل مشكورين سلف

new.rar

#2

أخي ياسين

هذا المثال بعد التعديل عليه جرب وإذا كان غير ما تريد أخبرني بذلك

new.rar

#3

الاخ مصلح الحريصي مشكور جهودك بالدرجة الاولى لكن ليس طلبي. لاني ماريد هو

اول حالة اذا ادخلت كود اي مجموعة او اسمها يظهر المجموعة الموافقة فوراً دون فتح نموذج البحث مثال: ادخل 12(او اسيا )يظهر( اسيا) مباشرة

اذا ادخلت جزء من كود او جزء من اسم المجموعة يظهر نموذج البحث ومنه اختار مااريد مثال :ادخل3 يظهر نموذج البحث بالنتائج التالية( بركات و الفا)

ادخل حرف ف يظهر( الفا- يونيفارما) ويختار احدهما لكن اذا ادخل( يف)او( 11) ستكون النتيجة في نموذج البحث هي سجل وحيد وهو( يونيفارما)فالمراد اظهار هذه النتيجة مباشرة على النموذج الرئيسي دون الحاجة لنموذج البحث وبشكل اخر ماريد: بعد تحديث مربع النص بالادخال حروف او ارقام تقوم الشيفرة بحتساب عدد السجلات في الاستعلام (استعلام 2)الموجدود في قاعدتي فاذا كان عدد السجلات1يظهر نتيجة الاستعلام دون الحاجة الى استدعاء نموذج البحث وعرض النتيجة فيه واذا كان عدد السجلات =0اي لايوجد اي سجل تقوم الشفرة بفتح نموذج اخر وهو نموذج (بطاقة مجموعة)على وضع اضافة وبختصار ماريد هو تنفيذ الاستعلام (استعلام 2) في كود الشيفرة مع مراعاة ان الادخال حروف او ارقام يعني الاشكال بس بتنفيذ هذا الاستعلام في فيجول بيسك واحتساب عدد سجلاته:

FROM Group1

GROUP BY Group1.codegroup, Group1.namGroup

HAVING (((Group1.codegroup) Like "*" & [Forms]![search].[group] & "*")) OR (((Group1.namGroup) Like "*" & [Forms]![search].[group] & "*"))

ORDER BY Group1.namGroup;

SELECT Group1.codegroup, Group1.namGroup

#4

أخي yasin12

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

new.rar

#5

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

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

المرفق من تصميم الاخت زهره حفظها الله اظن انه جواب لسؤالك!

و الله ولي التوفيق

zahrah_Search2006.rar

#6

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

الف شكر

#7

أنا سعيد بوصولك لما تريد سواء مني أو من غيري وشكراً لك على دعائك لي

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

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