تقييم الموضوع :
  • 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
كود :
اذكرو الله سبحان الله وبحمده *سبحان الله العظيم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية allobaed 8 2,298 06-03-21, 09:10 PM
آخر رد: أبو عبدالله الحلواني
  رسالة خطأ في كود البحث في قاعدة البيانات اكسس ahmed201 1 175 04-01-21, 06:52 PM
آخر رد: aboezzat84
  منع تشغيل اكثر من نسخة من البرنامج alfakeehy 7 2,572 22-10-20, 04:51 PM
آخر رد: Microformt
  ماذا يعني ظهور رسالة ( st6unst.exe) عند عمل setup للبرنامج؟ gonm64 0 316 11-08-20, 02:43 PM
آخر رد: gonm64
Question [vb6.0] كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم Microformt 2 498 01-08-20, 07:23 PM
آخر رد: Microformt
Question [vb6.0] هل هناك كود يمكن تكبير الفورم من خلال موشر الفاره بطريقة السحب في حال تم الغاء هذه Microformt 3 539 21-05-20, 03:39 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] هل في الامكن تغير لون شريط عنوان الفورم عن طريق البرمجة ؟؟ Microformt 1 679 20-04-20, 12:20 AM
آخر رد: سعود
  [vb6.0] رسالة خطأ ارجو منكم الحل ahmed20 3 609 21-03-20, 05:04 AM
آخر رد: سعود
  [سؤال] عرض تقرير اكتف ريبورت في الفورم ناجح احمد 2 731 28-02-20, 04:29 PM
آخر رد: Ahmed_Mansoor
  طلب كود رسالة تنبيه في شريط المهام ahmed20 1 933 27-01-20, 01:39 PM
آخر رد: Amir_Alzubidy

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


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