05-11-18, 08:54 AM
السلام عليكم ورحمة الله وبركاته ,,,
اخواني عندي الكود اود حفظ اسم ورقم الزبون في الجدول
ولكن اذا وجد اسمه مسبقا اود ان لا يقوم بشيئ
وان لم يكن موجود يضيفه لقاعدة البيانات
الكود التالي يظهر خطأ عند سطر الاول (الاتصال بقاعدة البيانات)
هل يمكن ان تدلوني على الخطا او اصلاحه بشكل افضل من فضلكم ولكم جزيل الشكر
اخواني عندي الكود اود حفظ اسم ورقم الزبون في الجدول
ولكن اذا وجد اسمه مسبقا اود ان لا يقوم بشيئ
وان لم يكن موجود يضيفه لقاعدة البيانات
كود :
If rs.State = 1 Then rs.Close
sql = "select * from tblCustomers where CustName = " & Trim(txtCust.Text) & " and CustCont = '" & Trim(txtCont.Text) & "'"
rs.Open sql, cnالكود التالي يظهر خطأ عند سطر الاول (الاتصال بقاعدة البيانات)
هل يمكن ان تدلوني على الخطا او اصلاحه بشكل افضل من فضلكم ولكم جزيل الشكر
كود :
If Trim(txtCust.Text) = "" Then MsgBox "الرجاء التأكد من المدخل ", vbInformation, "": Exit Sub
If Trim(txtCont.Text) = "" Or Not IsNumeric(txtCont.Text) Then MsgBox "الرجاء التأكد من المدخل ", vbInformation, "": Exit Sub
'------------------------
'البحث عن القيمتين رقم الجوال والاسم قبل عملية الاضافة فاذا وجدا لم يقم بالاضافة بل سيسألك اذا رغبت بالتعديل عليه
If rs.State = 1 Then rs.Close
sql = "select * from tblCustomers where CustName = " & Trim(txtCust.Text) & " and CustCont = '" & Trim(txtCont.Text) & "'"
rs.Open sql, cn
With rs
If rs.EOF Then
'في عدم وجود السجل سيتم تنفيذ الكود التالي
.AddNew
Else
'في حال وجود السجل سيتم تنفيذ الكود التالي
Msg_1000 = MsgBox("السجل موجود هل تريد التعديل عليه", vbQuestion + vbYesNo, "")
If Msg_1000 = vbYes Then
update.
Else
Exit Sub
End If
End If
!custName = Trim(txtCust.Text)
!custcont = Trim(txtCont.Text)
.Update
.Close
End With