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

[ تمت الإجابة ]كود للبحث ارجو المساعده

بدأه ابو مرام في 10 نوفمبر 2009 · 9 رد · 853 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

يا شباب هذا الكود الذي استخدمه والكود يعمل

المشكله في الاتي

انا ابحث بالرقم الوظيفي والذي اسميته ddd

يفلتر الاسماء ويظهر لي ما طلبته ولكن انا ارغب ان اربطه بشرط اخر وهو العام الهجري

المطلوب

ان يبحث عن الرقم الوظيفي للشخص ويستخرج استراحاته واجازاته خلال عام مثلاً 1430هـ

علماً بانني رمزت للعام الهجري بالرمز sa

ارجو ممن يساعدني ان يضيف لي الشرط الاخر ليبحث عن الرقم الوظيفي والعام الهجري ويفلتره

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

اسأل الله الا يحرمكم الاجر وان يجعل ما تقدمونه في موازين اعمالكم يوم تلقونه مع خالص الشكر لما قدمتموه لنا سلفاً

On Error GoTo h

Dim bahas As String

F = InputBox("أدخل العام الهجري")

If F = "" Then Exit Sub

db2.rsg2.Filter = "sa = '" & F & "' "

bahas = InputBox("ادخل الرقم الوظيفي")

acc1 = bahas

db2.rsg1.MoveFirst

db2.rsg2.MoveFirst

db2.rsg1.Find "f like " & bahas

db2.rsg2.Find "ddd like " & bahas

db2.rsg2.Filter = "ddd like '" & bahas & "'"

If db.State = adStateOpen Then db.Close

db.Provider = "Microsoft.jet.oleDB.4.0;"

db.Open (App.Path & "\DB2.mdb")

Call newtotol

If Text3 > 10 Then

If MsgBox(" رساله : رصيدك لايكفي ", vbYesNo) = vbYes Then

db2.rsg2.MoveLast

db2.rsg2.Delete adAffectCurrent

'Form1.Show

'Unload Me

Else

Command4.Enabled = True

Exit Sub

h: MsgBox "تأكد من نوع القيمة المدخلة"

End If

End If

هذه صور توصيحيه

post-115737-1257883481_thumb.jpg

post-115737-1257883504_thumb.jpg

تم تعديل هذه المشاركة بواسطة ابو مرام في 10 نوفمبر 2009 في 23:09

#2

يا اخوان اربع وعشرين قارىء مافي واحد ساعدني هل انقطع المعروف بين الناس

انا اعلم ان في المنتدى مبرمجين على مستوى عالي وسؤالي هذا يعتبر نكته يضحكون عليها لكن بالنسبه لي اتعبني كثيراً

ارغب تضيفون امر مع هذا الكود

db2.rsg2.Filter = "ddd like '" & bahas & "'"

بحيث يلفتر مع ddd الخانه الاخرى وهي sa

اتمنى ان تساعدوني كما امتدت يد المساعده في السابق فانتم اهل الفضل بعد فضل الله سبحانه وتعالى

تم تعديل هذه المشاركة بواسطة ابو مرام في 11 نوفمبر 2009 في 17:32

#3

إذا كنت تريد الفلترة بأكثر من شرط في نفس الوقت - على حد فهمي للسؤال - استخدم مثل هذا الكود

db2.rsg2.Filter = "ddd like '" & bahas & "', sa like '1430'"

تم تعديل هذه المشاركة بواسطة محمد مصطفي غريب في 11 نوفمبر 2009 في 23:03

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#4

اشكرك اخي الحبيب على تجاوبك

انا فعلاً ارغب في الفلتره باكثر من شرط

انا ارغب ان ابحث عن اي تاريخ اقوم بادخاله في الصندوق كما هو الحال في الرقم الوظيفي وانت هنا حددت العام فوضعت 1430هـ كما هو الحال في الكود الذي اضفته مشكوراًـ

db2.rsg2.Filter = "ddd like '" & bahas & "', sa like" & "'1430'"

اتمنى ان احدد انا التاريخ في صندوق البحث كما هو الحال بالرقم الوظيفي ويبحث عنه

