أبو هادي

السلام عليكم كذلك تستطيع عمل زر وتضع فيه أمر فتح مدير الجداول المرتبطة : DoCmd.RunCommand acCmdLinkedTableManager ومنه يستطيع المستخدم تبديل الروابط بكل سهولة . تحياتي .

السلام عليكم نعم أخي عبدالله سليمان ، المشكلة قائمة وقد أمضيت وقتا طويلا للتعرف على المشكلة وتأكدت أن المشكلة من برنامج الماسح نفسه . يعني المشكلة ليست من الكود وليست بسبب خطأ في استخدامه . كما أني بحثت عن استخدام الدوال بالنت وتيقنت أن استخدامها سليم 100% . وكما نوهت سابقا من لديه أي برامج للماسح أكثر إمكانية ومواصفات فسيحصل على نتائج أفضل وسيكون بمنأى عن مشكلات الأخطاء . تحياتي .

السلام عليكم أخي عبدالله سليمان .. سوف أقوم بفحص المشكلة في الفقرة 3 واسمح لي على تجاوز الفقرتين السابقتين . تحياتي .

السلام عليكم تم بحمد الله حل أكبر مشكلة بالبرنامج وتم تبديل المرفق القديم بآخر جديد في المشاركة الأولى للموضوع . تحياتي .

السلام عليكم يمكنكم استخدام دالة UmDate للحصول على تاريخ اليوم حسب أم القرى كالتالي : UmDate(True) 'لإرجاع تاريخ بشكل نص . UmDate() 'لإرجاع تاريخ بشكل رقم وعليك بضبط خاصية التنسيق . كما يمكنكم استخدام دالة UmFormat للحصول على إسم اليوم كالتالي . UmFormat(Date(),"ddd") أو بهذه الطريقة : UmWeekdayName(UmWeekday(Date())) تحياتي .

السلام عليكم أنا أيدت أضافة 1 على ناتج الطرح وهي نفس ما توصلت إليه أنت فما المشكلة في ذلك ؟! كما أن اقتراح أخي رضوان مع احترامي وتقديري الشديدين له هو مجرد رأي شخصي له ولكنه ليس مبنيا على حقيقة علمية ، فمن أين جاءت الأفضلية للدالة وعلى أي أساس ؟ فدالة DateDiff مجرد دالة تستخدم داخلها الطرح والجمع بين التواريخ وهي أبدا لا تضيف واحد عند طرح تاريخين بنفس القيمة وعليكم التجربة . تحياتي .

السلام عليكم بعد إذن أخي رضوان ، هناك أيضا مثالا لإخفاء الكائنات للأستاذ حارث : http://www.officena.net/ib/index.php?showt...indpost&p=26981 تحياتي .

السلام عليكم لأن خصائص عرض الملفات على جهازك يعرضها بالإمتداد التابع لها ، وعند تسميتها تنسى أن تكتب الإمتداد حيث لا يمكن لنظام التشغيل التعرف على نوعية الملف بدون امتداد . عليه عند التسمية لا تنسى أن تضع الإمتداد بعد الإسم مثل Sample.mdb . تحياتي .

السلام عليكم أخي كل أنواع الحماية لن تحميك ممن احترف الأكسس أما للمستخدمين غير محترفي الأكسس فيمكنك أن تستخدم أنواع كثيرة للحماية ، تستطيع أن تبحث عنها بالمنتدى ومنها إخفاء الجداول . أما الحجم فحاول تستخدم دائما بين فترة وأخرى ضغط البيانات عن طريق : Tools Database Utilities Compact and Repair Database كما لا أنصح بحفظ الصور بقاعدة البيانات والأفضل أن تخزنها في مجلد على الخادم وتستطيع استدعاؤها وطريقتها سهلة جدا ويوجد أمثلة كثيرة عليها بالمنتدى ، إبحث عنها . تحياتي .

