ابوخليل

ينقل الى منتدى إكسل

الحل اننا نستعين باستعلام يضم الجداول جميعا وهو ما يسمى استعلام التوحيد انظر مثالك بعد التعديل db11.rar

المطلوب واضح اخي امهلني . إن شاء الله سأعد موضوعا خاصا بهذا الشأن .

الالغاء يكون كلي فكما بضغطة زر يتم اعداد الرواتب ايضا بضغطة زر اخرى يتم الالغاء حذف مرتبات rr.rar

تفقد مكتباتك

الاقتصار على استفسار واحد في المشاركة يجعل الشخص يتشجع للرد والعكس صحيح وبالنسبة لمشكلتك: فإن البيانات في جدول الرواتب بيانات تاريخية لا يمكن تغييرها ابدا وهذا هو الصحيح ولتلافي الاخطاء التي تحصل من معد الرواتب او السقط غير المقصود : فليس لك الا طريق واحد وهو حذف الشهر الذي تم اعداده ثم الحاقه مرة أخرى بالتعديلات الجديدة

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

كل الطرق تؤدي الى نتيجة واحدة اما ان ترفق صورة بدون مسار فهذا ممكن ولكن بمجرد قفل النموذج تذهب من غير رجعة ويمكن جعلها ثابتة بشرط تغيير مسار الصورة في الخصائص وهذا لا يتأتى الا عند فتح النموذج على عرض التصميم ويمكن بالكود ترتيب عمل ذلك ، ولكن هذه الطريقة لن تعمل في mde والخلاصة : حتى لو فرضنا امكانية تحقق ذلك فمن غير المستحسن ادراج الصور وتضمينها داخل قاعدة البيانات فمن غير المستبعد ان 50 صورة فقط تستوعب طاقة قاعدة اكسس التخزينية وحتى لو كانت صورة واحدة او اثنتان كشعار ونحو ذلك ، فالمكان الافضل لها هو مجلد البرنامج في السطر الاخير اعلاه قد يبرز مطلب : المستخدم مثلا يضطر الى تغيير الصور عبر مجلد البرنامج والمطلوب ان يستبدلها من خلال زر داخل البرنامج

وعليكم السلام لماذا تلجأ الى هذه الطريقة؟ قد نجد طريقة لتحديث البيانات بدلا من ذلك هل جربت العبارة Docmd.Requery ؟

آمين وإياكم تمت الاجابة ،،،

هذه ليست ازرار كالتي وضعتها في مثالك هي عبارة عن جزئين 1- صورة 2- تسمية لاحظ في الخصائص عند القيمة علامة في التسمية تم كتابة اسم الصورة اعد محاولاتك وانا على يقين انك ستنجح

قد ذكرت لك ذلك رعاك الله ولديك حقلان آخران ايضا هما المنصب والخطورة ولا بأس في ظهور الحقول الاربعة في استعلام الراتب لاننا لن نستخدمهما . ولن تجري عليهما عمليات مستقبلا تم التعديل على المثال ويمكنك ملاحظة الحقول الجديدة المعدلة داخل استعلام الالحاق ( فقط زيادة حرف X ) dd11.rar

compile error:user defined-type not defined تخرج هذه الرسالة عندما يكون هناك نقص في المكتبات والمكتبة الناقصة عندك هي microsoft office Opject library ' بالطبع ضروري ولو استبدلت المتداد بــ * النجمة لظهرت معك جميع الملفات

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

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

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

جاري التحميل ... المثال ثقيل جدا جدا سيستغرق التحميل 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