تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
رسالة خظأ عند تشغيل الفورم
#1
اخوتي الكرام البرنامج شغل بدون مشكل ولكن عند تحويل exe واشغل البرنامج لما افتح الفورم يشغل تمام بس يظهر مع رسالة خظأ اذا فتحته تغلق البرنامج اليكم رسالة الخطأ


الملفات المرفقة صورة/صور
   
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد
تم الشكر بواسطة:
#2
ماهو عمل البرنامج؟
ممكن تشوف هذا
او ابحث برقم الخطأ
الرد
تم الشكر بواسطة: ahmed201
#3
اخي الغالي المشكله في هذه الكود
كود :
If rs.State = adStateOpen Then rs.Close
sql = " select * from [Table6] WHERE [n1]='" & Trim(Combo1.Text) & "' AND [n4]='" & Trim(Date) & "'"
rs.Open sql, db, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Label4.Caption = rs![n2]
Label5.Caption = rs![n3]
Form3.Label2.Caption = Combo1.Text
Form3.Label3.Caption = Date
End If
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد
تم الشكر بواسطة:
#4
(12-01-21, 07:56 AM)ahmed201 كتب :
(12-01-21, 07:24 AM)سعود كتب : ماهو عمل البرنام
كود :
On Error GoTo 2
If Label1.Caption = 1 Then
Label2.Visible = True
ElseIf Label1.Caption = 0 Then
End
End If
If Trim(Text1.Text) = "" Then
GoTo 1
Else
o1_Click
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM [table1] WHERE [n2]='" & Trim(Combo1.Text) & "' AND [n3]='" & Trim(Text1.Text) & "'", db, adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
GoTo 1
Else
OK = True
Me.Hide
form3.show
End If
End If
Exit Sub
1
 MsgBox " ÚÝæÇð ... ÇÓã ÇáãÓÊÎÏã Ãæ ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ!", vbCritical + vbMsgBoxRtlReading, "ÊäÈíå"
Label1.Caption = Label1.Caption - 1
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Trim(Text1.Text))
Exit Sub
2
MsgBox Err.Description, , "ÊäÈíå"
ج؟
ممكن تشوف هذا
او ابحث برقم الخطأ

هل جربت بعد انتهاء كل جملة شرط تكتب exit sub  حتى لايستمر البرنامج بتنفيذ الاكواد التالية؟
لو المشروع بسيط ممكن ترفعه لتجربته.
الرد
تم الشكر بواسطة: ahmed201
#5
(12-01-21, 08:14 AM)في هذه الكود المشكله  انا متاكد كتب :
كود :
If rs.State = adStateOpen Then rs.Close
sql = " select * from [Table6] WHERE [n1]='" & Trim(Combo1.Text) & "' AND [n4]='" & Trim(Date) & "'"
rs.Open sql, db, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Label4.Caption = rs![n2]
Label5.Caption = rs![n3]
Form3.Label2.Caption = Combo1.Text
Form3.Label3.Caption = Date
End If
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد
تم الشكر بواسطة:
#6
(12-01-21, 08:14 AM)سعود كتب :
(12-01-21, 07:56 AM)ahmed201 كتب :
(12-01-21, 07:24 AM)سعود كتب : ماهو عمل البرنام
كود :
On Error GoTo 2
If Label1.Caption = 1 Then
Label2.Visible = True
ElseIf Label1.Caption = 0 Then
End
End If
If Trim(Text1.Text) = "" Then
GoTo 1
Else
o1_Click
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM [table1] WHERE [n2]='" & Trim(Combo1.Text) & "' AND [n3]='" & Trim(Text1.Text) & "'", db, adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then
GoTo 1
Else
OK = True
Me.Hide
form3.show
End If
End If
Exit Sub
1
 MsgBox " ÚÝæÇð ... ÇÓã ÇáãÓÊÎÏã Ãæ ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ!", vbCritical + vbMsgBoxRtlReading, "ÊäÈíå"
Label1.Caption = Label1.Caption - 1
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Trim(Text1.Text))
Exit Sub
2
MsgBox Err.Description, , "ÊäÈíå"
ج؟
ممكن تشوف هذا
او ابحث برقم الخطأ

هل جربت بعد انتهاء كل جملة شرط تكتب exit sub  حتى لايستمر البرنامج بتنفيذ الاكواد التالية؟
لو المشروع بسيط ممكن ترفعه لتجربته.

المشكله في هذه الكود بس ماعرفت اين هو الاخطأ
كود :
If rs.State = adStateOpen Then rs.Close
sql = " select * from [Table6] WHERE [n1]='" & Trim(Combo1.Text) & "' AND [n4]='" & Trim(Date) & "'"
rs.Open sql, db, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Label4.Caption = rs![n2]
Label5.Caption = rs![n3]
Form3.Label2.Caption = Combo1.Text
Form3.Label3.Caption = Date
End If
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حفظ الفورم بجميع مكوناته على شكل PDF hannileo 4 1,681 20-01-22, 05:35 PM
آخر رد: رضوان الجماعي
  [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى hamada salah90 2 533 05-12-21, 12:04 AM
آخر رد: hamada salah90
  كيف اجعل الفورم الفرعي لا يختفي عند الضغط على الفورم الرئيسي مصمم هاوي 7 2,816 26-10-21, 12:51 AM
آخر رد: مصمم هاوي
Question [vb6.0] هل يوجد طريقه في تثبيت خطوط الفورم والتقارير عند تشغل برنامج عند العميل ؟؟ Microformt 0 357 25-09-21, 09:11 AM
آخر رد: Microformt
  [سؤال] محتاج كود يعطي زمن تشغيل البرنامج بالدقائق gharib 2 721 24-04-21, 11:31 PM
آخر رد: gharib
  اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية allobaed 8 3,294 06-03-21, 09:10 PM
آخر رد: أبو عبدالله الحلواني
  رسالة خطأ في كود البحث في قاعدة البيانات اكسس ahmed201 1 616 04-01-21, 06:52 PM
آخر رد: aboezzat84
  منع تشغيل اكثر من نسخة من البرنامج alfakeehy 7 3,720 22-10-20, 04:51 PM
آخر رد: Microformt
  ماذا يعني ظهور رسالة ( st6unst.exe) عند عمل setup للبرنامج؟ gonm64 0 729 11-08-20, 02:43 PM
آخر رد: gonm64
Question [vb6.0] كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم Microformt 2 1,086 01-08-20, 07:23 PM
آخر رد: Microformt

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


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