[ahmed201]

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

[سعود]

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

[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, 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: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, 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