ابوخليل

جاري التحميل ... المثال ثقيل جدا جدا سيستغرق التحميل 30 دقيقة

ههههه وهل هناك مؤهل اسمه مقطوع كما ذكرت لك في مشاركتي السابقة يجب ان تكون البيانات حقبقية لكل شخص لانك قد تحتاج في وقت ما تقريرا عن بيانات شخص معين مثلا بياناته الاكاديمية او الاجتماعية بغض النظر عن استحقاقاته المالية . والحل ايضا هو ما بينته لك حيث سيكون الحقلان كالتالي : حقل المؤهل tahseeDnrX: IIf([typ_R]=2;0;[tahseeDnr]) حقل الطعام eatX: IIf([typ_R]=2;0;[eat]) لاحظ تسمية الحقلين اختلفا عن السابق وعلى ذلك يلزمك تتبع المسميات وتعديلها في الاستعلام الإلحاقي وغيره ان وجد

وعليكم السلام يابو عبدالرحمن المثال تالف ، حاول ارفاق المثال السليم

وعليكم السلام الصق هذه الاكواد في وحدة نمطية عامة Public Function CheckLinks(ByVal strDBPassword As String) As Boolean ' Check linked tables relink if necessary. Returns true if ' links are okay (or links are successfully refreshed). On Error GoTo CheckLinksErr Dim tdf As TableDef Dim strNewMDB As String Dim fd As FileDialog ' Loop through each table in the current database. For Each tdf In CurrentDb.TableDefs If UCase(Left(tdf.name, 6)) <> "COMPAS" Then ' Check whether this table is linked (connect string not blank) ' and whether its link is broken (no fields in the Fields collection). If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then ' If we don't have an MDB name yet, display a message and ' then ask the user to pick a new file. If Len(strNewMDB) = 0 Then Call MsgBox("ملف قاعدة البيانات قد تم نقله أو إعادة تسميته.للمواصلة الرجاء تحديد ملف البيانات.", vbCritical) ' Create a FileDialog object. Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd ' Set dialog box properties. .AllowMultiSelect = False .InitialFileName = CurrentDBFolder() .Filters.ADD "Access Database File (*.mdb)", "*.mdb", 1 .Title = "Select Back-End Data File" .ButtonName = "Link Tables" ' Show the dialog box. If .Show = False Then ' User clicked Cancel. Exit Function Else ' Selected file is in the SelectedItems collection. strNewMDB = .SelectedItems(1) End If End With End If ' Refresh the link using the selected back-end database. If (IsNull(strDBPassword) = True) Or (strDBPassword = "") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword End If tdf.RefreshLink End If End If Next tdf CheckLinks = True ' Relinking was a success. CheckLinksDone: Exit Function CheckLinksErr: MsgBox "Error #" & err.Number & ": " & err.Description, vbCritical Resume CheckLinksDone End Function Public Function CurrentDBFolder() As String ' Returns the folder of the currently open database. Dim strPath As String strPath = CurrentDb.name ' Keep removing the rightmost character until it is a backslash. Do While Right$(strPath, 1) <> "\" strPath = Left$(strPath, Len(strPath) - 1) Loop CurrentDBFolder = strPath End Function ثم الصق هذه في نموذج البداية Private Sub Form_Load() On Error Resume Next If CheckLinks("") = False Then Call Application.Quit End If Dim tdfs As DAO.TableDefs Dim tdf As TableDef Dim sSourceDB As String Dim sBackupDB As String Dim backDBName As String Set tdfs = CurrentDb.TableDefs Set tdf = tdfs(tdfs.Count - 1) sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10) backDBName = Dir(mID(tdf.Connect, 11)) sBackupDB = mID(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) ' Exit Sub End Sub

الحقل الذي عملته في النموذج هرمي ، مقطوع صحيح مع ملاحظة جعل نوعه رقمي : 1; هرمي;2;مقطوع ولكن يجب ايضا ان يكون منضما اي تنشء له حقلا رقميا في جدول الموظفين ولست بحاجة الى كتابة اكواد لاخفاء الحقول بل البيانات تسجل طبيعيا كما هي الى هنا انتهينا من النموذج والجدول بقي التمييز بينهم عند اعداد الرواتب وهو ما صنعناه انفا فالذي سيحمل رقم 2 من الموظفين في حقل نوع الراتب لن يدرج له اي اضافات والعملية ستكون في استعلام الرواتب باستخدام الدالة iif خذ مثلا كيف ستكون حقول الاستعلام بعد التعديل هذا الخاص بمخصصات القدم في الخدمة : kedam: IIf([typ_R]=2;0;([asasi]/100*5)*Int(DateDiff("d";[t_date];Date())/365.25)) وهذا حقل مخصص آخر m3: IIf([typ_R]=2;0;IIf([taf]=1;[asasi]*0.05;0)) باعتبار [typ_R] هو حقل نوع الراتب الذي انشأناه في جدول الموظفين وهكذا اعمل ببقية المخصصات داخل الاستعلام المذكور وكذا لن تكون بحاجة الى جداول وتقارير اضافية وفقك الله ،،،

لا تيأس انظر هنا برنامج بلمسات احترافية ضمن مجموعة اخونا احمد شوقي رحمه الله http://www.officena.net/ib/index.php?showtopic=20063#entry91529

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

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

تم تحقيق طلبك الاول كلمة المرور = 1 الاقساط و التقسيط2.rar

بارك الله فيك ووفقك لكل خير

من حقك اخونا محمد وتستاهل الله يوفقك لكل خير

تم التعديل بحيث عن طريق نموذج 2 يفتح نموذج1 على السجل المحدد فقط ج.rar

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

بل ان الجمع بين جدول employees وجدول الرواتب اقرب وافضل

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

تفضل اخي الكريم هذا مثال يشتمل على الكود الذي طلبته وقد تم ضبطه على ثلاث سجلات ويمكنك تغيير الرقم داخل الكود كما تشاء Example1.rar

المطلوب بحاجة الزيادة ايضاح فلو جعلت في المثال بيانات كافية تدل على المطلوب ؟

يمكننا الحصول على العدد من الجدول مباشرة Me.dorat = DCount("id", "table2", "id='" & Me.id & "'") om4.rar

الحمد لله ، ولك بمثل مادعوت

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

جلب بيانات قارىء البصمة الى جدول في اكسس يختلف قليلا من جهاز الى آخر ( حسب الشركة المصنعة ) غالبا الوحدات النمطية الخاصة بالربط تأتي ضمن التعليمات داخل علبة الجهاز

جرب : احذف الجداول المرتبطة ثم اعمل لها ربط من جديد لسان التبويب جداول / جديد/ ربط واذا لم تصل الى حل فلا بأس ان تعيد تنصيب اوفيس

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

عدل في سطر الرسالة لتصبح هكذا : MsgBox "الكتاب تالف في عملية الجرد رقم" & G_N

استبدل الكود المعدل بهذا : Dim rs As Object Me.Requery If Me.CaseBook.Value = "فاقد" Then MsgBox "الكتاب فاقد في عملية جرد سابقة" ElseIf Me.CaseBook.Value = "تالف" Then MsgBox "الكتاب تالف في عملية جرد سابقة" Else Me.G_N = DMax("no_Gard", "T_Gard") End If