ميلاد دمعة

البحث و الحذف بالوحدات النمطية

7 ردود في هذا الموضوع

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

كيف الحال و عساكم بخير

عندي سؤال سهل بس للأسف ما أعرف له :(

كيف أعمل بحث و حذف لسجلات في قاعدة بيانات

لكن عن طريق الوحدات النمطية و النماذج

يعني أدخل رقم موظف و يبحث عنه و يعطيني إمكانية حذفه إذا أردت

و بعدين كيف أقفل الوحدات النمطية ؟

و جزاكم الله خيرا :)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

يا جماعة تكفووووووووووووووون

ردوا علي

على الأقل أعطوني روابط

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

ميلاد دمعه

الله يكون في عونك

لا حياه لمن تنادي

القراءه 659 ولا واحد قدر يرد

حسبنا الله ونعم الوكيل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

الحقيقه هي مش إخفاء ولكنها حماية يعني تقدر تضع باسوورد عليه والي يقول أنا يفك الباسوورد هذا

شوف ياعمي افتح المشروع تبعك روح لأي نموذج عندك موشرط يكون مفتوح روح إلى تعليمات برمجية من الشريط أعلى بيفتح معاك محرر الفجول بيسك الحين بتلاقي على اليسار اسماء النماذج اظغط على اسم أي نموذج بالزر الأيمن للماوس ثم إختر

simple Properties

ثم روح على التبويب الثاني الي اسمه

protection

أول مربع حط عليه كلك والخانات الي تحت حط عليها باسووردك

وانتبه لا تضيع الباسوورد لأنك لو نسيته يفتح الله على مشروعك

أرجو أني أفدتك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

السلام للجميع/

بالنسبة لعملية حذف وتعديل السجلات عن طريق الكود تتم من خلال ما يسمى Recordset ويمكن الحصول عليها من خلال الأمر التالي:

Dim rs As Recordset
Set rs = CurrentDb().OpenRecordset("أسم الجدول أو الإستعلام")

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

وعادة ما تكون النتيجة هي عدة سجلات داخل rs فكيف يتم التنقل بينهم واللعب بحقول السجل، العملية بغاية البساطة، حيث يتم عمل أمر شبية بالــ Loop وهو الأمر الداخلي while و أختها wend، وسبب استخدامها هو لأجل إمكانية إضافة شرط بعد عبارة while في حال عدم استيفاءها يتم الخروج من الحلقة وهي كما يلي:

 
While Not rs.EOF

يتم كتابة الأوامر للتحكم يالسجل هنا

Wend

لحظ الشرط أعلاه وهي rs.EOF وهي تعني هل وصلنا لأخر شجل أم لا، وتم وضع عبارة not قبلها كي يتم عكس نتيجة EOF وهي تساوي flase حتى بلوغ أخر سجل، وأمر while يعمل فقط في حال كانت نتيجة التقيم true فبمجرد وضع not تصح العبار" أستمر في التدوير إدا كان rs لم يصل لأخر سجل.

وتنقسم الأوامر في rs إلى ثلاث أنواع أساسية وهي الإضافة والحذف والتعديل

rs.addNew
rs.edit
rs.delete

ويجب وضع الأمر rs.update بعد الإتهاء من التعديل أو الإضاف لتأكيدها

وفي حال الرغبة في تحديد سجل معين يتم تعديلة يكون ذلك من خلال rs.Fields(x) وقيمة x هي يا رقم الحقل حسب الترتيب أو اسم الحقل بين علامات تنصيص. وتم معادلة قيمته الحقل بإستخدام if ....then

if  rs.Fields(x).Value = y then
اعمل كذا وكذا
end if

ويمكن وضع عبارة rs.delete داخل الشرط فيتم حذف الملف

وهناك استخدام أخر rs.Fields(x).Value وهي تغير القيمة، فإذا ازلنا الــif... then من المثال السابق يتم تغير قمية الحقل (ملاحظة لازم تكتب rs.edit قبل تغير القمة و update بعدها)

rs.Fields(x).Value = y

وهذ شرح مبسط وليس كامل، أمل أن يستفاد منه

وفي الاسفل مثال يقوم بتعديل القيم لبعض الحقول

Public Sub update()

Dim rs As Recordset
Set rs = CurrentDb().OpenRecordset("اسم الجدول")
' الإستمرار في الدوران حتى أخر سجل
While Not rs.EOF
' قم تغير الرقم 2 إلى رقم الحقل بالترتيب حسب الجدول
If rs.Fields(2).Value = "x" Then
rs.Edit
rs.Fields(2).Value = "aaaaaaaaaaaaa"
rs.update
End If
' الذهاب للسجل التالي
rs.MoveNext
Wend
'إغلاق الإتصال
rs.Close


End Sub

وأتمنى للجميع التوفيق

أخوكم فراس ناصر

تم تعديل بواسطه Feras Nasser
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

الغريب في هالمنتدى انو ماكان هيك كان اول مايطرح موضوع تلاقي الترحيب والردود على الموضوع في حينة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

يا أخوان هذا المنتدى منتدى أخوي وليس تجاري ، بمعنى أخر ليس ألزاماً على الاعضاء التواجد بشكل يومي وكلاً مشغول في دنياه ، فأذا دخل للمنتدى ووجد موضوعك ورد فهذا تكرماً ولطفاً منه ، أما اذا لم يرد عليك أو حتى علي ، ليس لك حق أن تزعل أو تعتب عليه، ولو قرأت لأغلب مواضيعي لوجدت بأنها من دون ردود ومع ذلك لم ازعل ولكن استفيد من تجارب من قبلي واسئلتهم ودروسهم

تحياتي للجميع وأدعوا لمن غاب عنا ان يعود إلينا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .