ابوخليل

تفضل حسب طلبك المرفق يشتمل على قاعدة البيانات وثلاث مجلدات Downloads2.rar

الصق هذا السطر في الحدث المناسب لحقل الآيبان وليكن بعد التحديث Odb_AccBanck = Right(Odb_AccBanckIBAN, 14) DB2.rar

هذه وحدة نمطية لإخفاء وإظهار ملف معين مهما كان نوعه وايضا ضمن موقع قاعدة البيانات الافتراضي Sub HideUnhideFile(pstrFilespec As String, pblnShowFile As Boolean) Dim FS As Object Dim F As Object Set FS = CreateObject("Scripting.FileSystemObject") Set F = FS.GetFile(pstrFilespec) If pblnShowFile Then F.Attributes = F.Attributes And (Not vbHidden) Else F.Attributes = F.Attributes Or vbHidden End If End Sub Private Sub CommandHide_Click() HideUnhideFile (CurrentProject.Path & "\kk.jpg"), False End Sub Private Sub CommandShow_Click() HideUnhideFile (CurrentProject.Path & "\kk.jpg"), True End Sub وهذا اقصر كود يمكنه القيام بالعملية هذا للإخفاء : Shell "attrib +h D:\xx.jpg" وهذا للإظهار : Shell "attrib -h D:\xx.jpg" علما ان الأفضل هو جعل الملفات المهمة ضمن مجلد واحد وتطبيق الفكرة على المجلد

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

شكرا استاذنا الكريم فكرة جميلة ولأن هذا الاجراء لن يعمل عند حماية تصميم البرنامج (mde ,, Accde) فالافضل ان كان يريد حمايته .. صنع زر للاغلاق خارج الإطار

اخي الكريم الموضوع قديم افتح موضوع بعنوان جديد مناسب ، وارفق برنامجك ، وحدد الفورم الذي يتم عليه الاضافة والتعديل

ارفع مثالك

واذا نظام الوندز عندك 64 بت جرب استبدال الجملة في اعلى المحرر Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long بهذه Private Declare PtrSafe Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long التغير هو فقط باضافة PtrSafe

هل جربت وفحصت المكتبات؟ اقصد هل اطلعت على مكتبات موجودة في المثال ولا توجد في برنامجك ؟

اين المرفق؟

ارفع مثال بالمشكلة ليتمكن اخوتك من تشخيصها عن قرب

الإخفاء يكون بعد الربط

تفضل من مكتبتي مثال لأحد اساتذتنا الفضلاء اخفاء المجلد عن طريق الكود.rar

الحل انك تعمل وحدة نمطية عامة تحمل قيمة الحقل ID بكذا تستطيع مناداتها من اي مكان من البرنامج تفضل المثال بعد التعديل Downloads.rar

اذا لم يعمل الزر استبدل الكود الموجود خلفه بهذا : DoCmd.RunSQL "UPDATE ta2, qry1 SET ta2.[تاريخ الانتهاء] = [qry1].[تاريخ الانتهاء], ta2.[رقم الفترة] = [qry1].[رقم الفترة] " & vbCrLf & _ "WHERE (((ta2.[no])=Int([qry1].[no])))" الامر هنا مباشر بدون وسيط

قبل تشغيل الزر خذ جولة على الجدول والاستعلام للتأكد من البيانات نقل المعلومات2.rar

السلام عليكم ان سمحتو لي احبتي بالمداخلة هذه محاولة باستخدام استعلام التحديث يمكن تؤدي الغرض نقل المعلومات2.rar

اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

هذا يلغي الرسائل Private Sub Form_Error(DataErr As Integer, Response As Integer) Response = acDataErrContinue End Sub

ايسر طريقة لمنع الحفظ التلقائي هو جعل خصيصة احد الحقول في الجدول : مطلوب=نعم بهذه الطريقة لن يتم حفظ السجل الا بعد تعبئة هذا الحقل طرفة في الحيل : اذكر واحد من الاخوة هنا قام بالتحايل على على هذه العملية بانشاء حقل في الجدول و يكون مخفي داخل النموذج وجعله مطلوب=نعم وعند النقر على زر الحفظ يتم تعبئته بقيمة = 0

شكرا ابا مهاب وكل عام وانتم بخير

اخي الكريم : في مواضيعك القادمة آمل ان تهتم بكتابة عنوان مناسب يصف الموضوع تم تعديل العنوان ثانيا : فكرتك في حفظ الملفات داخل قاعدة البيانات لا انصحك بها

تفضل قاعدة البيانات ومجلد الحفظ اجعل المجلد بجوار القاعدة Downloads.rar

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

قاعدة البيانات تحتوي على جدولين وفي اكسس لا يتم التعامل مع الجداول مباشرة ‘ فهي تعتبر مخزن فقط العمليات وضبطها تتم من خلال النماذج اشرح لي طريقة عملك بالتفصيل .. اي الخطوات التي تسير عليها ،، وان شاء الله اعمل لك الواجهات المناسبة