السلام عليكم لقد عكست الفكرة عزيزي فالواجهة هي التي يجب أن تكون على جهازك والبيانات تكون على الخادم . وهناك طريقتان لفصل قاعدة البيانات : 1 - عن طريق معالج الأكسس نفسه والوصول إليه عن طريق : Tools Database Utilities Database Splitter 2 - يدويا كالتالي : خذ نسخة احتياطية أولا واتركها بعيدا عنك . عمل نسختين من البرنامج . النسخة الأولى أحذف منها كل المكونات ماعدا الجداول والعلاقات ولتسمها على سبيل بـ Employees_Data وهذه النسخة تسمى بـ Back-end . النسخة الأخرى أحذف منها الجداول ثم قم بربط جداول النسخة الأولى بها والوصول إلى الربط عن طريق : File Get External Data Link Tables ولتسمها على سبيل المثال بـ Employees وهذه النسخة تسمى بـ Front-end . حاول وإن لم تستطع اطلب المساعدة مرة أخرى والأخوة سوف يدلوك على الخطوات الفصيلية كما ترغب إن شاء الله . تحياتي .

السلام عليكم - يجب إنزال الواجهة Front-end على كل الأجهزة وليس الإختصارات Icons لأصل البرنامج . ففي الأولى سوف يتم استدعاء البيانات فقط من الخادم أما في الأخرى سيتم استدعاء كل مكونات البرنامج من شاشات ورسومات وما شابه مما يسبب بطئا كبيرا في الشبكة . - تأكد كذلك أن ملفات البيانات Back-end قد حولت كذلك إلى نفس الإصدار الأحدث . هذا ما أتوقعه وإذا كان غير ذلك فاستعن بفني شبكات . تحياتي .

السلام عليكم بعد إذن أخي ابو طيف .. ما توصلت إليه أنت هو الصحيح وما أشارت عليك به زميلتك خاطئ . فالمدة بين تاريخين ( للإجازات ) يحملان نفس القيمة هي يوم واحد وليس صفرا ، والصفر سينتج منطقيا دون تسجيل أي سجلات أو تواريخ . فلماذا سنسجل تواريخ لإجازة لم تحدث ؟! تحياتي .

السلام عليكم جرب المثال المرفق مرة أخرى . مع ملاحظة أنه تم التعديل على الجدول . تحياتي . AutoNum2.rar

السلام عليكم المثال بعد التعديل . تحياتي .

السلام عليكم Private Sub الاسم_AfterUpdate() Dim Max As Long Dim Num As Long Max = 15 Num = DMax("[رقم]", "tb") + 1 Me.رقم= IIf(Num Mod Max = 0, Max, Num Mod Max) End Sub تحياتي .

السلام عليكم كما أوضحت لك سابقا في مشاركتي قبل الأخيرة ، بعد أن تحصل على الترقيم بالطريقة التي تختارها تخضعها للمعادلة التالية : المسلسل = IIf(المسلسل Mod 1000 = 0, 1000, المسلسل Mod 1000) أما إذا قصدت الترقيم التلقائي AutoNumber كحقل فانسى الأمر حيث لا يمكن التعديل عليه البتة . تحياتي .

السلام عليكم أرجو مراجعة هذا الرابط : http://www.officena.net/ib/index.php?showt...findpost&p=4872 مع اعتذاري بعدم استطاعتي التعديل على أمثلة الأعضاء أو عمل أمثلة جديدة وستقتصر مشاركاتي في نطاق الحث والتوجيه أو بالإشارة إلى مواضيع ذات صلة في حال كانت المعلومة متوفرة لدي تحياتي .

السلام عليكم بعد الحصول على المسلسل الجديد باستخدام دالة DMax والموجود أمثلة كثيرة عليها بالمنتدى وبافتراض أن المسلسل اسمه ID استعمل السطر التالي : IIf(ID Mod 1000 = 0, 1000, ID Mod 1000) بالتوفيق . تحياتي .

السلام عليكم [text1] هو إسم حقل إفتراضي ، بدله بإسم الحقل لديك . تحياتي .

السلام عليكم بارك الله فيك أختي زهرة على هذه الأسبقية والمعلومات الجميلة . تحياتي .

السلام عليكم من قاعدة بيانات أخرى ضع هذا الكود في وحدة نمطية بدل المسار وإسم القاعدة الهدف ثم شغل هذا الإجراء : Private Sub SetProperties() Dim dbs As Database Dim prp As Property On Error Resume Next 'Set dbs = CurrentDb Set dbs = DBEngine.Workspaces(0).OpenDatabase("C:\Officena\Contacts.mdb") dbs.Properties("AllowBypassKey").Value = True If Err.Number <> 0 Then Set prp = dbs.CreateProperty("AllowBypassKey", dbBoolean, True) dbs.Properties.Append prp End If Set dbs = Nothing End Sub تحياتي .

