تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود رقم موجود
#1
سلام عليكم ورحمة الله

بغيت كود لي رقم الموظف لمه احطه يطلع انه الرقم موجود ..
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

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

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

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
تم الشكر بواسطة:
#3
عزيز شكرا لك لكن المثال لا يوجد في الأكواد في هذا البرنامج انا بغيت بس لرقم موظف مجرد اريد اضافة رقم موظف يقولي انه الرقم موجود .. يعني المطلوب الكود .. الرساله انا ساقوم بكتابتها شكرا جزيلا لك
الرد }}}
تم الشكر بواسطة:
#4
(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

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

تحياتى لك ..


الملفات المرفقة
.rar   قاعدة بيانات موظفين بسيطة.rar (الحجم : 9.43 ك ب / التحميلات : 54)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اربط الاكتف ريبورت مع data l موجوده بالفورم او مع مصدر بيانات موجود في الفورم allobaed 0 2,074 07-08-16, 01:38 AM
آخر رد: allobaed

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم