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

ممكن كود وظيفته يعمل فحص علي سجل او رقم

مغلق
بدأه sameh_ibm في 16 مارس 2006 · 3 رد · 507 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

شكرااااااااااااااااااااااا ليكم :^) :D :D :D :D

vipersig.jpg

المحاسب

سامح إبراهيم عبداللطيف

sameh_ibm@hotmail.com

SAMHOOON

#2

السلام عليكم

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

Dim D As String
    D = Text1
    RS.MoveFirst
    RS.Find "code'" & D & "'"
    On Error GoTo Resums
    Call CONCT

    MsgBox "عفوا كود الفرع مسجل لدينا ", 16 + vbMsgBoxRight, "خطأ": Exit Sub

Resums:
'Some codes will be here

مع ملاحظة أن

Code = هو اسم الحقل الذي ستبحث فيه

Resums = هو عبارة عن ليبل وضعته في الكود حتى اجعل البرنامج ينتقل اليه وقت الحاجة

CONCT = هو عبارة عن صب وضعت فيه كود ربط الحقول بالتكستات الموجودة على الفورم

بالنسبة لشرح الكود فهو كالتالي :

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

أما لو انه لم يجد البيان فسوق يكون هناك خطأ بسبب ربط الحقول بالتكستات لانه لا يوجد قيمة وهنا سوف يقفز الى العنوان المسمى Resums والذي سوف تقوم حضرتك بوضع كود الاضافة بعده مباشرة وتتم عملية الاضافة بنجاح

ارجو ان اكون قد اوضحت الفكرة واذا واجهت اي مشاكل فبرجاء التنبيه مرة اخرى

=================

الى اللقاء

JusT LeT YouR MinD WorK

#3

بص يا باشا دا الكود بتاعي اللي انا كتبته

Private Sub Command2_Click()

If Text1.Text = "" Then

MsgBox "خطأ اين إسم العميل العميل", vbExclamation

Exit Sub

End If

'-------------------------------------------

If Text2.Text = "" Then

MsgBox "خطأ اين رقم الحساب من فضلك", vbExclamation

Exit Sub

End If

'------------------------------------------

If Text3.Text = "" Then

MsgBox "خطأ اين إسم البنك من فضلك", vbExclamation

Exit Sub

End If

'--------------------------------------------

rs.MoveFirst

rs.Find "id='" + Text2 + "'"

If rs.EOF Then

GoTo 20

Else

GoTo 10

Exit Sub

End If

'----------------------------------------

20: rs.AddNew

rs("name") = Text1.Text

rs("id") = Text2.Text

rs("nbank") = Text3.Text

rs.Update

MsgBox "تم حفظ البيانات بنجاح وجاري تحديث السجلات", vbInformation

'----------------------------------------

10: MsgBox "خطأ رقم الحساب مسجل من قبل يرجي التأكد من رقم الحساب وإعادة المحاولة", vbCritical

Exit Sub

End Sub

vipersig.jpg

المحاسب

سامح إبراهيم عبداللطيف

sameh_ibm@hotmail.com

SAMHOOON

#4

ايه يا نجم يعني مردتش عليا في الكود ده صح ولا غلط وفين الناس الباقية اللي في المنتدي مبتردش ليه علي الموضوع من فضلكم انا بكمل البرنامج بتاعي وفي مرحلة الفنش دلوقتي finish ومحتاج الكود بأسرع وقت ممكن وشكرا ليكم

منتظر الرد سريعا

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

vipersig.jpg

المحاسب

سامح إبراهيم عبداللطيف

sameh_ibm@hotmail.com

SAMHOOON

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

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