كود الحفظ يعطى خطأ .... هل من مساعدة

عفوا هذا هو الكود مرة أخرى

If Trim(Text2.Text) = "" Then

<BR> MsgBox "من فضلك إدخل رقم القرار", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "Message"<BR>Text2.SetFocus<BR>End If<BR>If rs.State = 1 Then rs.Close<BR>rs.Open "select * from gen where num ='" & Trim(Text2.Text) & "'", db, adOpenKeyset, adLockPessimistic<BR>If rs.RecordCount <> 0 Then<BR>MsgBox "هذا القرار موجود بالفعل هل تريد المتابعة¿"<BR>End If<BR>If MsgBox("هل تريد حفظ القرار الحالى", vbQuestion + vbMsgBoxRight + vbMsgBoxRtlReading + vbYesNoCancel, "ÑÓÇáÉ") = vbYes Then<BR><BR>With rs<BR>If AddOREdit = True Then .AddNew<BR>rs("code") = Text1.Text<BR>rs("num") = Text2.Text<BR>rs("kind") = Combo1.Text<BR>rs("source") = Text4.Text<BR>rs("tex") = Text5.Text<BR>rs("notes") = Text6.Text<BR>.Update<BR>End With<BR><BR>Call SwitchOnOffButton(True)<BR>Call ViewRecord<BR>Call LENRecord<BR>Call Form_Load<BR>MsgBox "تمت عملية الحفظ بنجاح", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "ÑÓÇáÉ"<BR>End If<BR>Exit Sub

معلش يا جماعة أنا آسف مش عارف أدخل الكود

If Trim(Text2.Text) = "" Then
MsgBox "من فضلك إدخل رقم القرار ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "Message"
Text2.SetFocus
End If
If rs.State = 1 Then rs.Close
rs.Open "select * from gen where num ='" & Trim(Text2.Text) & "'", db, adOpenKeyset, adLockPessimistic
If rs.RecordCount <> 0 Then
MsgBox "هذا القرار موجود بالفعل .. هل تريد المتابعة"
End If
If MsgBox("هل تريد حفظ القرار الحالى", vbQuestion + vbMsgBoxRight + vbMsgBoxRtlReading + vbYesNoCancel, "رسالة") = vbYes Then
With rs
If AddOREdit = True Then .AddNew
rs("code") = Text1.Text
rs("num") = Text2.Text
rs("kind") = Combo1.Text
rs("source") = Text4.Text
rs("tex") = Text5.Text
rs("notes") = Text6.Text
.Update
End With
Call SwitchOnOffButton(True)
Call ViewRecord
Call LENRecord
Call Form_Load
MsgBox "تمت عملية الحفظ بنجاح", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة"
End If
Exit Sub
End Sub

هذا هو الكود الصحيح

رجاء المساعدة فى إكتشاف الخطا

وشكرا

يجب ادراج

Exit sub

عند حدوث الخطأ كالتالى

If Trim(Text2.Text) = "" Then

MsgBox "من فضلك إدخل رقم القرار ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "Message"

Text2.SetFocus

Exit sub

End If