الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

التعديل على البيانات باستخدام الكود

مغلقمُجاب
بدأه السيد الجوهرى في 1 مارس 2013 · 2 رد · 641 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

مرفق  مثال للتعديل علية

عند البحث عن موظف باستخدام رقم الموظف  1   أو  2  أو  3

لاتوجد  اى مشاكل  ولكن عند التعديل  على بيانات الموظف  رقم 1  يتم التعديل    رقم 1   ولا توجد مشاكل

وعند التعديل  على رقم  2 او  3  او اى رقم  لايتم التعديل  على نفس  الرقم  بل يتم التعديل  على الموظف رقم 1

 

ارجو تصحيح الكود

على ان يتم التعديل على نفس رقم الموظف المستعلم عنة

 

s_employee.rar

 

Set q = CurrentDb.OpenRecordset("SELECT * FROM employee;")
If IsNull(txtno) Then
Beep
txtname.SetFocus
Exit Sub
End If
q.edit
'q!no_employee = txtno
q!name_employee = txtname
q!national_id = txtnid
q!gender = compogender
q!date_of_birth = txtdatebirth
q!contry = txtcantry
q!city = textcity
q!address = txtaddress
q!date_start = txtstartdate
q!qualificaion = txtqolficaiton
q.Update
'txtno = Null
txtname = Null
txtnid = Null
compogender = Null
txtdatebirth = Null
txtcantry = Null
textcity = Null
txtaddress = Null
txtstartdate = Null
txtqolficaiton = Null
    MsgBox "تمت عملية التعديل على البيانات بنجاح", vbCritical, "برمجة السيد الجوهرى"

End Sub
#2 أفضل إجابة

تفضل اخي الكريم

 

الكود سيكون بهذه الطريقة

 

 

Private Sub edit_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
If IsNull(Me![txtserch]) = True Then
MsgBox " فارغ  " & " [ " & " !!! " & " ] " & "ادخل الرقم القومي", vbCritical, "تنبيه"
txtserch.SetFocus
Exit Sub
End If
 
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM employee WHERE employee.no_employee ='" & Me.txtno & "'", dbOpenDynaset)
If IsNull(txtno) Then
Beep
txtname.SetFocus
Exit Sub
End If
 
With rs
.edit
 
!name_employee = txtname
!national_id = txtnid
!gender = compogender
!date_of_birth = txtdatebirth
!contry = txtcantry
!city = textcity
!address = txtaddress
!date_start = txtstartdate
!qualificaion = txtqolficaiton
.Update
End With
rs.Close
Set rs = Nothing
Set db = Nothing
 
MsgBox "تمت عملية التعديل على البيانات بنجاح", vbCritical, "تنبيه"
 
txtno = ""
txtname = ""
txtnid = ""
compogender = ""
txtdatebirth = ""
txtcantry = ""
textcity = ""
txtaddress = ""
txtstartdate = ""
txtqolficaiton = ""
 
End Sub

za-employee-UP.rar

تم تعديل هذه المشاركة بواسطة zahrah في 1 مارس 2013 في 01:32

2

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#3

شكرااا   جزيلا  

 

دائما وابد نستفيد  من افكار الاخت /  زهرة

 

جزاها الله  عنا خير الجزاء

هذا الموضوع مغلق.

مواضيع مشابهة