المشكله انني عندما ابحث بالرقم الوظيفي يفلتر الرقم ويظهر جميع اجازاته 1428-1429-1430-هـ مثلاً

انا ارغب ان اضع شرط في البحث يبحث عن الرقم الوظيفي ليفلتر اجازاته لعام 1430 هـ فقط

ان شاء الله تكون الفكره وضحت

الله لايحرمك الاجر ويكرمك بالجنه

تم تعديل هذه المشاركة بواسطة ابو مرام في 11 نوفمبر 2009 في 23:12

#5

نفرض ان صندوق النص الذي ستقوم بإدخال التاريخ فيه هو DateText

db2.rsg2.Filter = "ddd like '" & bahas & "', sa like '" & DateText.Text & "'"

قم بتغيير DateText في الكود السابق بأسم صندوق النص الذي ستدخل فيه تاريخ الفلترة

إذا تفحصت الكود بتمعن تستطيع تعديل الكود ليؤدي الوظيفة التي تريدها

وانا تحت امرك في اي استفسار

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#6

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

هذه صيغة عامة للبحث بشرطين على اعتبار انك تستخدم الاداة الجميلة للتاريخ DTPicker 

sqls = "select * from table where name = '" & me.Text1 & "' and date between #" & Format(DTPicker1, "MM/DD/YYYY") & "# and #" & Format(DTPicker2, "MM/DD/YYYY") & "# "

حيث Text1 تقوم بادخال الاسم المطلوب البحث عنه وتضيف اداتي التاريخ التي تحد فيها بداية التاريخ المطلوب البحث عنه ونهايتة

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

وبالتوفيق

#7
محمد مصطفي غريب كتب:
نفرض ان صندوق النص الذي ستقوم بإدخال التاريخ فيه هو DateText

db2.rsg2.Filter = "ddd like '" & bahas & "', sa like '" & DateText.Text & "'"

قم بتغيير DateText في الكود السابق بأسم صندوق النص الذي ستدخل فيه تاريخ الفلترة

إذا تفحصت الكود بتمعن تستطيع تعديل الكود ليؤدي الوظيفة التي تريدها

وانا تحت امرك في اي استفسار

يا سيدي الله يكرمك برؤية الرحمن ودخول الجنان ومصاحبة سيد الانام واله الكرام

اتعبتك معي كثيراً ولكن اتمنى ان تتحملني فربما لقصور فهمي لم استطع الوصول الى حلك فقط وضعت الكود ولم ينجح معي وارفقت لك البرنامج اتمنى ان تحل لي المشكله

اسف اتعبتك معي ولكن اسأل الله الا يحرمك اجر من علمته

AHMAD KALIL كتب:
السلام عليكــم ورحمـة الله وبركاتــه ،،

هذه صيغة عامة للبحث بشرطين على اعتبار انك تستخدم الاداة الجميلة للتاريخ DTPicker 

sqls = "select * from table where name = '" & me.Text1 & "' and date between #" & Format(DTPicker1, "MM/DD/YYYY") & "# and #" & Format(DTPicker2, "MM/DD/YYYY") & "# "

حيث Text1 تقوم بادخال الاسم المطلوب البحث عنه وتضيف اداتي التاريخ التي تحد فيها بداية التاريخ المطلوب البحث عنه ونهايتة

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

وبالتوفيق

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

المشكله الاداه ليست عندي ولم اجربها من قبل فاذا كان بالامكان اضافتها في البرنامج للاستفاده منها فجزاك الله خيراً

انار الله لك البصر والبصيره ووفقك لكل خير وسدد خطاك ورزقك في الدنيا والاخره

sdf.rar

تم تعديل هذه المشاركة بواسطة ابو مرام في 12 نوفمبر 2009 في 13:42

#8

يا اخوان تكفون المساعده ما زلت منتظر

الله يوفقكم

#9

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

مرفق اداة التاريخ حيث اضفتها الى البرنامج حيث ستجدها في form2

sdf.rar

#10

لم يعمل الملف معي ولكن وجدت الحل ولله الحمد

اشكرك على مشاركتك ومساعدتك لي

اسأل الله الا يحرمك الاجر وان يوفقك في الدنيا والاخره

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