السلام عليكم لا أعرف سبب محدد ولكن أخمن أن يكون خروج قسري/غير مسموح به من القاعدة أو نظام التشغيل . أخي حاول أن تنشئ قاعدة بيانات جديدة ثم محاولة استيراد كائنات القاعدة القديمة ، ربما تنجح المحاولة . تحياتي .

السلام عليكم القديم : Private Sub med_AfterUpdate() With Me.work_2.Form .Filter = "[period_no]" & " Like '" & Me.period_no & "'" .FilterOn = True End With End Sub Private Sub med_DblClick(Cancel As Integer) Me.work_2.Form.FilterOn = False Me.period_no = Null End Sub Private Sub txtSearchText_Change() Dim SearchText As String Dim FieldName As String Me.txtSearchText.SetFocus SearchText = Nz(Me.txtSearchText.Text, "") If SearchText <> "" Then Select Case Me.OptSearch Case 1: SearchText = SearchText & "*" Case 2: SearchText = "*" & SearchText & "*" Case 3: SearchText = "*" & SearchText End Select End If FieldName = "[" & Me.CmbFields & "]" Me.work_2.Form.RecordSource = _ "SELECT * " & _ "FROM work " & _ IIf(SearchText = "", "", "WHERE " & FieldName & " Like '" & SearchText & "' ") & _ "ORDER BY [no_center];" LastSearchText = Nz(Me.txtSearchText.Text, "") End Sub الجديد : Private Sub med_AfterUpdate() With Me.work_2.Form '.Filter = "[period_no] Like '" & Me.period_no & "'" .Filter = "[period_no] Like " & Me.med .FilterOn = True End With End Sub Private Sub med_DblClick(Cancel As Integer) Me.work_2.Form.FilterOn = False 'Me.period_no = Null 'Me.med = Null Me.ActiveControl = Null End Sub Private Sub txtSearchText_Change() Dim SearchText As String Dim FieldName As String Me.txtSearchText.SetFocus SearchText = Nz(Me.txtSearchText.Text, "") If SearchText <> "" Then Select Case Me.OptSearch Case 1: SearchText = SearchText & "*" Case 2: SearchText = "*" & SearchText & "*" Case 3: SearchText = "*" & SearchText End Select End If FieldName = "[" & Me.CmbFields & "]" Me.work_2.Form.RecordSource = _ "SELECT * " & _ "FROM work " & _ IIf(SearchText = "", "", "WHERE " & FieldName & " Like '" & SearchText & "' ") & _ "ORDER BY [no_center];" LastSearchText = Nz(Me.txtSearchText.Text, "") If Nz(Me.med) <> "" Then Call med_AfterUpdate '-- إضافة جديدة --' End Sub أعتقد أن هناك فرق أخي shatat . تحياتي .

السلام عليكم راجع أخي ملف الموظفين فقد يكون لديك تكرار للموظف !. علما أن الحقول التي تضاف على الإستعلام من ملف العمليات هي حقلان فقط ، تاريخ العقاب وأيام العقاب ، وإضافة أي حقل آخر قد يخلق لك تكرارا ، فاحذر تسلم :( . راجع بياناتك مرة أخرى وأخبرنا بالنتائج .

السلام عليكم للأسف الشديد يبدو لي أن قاعدة البيانات في الباي باي فالرسالة تشير إلى فقدان أحد ملفات النظام . ولكنك قد يمكنك استرجاع كل أو جز؟ من البيانات عن طريق أحد البرامج الموجودة بالمنتدى والتي مهمته التعامل مع قواعد البيانات المتضررة واسترجاع ما يمكن استرجاعه من بيانات مخزنة بها . ملاحظة : النسخ الإحتياطية في العمل ضرورية جدا بشكل يومي وأحيانا نحتاج إلى عملها أكثر من مرة باليوم إذا كان حجم الإدخالات كبير ، بالتوفيق . تحياتي .