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

السلام عليكم

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

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 والذي سوف تقوم حضرتك بوضع كود الاضافة بعده مباشرة وتتم عملية الاضافة بنجاح

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

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

الى اللقاء

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

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

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

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

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