دخول

**ahmed201** · 12-01-21, 01:40 AM

اخوتي الكرام البرنامج شغل بدون مشكل ولكن عند تحويل exe واشغل البرنامج لما افتح الفورم يشغل تمام بس يظهر مع رسالة خظأ اذا فتحته تغلق البرنامج اليكم رسالة الخطأ

***سعود*** · 12-01-21, 07:24 AM

ماهو عمل البرنامج؟
ممكن تشوف هذا
او ابحث برقم الخطأ

**ahmed201**

اخي الغالي المشكله في هذه الكود

كود :
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

***سعود*** · 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 حتى لايستمر البرنامج بتنفيذ الاكواد التالية؟
لو المشروع بسيط ممكن ترفعه لتجربته.

**ahmed201** · 12-01-21, 08:21 AM

(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

**ahmed201** · 12-01-21, 07:31 PM

(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

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	خطأ في تشغيل برنامج علي جهاز اخره	ahmed250	1	415	24-04-25, 01:00 AM آخر رد: Taha Okla
	[vb6.0] تشغيل استعلام الحاق برمجيا من داخل واجهة الفيجوال بيسك	وادي العوضي	3	601	15-08-24, 09:06 PM آخر رد: وادي العوضي
	مشكلة في تشغيل برنامج علي جهاز اخره	ahmed3317	1	526	10-05-24, 10:34 PM آخر رد: Taha Okla
	[سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه	aboezzat84	3	3,435	21-04-24, 04:12 PM آخر رد: qqqqqqq
	ريد عند النقر على الصف من الجدول المجود على الفورم يظهر رقم الصنف في Text ؟	Microformt	0	738	04-11-23, 10:13 PM آخر رد: Microformt
	كيف يمكن تشغيل برنامجي على اكثر من جهاز بنفس الوقت	princeofislam	1	694	14-10-23, 08:18 PM آخر رد: princeofislam
	رسالة خطأ تظهر لي ما الحل؟	Alhootti1	3	723	28-08-23, 02:11 PM آخر رد: ahmedabdelaliem
	[سؤال] ماهو سبب خروج هذه الرسالة كما في الصورة المرفقة عند تشغيل برنامج الفيجوال بيسك6	وادي العوضي	3	973	24-07-23, 11:50 PM آخر رد: وادي العوضي
	[vb6.0] الماذا يظهر البرنامج عن تشغيل بعض الشاشات الكمبيوتر بشكل مصغر ؟	Microformt	5	1,368	23-07-23, 12:27 PM آخر رد: ahmedabdelaliem
	[vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة	وادي العوضي	6	1,242	09-07-23, 12:44 AM آخر رد: وادي العوضي