منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عند الدخول الى الواجهة تظهر الرساله التاليه

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

الواجهة

كود زر الحفظ

PHP كود :

If Trim(Text1) = "" Then
     MsgBox "...أدخل رقم التلفون", vbExclamation, "رسالة تنبيه"
     Me.Text1.SetFocus
     Exit Sub
End If
Dim Rs As New ADODB.Recordset
Dim Rs1 As New ADODB.Recordset
Dim Rs2 As New ADODB.Recordset

Dim SQLs As String
Dim S As Integer

If ck = True Then
Exit Sub
End If
SQLs = "Select * From AddSek where NameAdd='" & Trim(Text1.Text) & "'"

                If Rs.State = adStateOpen Then Rs.Close
                If Rs1.State = adStateOpen Then Rs1.Close
                If Rs2.State = adStateOpen Then Rs2.Close
        Rs.Open SQLs, CN, adOpenKeyset, adLockPessimistic
        Rs1.Open SQLs, CN, adOpenKeyset, adLockPessimistic
        Rs2.Open SQLs, CN, adOpenKeyset, adLockPessimistic
        If Rs.RecordCount < 1 And Rs1.RecordCount < 1 And Rs2.RecordCount < 1 Then
        Rs.AddNew
        Rs1.AddNew
        Rs2.AddNew
        Rs.Fields(0) = Text1.Text
        Rs1.Fields(1) = Text3.Text
        Rs2.Fields(2) = Text4.Text
       
        
    Rs.Update
    Rs.Requery
    Rs1.Update
    Rs1.Requery
    Rs2.Update
    Rs2.Requery
   MsgBox "تمت عملية الحفظ بنجاح ", vbInformation, "حفظ"
 FillCombo Lab.Combo1, "select NameAdd from AddSek"
 FillCombo AddName.Combo1, "select NameAdd from AddSek"
 Else
 MsgBox "يوجد خطأ اثناء الحفظ --- رقم التلفون  مسجل من قبل", vbCritical, "خطأ"
 End If
     ClearAll Me, Text2
     ck = False 

وهذا كودزر الحذف اذا وجد فيه اي خطاء

PHP كود :

If Trim(Text1) = "" Then
 MsgBox "áÇÊæÌÏ ÈíÇäÇÊ ãÚÑæÖÉ áÍÐÝåÇ", vbExclamation, "ÑÓÇáÉ ÊäÈíå"
Exit Sub
End If
Dim b As Integer
b = MsgBox("åá ÇäÊ ãÊÃßÏ ãä ÚãáíÉ ÇáÍÐÝ", vbExclamation + vbYesNo, "ÇäÊÈå-- ÍÐÝ ÇÓã ãÑíÖ")
If b = vbYes Then
CN.Execute "delete from AddSek where NameAdd = '" & Trim(Text1.Text) & "'"
Text1.SetFocus
ClearAll Me, Text1
MsgBox "ÊãÊ ÚãáíÉ ÍÐÝ ÇáãÑíÖ ÈäÌÇÍ", vbInformation, "ÍÐÝ "
End If
FillCombo Lab.Combo1, "select NameAdd from AddSek"
FillCombo AddName.Combo1, "select NameAdd from AddSek"
ClearAll Me, Text2 

يرجاء المساعده باسرع وقت ممكن وشكرا

ممكن ترفق المشروع لكي يتم التعديل علية

السلام عليكم...

كما قال أخونا تركي الحلواني: يفضل رفع المشروع للتعديل عليه.

و لكن مبدئياً:

أ. بالنسبة إلى الرسالة الأولى: غالباً يكون السبب أنك قرأت قيمة من حقل في جدول و كانت القيمة فارغة (NULL) ثم حاولت استخدام تلك القيمة في مكان ما.

ب. بالنسبة إلى كود زر الحفظ:
= 1. لا تحتاج إلى فتح 3 مجموعات سجلات (Recordsets) و هي RS و RS1 و RS2 من أجل إضافة بيانات في نفس الجدول!!! يكفي أن تعرف و تستخدم RS الأولى فقط و تكون نهاية الكود هكذا:

كود :

Rs.Fields(0) = Text1.Text

Rs.Fields(1) = Text3.Text

Rs.Fields(2) = Text4.Text

Rs.Update

= 2. لا تحتاج - في هذه الحالة - إلى اختبار ما إذا كانت مجموعة السجلات مفتوحة أم لا ثم محاولة إغلاقها، لأنك تقوم بإنشائها ككائن جديد داخل إجراء زر الحفظ، و بالتالي فهي بالتأكيد مغلقة.

نرجو الاستفادة و السلام.

يسلموا شباب تم حل المشكلة وتم تعديل الكود

PHP كود :

Dim SQLs As String
Dim S As Integer
If Text6.Text = "" Then
MsgBox "ادخل رقم التلفون", vbCritical, "خطأ"
Text6.SetFocus
Exit Sub
End If

SQLs = "Select * From Labadd where InvNo=" & Trim(Text6.Text) & ""

                If RSS.State = adStateOpen Then RSS.Close
        RSS.Open SQLs, CN, adOpenKeyset, adLockPessimistic

With Grid

If RSS.RecordCount < 1 Then
For S = 1 To .Rows - 1

       RSS.AddNew
   RSS.Fields("InvNo") = Text6.Text
   RSS.Fields("DTF") = Format(Me.DT1.Value, "yyyy/MM/dd")
   RSS.Fields("Nmred") = Combo1.Text
   RSS.Fields("Gender") = Combo3.Text
   
RSS!Code = .TextMatrix(S, 0)
RSS!Nmrd = .TextMatrix(S, 1)
RSS!Result = .TextMatrix(S, 2)
RSS!Price = .TextMatrix(S, 3)
RSS!Ndoctor = .TextMatrix(S, 4)
RSS.Update

 Next
 
 MsgBox "تم حفظ بيانات التلفون بنجاح ", vbInformation, "حفظ"
 ClearAllA Me
lblTotal.Caption = ""
 Call Grd
 Else
 MsgBox "يوجد خطأ اثناء الحفظ --- رقم التلفون مسجل من قبل", vbCritical, "خطأ"
 End If
 End With 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

the viper

تركي الحلواني

ناجي إبراهيم

the viper