منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

بغيت كود لي رقم الموظف لمه احطه يطلع انه الرقم موجود ..

السلام عليكم

اخي الكريم بامكانك الاستفادة من المثال الموجود على الرابط التالي

http://vb4arb.com/vb/thread-249.html

يعطيك العافية

عزيز شكرا لك لكن المثال لا يوجد في الأكواد في هذا البرنامج انا بغيت بس لرقم موظف مجرد اريد اضافة رقم موظف يقولي انه الرقم موجود .. يعني المطلوب الكود .. الرساله انا ساقوم بكتابتها شكرا جزيلا لك

(11-08-14, 12:25 PM)abuadnan166 كتب : [ -> ]سلام عليكم ورحمة الله

بغيت كود لي رقم الموظف لمه احطه يطلع انه الرقم موجود ..

Private Sub cmdsave_Click()
If Trim(txtempid.Text) <> "" And Trim(txtname.Text) <> "" And Trim(txtaddress.Text) <> "" And Trim(txtphone.Text) <> "" _
And Trim(txtsalary.Text) <> "" Then
Set rsd = db.OpenRecordset("select * from info where empno='" & Trim(txtempid.Text) & "'")

'يتم باستخدام الدالة (chr) وتكون قيمتها من صفر الى 255 وتعيد الحرف الممثل للقيمة فى جدول ASCCII ، بمعنى عند تسجيل رقم سجل موجود سابقا سيتم اعلامك ان السجل موجود فعلا من خلال الرساله التاليه .
If rsd.RecordCount > 0 Then
MsgBox "Employee " & Chr(34) & Trim(txtempid.Text) & Chr(34) & " already exists.", vbApplicationModal + vbInformation, "Duplication Found"
txtempid.SelStart = 0
txtempid.SelLength = Len(Trim(txtempid.Text))
txtempid.SetFocus
Exit Sub
ElseIf rsd.RecordCount = 0 Then
rs.AddNew
If rs.EditMode = dbEditAdd Then
rs("empno") = Trim(txtempid.Text)
rs("name") = Trim(txtname.Text)
rs("address") = Trim(txtaddress.Text)
rs("phone") = Trim(txtphone.Text)
rs("salary") = Trim(txtsalary.Text)
rs.Update
MsgBox "Successfully added new employee data.", vbApplicationModal + vbInformation, "Done"
cmdclear_Click
End If
End If
Set rsd = Nothing
Else
MsgBox "Sorry,blank values cannot be saved.", vbApplicationModal + vbExclamation, "Incompleted Information"
txtempid.SetFocus
Exit Sub
End If
End Sub

اليك مثال صغير ...

تحياتى لك ..