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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : كود رقم موجود (/showthread.php?tid=3623)

كود رقم موجود - abuadnan166 - 11-08-14

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

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

RE: كود رقم موجود - abulayth - 11-08-14

السلام عليكم

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

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

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

RE: كود رقم موجود - abuadnan166 - 11-08-14

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

RE: كود رقم موجود - king2512010 - 16-08-14

(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

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

تحياتى لك ..