(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, , "ÊäÈíå"

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

(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

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