فعلا هذا ما كنت أقصده :confused:
شكرا استاذي / ابن مسقط :o
ومنكم نستفيذ ومالنا غنى خدماتكم القيمة جدا :)
مثال**الحفظ و التعديل و الحذف؟؟
مغلق
على العموم مشكورين
وجزاكم الله خير
أخوانى الأعزاء
حاولت كثيرا ألستفادة من البرنامج وخصوصا فى الجزئية الخاصة
بأنة أذا كان الرقم موجود يعطى رسالة تخذير ثم يعر ض البيانات
وقمت بأستيراد الجدوال والنماذج الى قاعدة جديدة وفارغة تماما
ولكن للأسف لم تعمل وأعطتنى هذة الرسالة
run-time errorr 13
type mismatch
مع العلم اننى لم اغير اى شىء
وحاولت كثيرا أن أستخدم الكود الموجود فى id بعد التحديث
فى أى قاعدة عندى ولكنها كانت تعطى خطأ ايضا
(f)
ممتاز
جزاكم الله خير
الأخ سمير
هل جربت استيراد الجدول والفورم
السلام عليكم ورحمة الله وبركاته
الأخ الكريم/ أبو شروق
أعتقد أنك تحتاج إلى إضافة مرجع 3.6 DAO إلى القاعدة التي تريد العمل عليها وبخلافه فأن الكود لن يعمل.
طريقة إضافة المرجع:
1- إذهب إلى نموذج في وضع التصميم
2- أختر قائمة Tools
3- ومنها أختر البند References
4- حدد المرجع DAO 3.6 كما تشاهده في الصورة أعلاه .
وأخيراً أنقر على زر Ok
وبإذن الله سوف يعمل الكود لديك.
ولك تحياتي
ابن مسقط
شكرا لكم جميعا بدون استثناء
عندي طلب بسيط
س / اضافة كود تكون وظيفته عدم القبول تخزين عدد اثنين دورة في نفس الفتره او تداخل بين الفترات بين الدورات وايضا الاجازات
وشكرا لكم جميعا
اسف انا وجدت هذا الكود لكن لم استطع ان اضعه في البرنامج هل من مساعد
وجزاكم الله خير
Dim txtlastdate
Dim txtlastname
If IsNull(DLookup("[txtname]", "ÌÏæá1")) Then Exit Sub
txtlastdate = DLast("[txtdate2]", "ÌÏæá1", "[txtname]=[forms]![ÌÏæá1]![txtname]")
txtlastname = DLast("[txtname2]", "ÌÏæá1", "[txtname]=[forms]![ÌÏæá1]![txtname]")
If Me.txtdate1 <= txtlastdate Then
MsgBox "ÇáãæÙÝ : " & txtname & " ãÓÌá ÍÇáíÇð Ýí ÏæÑÉ: " _
& txtlastname & _
" æÇáÊí ÓæÝ ÊäÊåí Ýí ÊÇÑíÎ : " & Format(txtlastdate, "dd mmmm,yyyy") & _
vbCrLf & " áÇ íãßä ÊÓÌíáå ÎáÇá ÃÓÊãÑÇÑå Ýí ÇáÏæÑÉ ÇáÓÇÈÞÉ ", 0, "ÊßÑÇÑ"
Application.SetOption "Confirm Record Changes", False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Else
End Ifالسلام عليكم ورحمة الله وبركاتة
الأخ العزيز / أبن مسقط
أتبعت نفس الخطوات ولكنى للأسف لم أجد DAO3.6
مع العلم أننى فتحت نموذج قى وضع التصميم وبحثت عنReferences
فى قائمة TOOLS
ولكننى حين فتحت صفحة الكود Microsoft visual basic
وجدت شىء مماثل تماما
لكننى وجدت الأتى microsoft DAO 3.5 objeect library
وقمت بأضافتة
ولكن ايضا لم يعمل ولاادرى لماذا
مع خالص الشكر والتقدير للأهتمامكم
(f)
وعليكم السلام ورحمة الله وبركاته
أخي الكريم/ أبو شروق
هل تستطيع إرفاق ملف القاعدة لكي أرى أسباب عدم عمل الكود لديك عن قرب ؟
أخي الكريم/ أبو شروق
الملف الذي أرفقته كان ينقصه بالفعل إضافة المرجع : Microsoft DAO 3.6 Object Library
ولذلك السبب لم يعمل لديك الكود.
الصورة في الأعلى تبين موضع ترتيب المرجع المذكور بين بقية المراجع.
فإذا لم تظهر الصورة أعلاه فستجد ملف الصورة مرفق في الأسفل للإحتياط.
والله يوفقك.
هل ارى التعديل المطلوب ومد يد العون للمساعده
وشكرا لكم جميعا ............. انا في الانتظار
الأخ الكريم / أبن مسقط
تمام البرنامج يعمل على خير وجة
شاكر لك الأهتمام وسرعة التلبية
وجعلة الله فى ميزان حسناتك
وشكرا للجميع
(f)(f)(f)(f)(f)
(f) الأخ العزيز / أبن مسقط
لى سؤال خطر على عند تفحص البرنامج وحاولت تجربتة أكثر من مرة
والسؤال هو : لماذا قمت بحذف من اسم الجدول علامة -
p-data وجعلتة pdata
ومن أسم الحقل الخاص برقم الملف _
FILE-NO وحعلتة FILENO
لأننى جربت الكود مرة ثانية بهذة العلامات - و _ ولم يعمل
وعندما قمت بحذفها عمل بشكل جيد
والله الموفق دائما للخير
والسلام عليكم ورحمة الله وبركاتة
وعليكم السلام ورحمة الله وبركاته
أخي الكريم/ أبو شروق
لا أعرف قاعدتها ولكن من خلال تجاربي السابقة مع الأكواد وجدت أنها لا تعمل بشكل سليم مع علامة - أو _
وكذلك مع الفراغات التي توجد في مسميات الجداول أو الحقول.
ولك تحياتي
ابن مسقط
هذا الموضوع مغلق.