[king2512010]

(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

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

تحياتى لك ..