11-08-14, 12:25 PM
سلام عليكم ورحمة الله
بغيت كود لي رقم الموظف لمه احطه يطلع انه الرقم موجود ..
بغيت كود لي رقم الموظف لمه احطه يطلع انه الرقم موجود ..
كود رقم موجود
|
11-08-14, 12:25 PM
سلام عليكم ورحمة الله
بغيت كود لي رقم الموظف لمه احطه يطلع انه الرقم موجود ..
11-08-14, 12:38 PM
السلام عليكم
اخي الكريم بامكانك الاستفادة من المثال الموجود على الرابط التالي http://vb4arb.com/vb/thread-249.html يعطيك العافية (( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))
11-08-14, 02:56 PM
عزيز شكرا لك لكن المثال لا يوجد في الأكواد في هذا البرنامج انا بغيت بس لرقم موظف مجرد اريد اضافة رقم موظف يقولي انه الرقم موجود .. يعني المطلوب الكود .. الرساله انا ساقوم بكتابتها شكرا جزيلا لك
16-08-14, 05:17 PM
(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 اليك مثال صغير ... تحياتى لك .. |
|
المواضيع المحتمل أن تكون متشابهة . | |||||
الموضوع : | الكاتب | الردود : | المشاهدات : | آخر رد | |
[سؤال] كيف اربط الاكتف ريبورت مع data l موجوده بالفورم او مع مصدر بيانات موجود في الفورم | allobaed | 0 | 2,077 |
07-08-16, 01:38 AM آخر رد: allobaed |