تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] ممكن معرفة الخطاء اين
#1
عند الدخول الى الواجهة تظهر الرساله التاليه


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


الواجهة


كود زر الحفظ
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 SQLsCNadOpenKeysetadLockPessimistic
        Rs1
.Open SQLsCNadOpenKeysetadLockPessimistic
        Rs2
.Open SQLsCNadOpenKeysetadLockPessimistic
        
If Rs.RecordCount And Rs1.RecordCount 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 MeText2
     ck 
False 


وهذا كودزر الحذف اذا وجد فيه اي خطاء
PHP كود :
If Trim(Text1) = "" Then
 MsgBox 
"áÇÊæÌÏ ÈíÇäÇÊ ãÚÑæÖÉ áÍÐÝåÇ"vbExclamation"ÑÓÇáÉ ÊäÈíå"
Exit Sub
End 
If
Dim b As Integer
MsgBox("åá ÇäÊ ãÊÃßÏ ãä ÚãáíÉ ÇáÍÐÝ"vbExclamation vbYesNo"ÇäÊÈå-- ÍÐÝ ÇÓã ãÑíÖ")
If 
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 MeText2 

يرجاء المساعده باسرع وقت ممكن وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
ممكن ترفق المشروع لكي يتم التعديل علية
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}}
تم الشكر بواسطة: @@أبورائد@@
#3
السلام عليكم...

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

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

أ. بالنسبة إلى الرسالة الأولى: غالباً يكون السبب أنك قرأت قيمة من حقل في جدول و كانت القيمة فارغة (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. لا تحتاج - في هذه الحالة - إلى اختبار ما إذا كانت مجموعة السجلات مفتوحة أم لا ثم محاولة إغلاقها، لأنك تقوم بإنشائها ككائن جديد داخل إجراء زر الحفظ، و بالتالي فهي بالتأكيد مغلقة.

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: @@أبورائد@@
#4
يسلموا شباب تم حل المشكلة وتم تعديل الكود

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 SQLsCNadOpenKeysetadLockPessimistic

With Grid

If RSS.RecordCount 1 Then
For 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(S0)
RSS!Nmrd = .TextMatrix(S1)
RSS!Result = .TextMatrix(S2)
RSS!Price = .TextMatrix(S3)
RSS!Ndoctor = .TextMatrix(S4)
RSS.Update

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink هل من مساعد في معرفة نسخ أسطر محددة؟؟؟ KamelArab 4 165 25-11-16, 08:04 PM
آخر رد: KamelArab
  [سؤال] ممكن مساعدة في ايجاد كود او اداة لاظهار جدول في واجهة البرنامج مبرمج جديد 2 109 09-11-16, 03:48 AM
آخر رد: مبرمج جديد
  [vb6.0] ممكن نسخة فيجوال بيسك 6 كاملة iisys 2 121 03-10-16, 08:30 PM
آخر رد: iisys
  ما سبب الخطاء عند الحدث Adodc1.Refresh allobaed 4 144 01-09-16, 01:58 AM
آخر رد: allobaed
  [سؤال] ما هو الخطاء في هذا الكود allobaed 4 146 11-08-16, 06:04 PM
آخر رد: allobaed
Question [vb6.0] أين الخطاء في الاستعلام في برنامجي المرفق ؟؟ Microformt 2 192 01-05-16, 06:29 AM
آخر رد: Microformt
  هل ممكن شرح التعامل مع TabStrip1 رجل الكهرباء 0 107 18-04-16, 03:31 AM
آخر رد: رجل الكهرباء
  ممكن تنصحوني بكتاب لتعليم برمجة فجوال ٦ bader10 1 234 07-04-16, 03:14 PM
آخر رد: princeofislam
  ممكن طريقة انشاء تقرير بسيط mohfar 2 204 10-03-16, 11:33 AM
آخر رد: mohfar
  ممكن حل السؤال ضروري جدا جدا و شكرا نانا 1 227 21-02-16, 10:17 PM
آخر رد: myalsailamy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم