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 حتى لايستمر البرنامج بتنفيذ الاكواد التالية؟
لو المشروع بسيط ممكن ترفعه لتجربته.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
