تقييم الموضوع :
  • 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 
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اعرف رقم الخطاء عند ظهور هذه الرسالة في برنامجي؟ Microformt 0 398 07-10-22, 09:51 PM
آخر رد: Microformt
  ممكن البرنامج يبعت رسايل للموبايل عن طريق النت رجل الكهرباء 5 1,568 12-05-22, 12:52 PM
آخر رد: الاصيله
  سلام ممكن حد يشرحلي كيف اعمل مفتاح key ahmed201 2 1,337 09-02-21, 01:13 PM
آخر رد: ahmed201
  طلب طريقة معرفة عدد الصفوف الفرغه في عمود معيين MSFlexGrid ahmed201 7 2,124 08-01-21, 11:31 PM
آخر رد: سعود
  اداة vbflexgrid13.ocx شبيه بالاداة العادية بحاجة الى معرفة اكثر gonm64 2 1,392 04-11-19, 05:34 PM
آخر رد: gonm64
  [vb6.0] المساعدة في معرفة عدد القوائم وادي العوضي 11 2,693 26-10-19, 01:19 AM
آخر رد: asemshahen5
Star ممكن مساعدتي في هذا الكود MicroDoha 3 1,537 16-10-19, 03:38 PM
آخر رد: MicroDoha
  ممكن التعديل على هذا المثال تقرير البحث عن المجملات princeofislam 10 3,055 15-10-19, 01:41 AM
آخر رد: princeofislam
  هل يمكن معالجة هذا الخطاء sendkeys princeofislam 3 1,365 06-09-19, 12:39 AM
آخر رد: Ahmed_Mansoor
  هل ممكن وضع الاستعلام التالي في التقرير princeofislam 0 1,040 23-08-19, 10:02 PM
آخر رد: princeofislam

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


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