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

تعديل بيانات عن طريق DAO

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

أرجو من اخوتي الكرام إعلامي بطريقة تعديل سجل أو عدة سجلات عن طريق DAO والكود أدناه لعميلة الإضافة فقط ، فأرجو المساعدة مشكورين ...

Dim counter As String
Dim db As Database
Dim rst As Recordset

Set db = CurrentDb()
Set rst = db.OpenRecordset("Stock")
counter = Val(Me.From) - 1
Do While counter < Val(Me.To)
    counter = counter + 1
    counter = Format([counter], "0000000")
 With rst
 .AddNew
   rst!TicketID = counter
   rst!TicketDes = Me.TicketDes
   rst!userEntered = Me.userEntered
   rst!DateEntered = Date
   rst!TimeEntered = Time()
 .Update
 End With
Loop
End Sub
#2

أخي العزيز

عندما يكون لديك سجلات تحب التعديل عليها تستخدم بدلا من

AddNew

Edit

#3

بارك الله فيك

#4

ولكن كيف أستطيع تحديد سجل معين للتعديل ..

مثلاً يوجد لدي نموذج غير منضم بطريقة بحث معينة اجلب معلومات السجل حتى يتمكن المستخدم من رؤيتها في النموذج ، والمطلوب هو بعد أن يتم إحضار بيانات هذا السجل للنموذج (كيف أستطيع أن أقوم بعملية التعديل على هذا السجل بالذات)

الكود المرفق

Set db = CurrentDb()
Set rst = db.OpenRecordset("CustomerStock")
 With rst
 .Edit
   كيف أستطيع هنا أن أحدد ا لسجل الذي سأقوم بعملية التعديل عليه
   rst!Executed = Me.Executed
 .Update
 End With

مشكورين ولا عدمانكم

#5

اخي العزيز ....

حسب ما أفتهم انك تريد التعديل على سجل معين.

وفي هذه الحالة يجب ان يكون عن طريق شرط معين مثلآ

السجل الذي رقمه =10.

if rst!RecodNumber=10 then

الجمل البرمجية للتعديل

end if

حيث ان RecordNumber مثال على اسم الحقل

#6

مع التحية للجميع اخي الكريم ...

يمكن تحديد السجل التي ترغب تعديل بوضع الكرتيريا التالية بعد السب ركورد

Set db = CurrentDb()
Set rst = db.OpenRecordset("Stock")
     rst.FindFirst ("[TicketID]='" & Me.RecordNoTxt2 & "'")
rst.Edit
  rst!TicketID = counter
  ......الحقولالاخرى المطلوب تعديلها....
  ...........
  ..........
  .......
rst.Update

وبذلك يكون قد حددت السجل وعدلت المطلوب تعديله

وشكرا

تم تعديل هذه المشاركة بواسطة CompuTeam في 19 سبتمبر 2004 في 22:24

من يتهيب صعود الجبال _ _ _ _ _

compu.gif_ _ _ _ _ يعش أبد الدهر بين الحفر
#7

شكرا لكم جميعا وما قصرتم

وهذه طريقة أخرى تم تجربتها ..

Set db = CurrentDb()
Set rst = db.OpenRecordset("SELECT * FROM CustomerStock WHERE TicketID ='" & txtSearch & "'")
 With rst
 .Edit
   rst!Executed = Me.Executed
 .Update
 End With

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…