الاخوة الكرام
السلام عليكم ورحمة لله وبركاته
كيف يمكننا استخدام هذا الاجراء الخاص بدالة فحص اضافة سجل جديد على قاعدة البيانات أم لا , وكيفة الاستفادة منها بتنفيذ اجراء اخر في الفورم كا اظهار و الاخفاء ....الخ
code
Sub NewRecordMark(frm As Form)
Dim intnewrec As Integer
intnewrec = frm.NewRecord
If intnewrec = True Then
MsgBox "You're in a new record." _
& "@Do you want to add new data?" _
& "@If not, move to an existing record."
End If
End Sub
عزيزي جزيرة الإسلام:
هذا إجراء وليس دالة وهو يقوم باستقبال متغير من نوع Form
والمهمة التي يقوم بها هذا الإجراء هو أنه عندما تستدعيه يتأكد من الخاصية NewRecord الخاصة بالنموذج فإذا كان النموذج في وضع الإضافة يظهر لك رسالة.
وهذا الإجراء أيضاً ببين لك مثال على استخدام الخاصية NewRecord الخاصة بالنماذج.
السلام عليكم ورحمة لله
اخي العزيز المزيني اشكرك على هذا التصحيح . بأنها اجراء و ليست داله
انا اعلم بأن الاجراء يتأكد من خاصية NewRecord فقط كيف يتم استدعئها .....؟
وأمل إن سمح لك الوقت بعمل مثال بسيط على كيفية استدعاء هذا الاجراء
مع خالص الشكر و التقدير
ولنردد اللهم انصر الاسلام والمسلمين واخمد نار فتنة اهل البدع والمشركين ..... امين يارب العالمين
تستأهل كل خير يا ابن جزيرة الإسلام وهذا مثال على كيفية استدعاء الإجراء NewRecordMark افتح النموذج وحاول إضافة سجل جديد وسترى أن الإجراء قد أستدعي.
السؤال هل المثال يعبر عن الأسلوب الأمثل لاستخدام هذا الإجراء في اعتقادي لا.فالأسلوب الأمثل تفرضه الفكرة التي تريد تطبيقها.
آمل أن أكون قد وفقت في الوصول لما تريد أخي الكريم.
السلام عليكم ورحمة لله
الاخ المزيني بتوفيق الله تم الاستفادة ,
بارك الله فيك و جزاك سبحانه كل خير على هذا التجاوب وعلى جهودك المتميزة في هذا المنتدى .
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…