كيف اجعل برنامجي يخبرني انه يوجد سجل بنفس الاسم عند الحفظ ؟؟

الفكره ببساطه

انك قبل تنفيذ امر الحفظ

اعمل بحث على محتوى ال textbox اذا كان موجود تطلع رسالة تحذيريه انه

مسجل من قبل

اذا لم يكن موجود تنفذ امر الحفظ للسجل

اخي السلام عليكم

متل ما حكا الاخ ياكو

انو تعمل عملية بحث عن الاسم باستخدام امر اس كيو ال

اذا كان موجود ما تعمل حفظ اعمل خروج وذا عمل حفظ

Private Sub Command5_Click(Index As Integer)

If Text1.Text = "" Or Text2.Text = "" Then

MsgBox "ÇáÑÌÇÁ ÇßãÇá ÇáÈíÇäÇÊ ", vbCritical + vbMsgBoxRtlReading, "ÊäÈíÉ"

Exit Sub

End If

rs.AddNew

rs.Fields("athen1") = Text1.Text

rs.Fields("athen2") = Text2.Text

rs.Fields("athen3") = Text3.Text

rs.Fields("athen4") = Text4.Text

rs.Update

MsgBox " Êã ÍÝÙ ÇáÇÓã " & Text1.Text, vbCritical + vbMsgBoxRtlReading, "ÊäÈíå"

rs.MoveLast: rs.MoveFirst

Label1.Caption = "ÇáÓÌá " & rs.AbsolutePosition + 1 & " ãä " & rs.RecordCount

Set rs = db.OpenRecordset("select * from sameer1", 2)

viwgrd

End Sub

الكود السابق هادا الكود في عملية الحفظ لديك

يمكن ان تعمل الاتي قبل عبارة rs.addnew

ان تضع على سبيل المثال وليس الحصر

for i=0 to rs.recordcount-1

if rs.Fields("athen1)"=text1.text then

exit sub

else

تكمل الكود السابق عادي

وان شالله اكون افدت

وشكرا الك

حسين

If Check_Before_ADD("Select Athen1 From sameer1 Where Trim(Athen1) ='" & Trim(Text1) & "'", rs) = False Then
   MsgBox "الاسم مسجل مسبقا", 48, "!"
Exit Sub
End If

Public Function Check_Before_ADD(Sql As String, Rc As ADODB.Recordset) As Boolean
If Rc.State = adStateOpen Then Rc.Close
   Rc.Open Sql, Cn, adOpenKeyset, adLockOptimistic

Check_Before_ADD = Rc.BOF
End Function

السلام عليكم عملت لك شوية تغييرات ارجو انك تستفيد منها

ashassuny كتب:

fon.rar

ashassuny كتب:

---------------------------------------------------------------------------------------------------------------

استاذي العزيز

السلام عليكم ورحمة وبركاته

استاذي احب ان اقدم لكم جزيل شكر والتقدير على ماتقدمه من دعم فني

والله يحفظكم ويرعاكم

ولكم مني فائق الاحترام والتقدير

تلميذك : سالم

السلام عليكم شكرا على واجب نحن في الخدمة

الحل المثل استخدام sql للاستعلام و استخدام دالة error اذا لم يجد السجل عند البحث