ابوخليل

اذا كانت الجداول اجنبية فالتكرار سيحصل الحل لمثل هذه الحالاات هو استخدام استعلام توحيد يجمع بينها .. شرط ان تكون الحقول المدرجة متشابهة ارفق مثالك .. فقط الجداول

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

هل الــ 6000 كي يبدأ العد منها ؟ .. اعتقد انها هي السبب جرب تضع اصفار قبلها ولا تنسى علامات التنصيص

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

ابوعبدالرحمن اسمح لي بمداخلة صغيرة المهم لدينا قاعدة البيانات التي تشتمل على البيانات وهي في موضوعك هنا قاعدة الجداول (وهنا يظهر اهمية تقسيم قاعدة البيانات) ، وحيث يتم اخذ نسخ لها اسبوعيا ، فالامر جيد وينتفي الخوف من ضياع البيانات .. اما تلف قاعدة البيانات الامامية (الواجهات ) فغير مهم ، لانه يوجد نسخة منها عند المبرمج وايضا نسخة عند العميل عندما قام بتنصيب البرنامج القصد من المداخلة هو لماذا نلزم انفسنا بما لا يلزم ؟

تفضل اخونا سامر تطبيق احترافي لفكرة الحضور والانصراف واحتساب الوقت .. عربون صداقة samer2.accdb

حاشا لله .. انا لا اقصد صاحب الموضوع بعينه ،،، وهذه اول زيارة ومشاركة له .. وكان علينا واجب الترحيب وانما الكلام للعموم .. وهم كثر .

اي مبرمج يعتمد فقط الساعات والدقائق في الحضور والانصراف .. مبرمج تنقصه الخبرة

طريقتي هي الصحيحة وجميع اجهزة الحضور على مستوى الكرة الارضية مبرمجة على هذه الطريقة

لا تسجل وقت الحضور او الانصراف بالساعات والدقائق استخدم التاريخ الكامل (جنرال ) = NOW()

ارفق مثالك ان اردت المساعدة من اخوانك ، وحاول يكون مقتصرا على التقرير والنموذج ومصدر البيانات فقط

ممكن فاذا لديك الهمة لتتعلم اكتب هنا : 1- البيانات التي يتم ادخالها 2- المخرجات التي يتم عرضها

عليكم السلام ورحمة الله وبركاته If Not IsNull(DLookup("wexdate", "wexpen", "wexdate=form!wexdate and wexname=form!wexname")) Then MsgBox "التاريخ مكرر" Undo End If تكرار المصاريف2.accdb

"UPDATE ZetMotor SET ZetMotor.Filter = [Forms]![frmZetMotor]![Fliter] where ZetMotor.CodeSayara = [Forms]![frmZetMotor]![CodeSayara]"

DoCmd.RunSQL "INSERT INTO Table1 ( check2 )SELECT [forms]![Form1]![Check1] AS Expr1" غير في التسميات كما عندك : الجدول والحقول على اعتبار check2 هو حقل نعم/لا في الجدول واذا كان نصي ستظهر القيمة -1 او صفر

القيمة في جدول آخر ام في الفورم (غير منضمة) ؟

تفضل تم معالجة الفكرة باستخدام طريقين 1- يفتح التقرير على الاستعلام الجدولي (الداخلي) كمصدر بيانات رئيسي يستقي البيانات من استعلام qrysumthisyear .. وهي بيانات السنة الحالية 2- حقول السنة السابقة في التقرير يتم جلبها من استعلام qrysumLastyear باستخدام الدالة DlookUp قد تلاحظ ثقلا قليلا عند فتح التقرير ولكنه يعد سريعا جدا فيما لو استخدمنا الدالة لجميع الحقول عملت لك نموذجا يجب ان يكون مفتوحا قبل فتح التقرير يشتمل على حقلين قيمتهما الافتراضية العام الحالي/العام المنصرم ... وهما المعيار لاستعلامي التحديد اتمنى ان يحقق حاجتك مثال3.accdb

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

لا اعلم لماذا وضعت تسميات الاعمدة حتى 24 .. والسنة 12 فقط تفضل تم تعديل رمز التاريخ واختصاره الى رقم الشهر فقط ... لأن السنة موجودة فعلا في عمود مستقل مثال2.accdb

يمكن العمل على نموذج واحد .. وتخصيصه هل هو للحذف فقط ام للادخال فقط ام للقراءة فقط .. عند النقر على احد الازرار : حذف/اضافة/عرض

جميل جدا ... وسنناديك بـــ مبرمج رايق .. بدلا من دروب مبرمج

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

تفقد مكتباتك انظر الصورة وما تم احاطته بالمربع الاحمر هو المسؤول عن مشكلتك لا حظ ان المكتبات لديك ستظهر بالرقم 11 وليس 16 بناء على اصدار اكسس لديك

شوف هذا الموضوع يتحدث عن الاستعلام الجدولي سوف تجد حل مشكلتك فيه باذن الله

بما ان عنوان الموضوع متفرد حيث يمكن البحث عنه وايجاده بسهولة مشاركة مع اخي موسى لإثراء الموضوع في المرفق يتم اخذ نسخة احتياطية كل اسبوع عند فتح النموذج ، بعد ان يتأكد البرنامج انها غير موجودة اسم النسخة عبارة عن : السنة + رقم الاسبوع خلال هذه السنة يتم البحث عن النسخة داخل المجلد .. وهنا نستغني عن الجدول لتسجيل النسخة Dim DBOld As String Dim DBNew As String Dim tstfile As Integer Dim frmtName As String '-------------------------------- Sub tstBakUp() Dim i, ii i = frmtName Dim MyFSO As New FileSystemObject, Pth As String, Fo As Folder, Fn As File Pth = CurrentProject.Path & "\tst" Set Fo = MyFSO.GetFolder(Pth) For Each Fn In Fo.Files If ii = i Then tstfile = 1 ii = MyFSO.GetBaseName(Fn) Next Fn End Sub '------------------------------------- Private Sub Form_Load() frmtName = Year(Date) & Format(DatePart("ww", Date), "00") DBOld = CurrentProject.Path & "\db1_Data.mdb" DBNew = CurrentProject.Path & "\tst\" tstBakUp If tstfile = 1 Then Exit Sub Else cpyDatbs End If End Sub '---------------------------------------- Sub cpyDatbs() On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = DBOld DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) Application.SetOption "Use Hijri Calendar", False NewFile = DBNew & "\" & frmtName & ".mdb" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Me.Requery Exit Sub End Sub نسخة احتياطية كل اسبوع.rar