اذهب الي المحتوي

أبو آدم

أوفيسنا
  • Content count

    3,276
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    28

أبو آدم last won the day on May 2

أبو آدم had the most liked content!

السمعه بالموقع

621 Excellent

عن العضو أبو آدم

  • الرتبه
    فريق الموقع
  • تاريخ الميلاد 17 يون, 1965

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مدير تنفيذي لشركة خاصة
  • بلد الإقامة
    المملكة الأردنية الهاشمية

اخر الزوار

4,018 زياره للملف الشخصي
  1. أبو آدم

    تصريح و بيان

    أحسن الله اليكم أخوتي الفضلاء شكرا
  2. أبو آدم

    حذف عنصر من مربع تحرير وسرد

    ليصبح الكود كاملا Dim strSQL As String Dim db As DAO.Database strSQL = ("DELETE * FROM Tbl_State WHERE [country] = '" & Me.country.Value & "'") CurrentDb.Execute strSQL Me.Requery
  3. أبو آدم

    حذف عنصر من مربع تحرير وسرد

    أخي العزيز بعد كود الحذف ضع العبارة Me.Requery
  4. السلام عليكم و رحمة الله ابتهج حين اقرأ اسمك يا حامل المسك ... رعاك الله ما وصفته يحدث أحيانا وقد يحتاج اليه الواحد منا احيانا حسب طبيعة الاحوال ففي فروع الشركات ( الفروع البعيدة عن الادارة ) يتم اللجوء في بعض الاحيان لهذه الطريقة ، حيث يتم تزويدهم بقاعدة بيانات متكاملة ، يقومون بتنزيل بياناتهم و ارسال نسخة من القاعدة للادارة ليتم توحيدها في قاعدة البيانات الرئيسية أرى أن تقوم بانشاء قاعدة جداول ( فارغة ) ، ثم قم و بموجب استعلام بالحاق بيانات قاعدة كل موظف - لكل جدول على حدا بالقاعدة الام مع اضافة حقل بكل جدول يثبت به اسم الموظف او رمزه لغايات الفرز و التدقيق مسأله تحتاج لبعض الدقة و الحذر ولكنها متاحه ونحن في العون ما استطعنا ...
  5. أخي العزيز شكرا لمشاركة المعلومة مع اخوتك
  6. أخي العزيز ان كنت قد احسنت الفهم عنك ... الكود الاول يوضع في حدث عدم وجود بيانات لكل تقرير على حدا ( يعمل جيدا ) الكود الثاني يوضع في حدث عند النقر لزر أمر الطباعة ، و اذا قرأت الكود تجد انه يتحدث عن فتح تقرير محدد ، فكيف سيعمل على عشرة تقارير ، أو أكثر من تقرير ؟
  7. الحمد لله الذي بفضله تقضى الحاجات
  8. أخي العزيز استخدم الكود التالي Private Sub Emp_ID_BeforeUpdate(Cancel As Integer) 'By Nart Lebzo for www.officena.net 05/05/2018 Dim db As DAO.Database Dim rs As DAO.Recordset Dim Answer As String Dim MyMsg As String MyMsg = "Employee number is not registered " & _ vbNewLine & "Would you like to add the new employee?" If DCount("*", "TBL_Employee", "Emp_ID=" & Me.Emp_ID & "") = 0 Then 'Display MessageBox Answer = MsgBox(MyMsg, vbQuestion + vbYesNo, "Unknown Number") If Answer = vbYes Then Set db = CurrentDb Set rs = db.OpenRecordset("TBL_Employee", dbOpenDynaset, dbSeeChanges) With rs .AddNew rs("Emp_ID") = Me.Emp_ID .Update .Close End With Set db = Nothing Set rs = Nothing DoCmd.OpenForm "FormEmployee", , , "Emp_ID =" & Me.Form.Emp_ID Else 'Code for No button Press DoCmd.Close acForm, Me.Name, acSaveNo Exit Sub End If Else End If End Sub تمت التجربة ويعمل بنجاح
  9. أبو آدم

    النسخ والاسترداد

    رفع الله قدرك و نفع بك ........................... و لا يفوتني هنا أن انوه بان ما تم تطبيقه هو حسب الطلب ( وما ادركنا منه ) ، لتحقيق حاجات معينة و هناك درجات من التعقيد و التفصيل حول المسائل الثلاثة المطروحة ، يمكن التداول معها حسب الحاجة فيمكن مثلا التعرف على مسار BE و التعامل مع النسخة الاحتياطية بطريقة و ادوات اخرى ان لزم ، و كذلك الامر في مسألة تحديد المسارات ، و الاحداث التي يمكن استخدامها لاطلاق الروتينات و الأكواد ، و كذلك الامر بالنسبة لتصفية و علاج تراكم النسخ الاحتياطية ، و ظروف و احوال استرداد البيانات و اعادة الربط بين القاعدة الاصلية و النسخ . و نحن في العون ما استطعنا ، و الله من وراء القصد ...
  10. أبو آدم

    النسخ والاسترداد

    أبا ياسين سؤلنا فأجبنا ... طلب منا فوفينا ما ادركنا و عملنا و الامر الآن بين يدي من يريد ان يستخدم الافكار ، فليفعل ما يشاء و كل يرى الأمور كما يشاء ليحقق حاجاته و نحن في العون ما استطعنا ، و الله من وراء القصد ...
  11. أبو آدم

    النسخ والاسترداد

    السلام عليكم أخي ابا زاهر تفضل كافة الطلبات اصبحت جاهزة نسخ احتياطي - تصفية النسخ الاحتياطية ( بين اعادة التسمية و الحذف ) - و اخيراً ... الاسترداد و التنقل بين النسخ أو القاعدة الاصلية دعوة بظهر الغيب ، تنفع أخاك .... و الله من وراء القصد .... .... NA_B&R Final.rar و ندعو لابنك ان يفرج الله عنك و عنه اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً اللهم رب الناس، أذهب الباس، واشفه وأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً
  12. أبو آدم

    النسخ والاسترداد

    السلام عليكم أخي ابا زاهر هل تريد أن ارفق لك التطبيق معدلا ....
  13. أبو آدم

    تصريح و بيان

    أحسن الله اليك أخي وائل
  14. أبو آدم

    النسخ والاسترداد

    السلام عليكم أخي ابا زاهر ليس لديه طلبات خاصة ... المهم تطبيق الفكرة بشكل عام ، و اذا ظهرت امور اخرى نعالجها باذن الله الكود المرفق كما هو خلف حدث عند النقر لزر أمر الاسترداد في التطبيق لديك Dim fdg As FileDialog, vrtSelectedItem As Variant Dim strSelectedFile As String Set fdg = Application.FileDialog(msoFileDialogFilePicker) With fdg .AllowMultiSelect = False .InitialView = msoFileDialogViewDetails .InitialFileName = Application.CurrentProject.Path & "\Backup" .Title = "Please select BackUp File" .Filters.Clear .Filters.Add "Access Databases", "*.MDB,*.MDE,*.ACCDB,*.ACCDE" .Filters.Add "All Files", "*.*" .ButtonName = "Restore" If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems strSelectedFile = vrtSelectedItem Next vrtSelectedItem Else MsgBox "You did not select a BackUp File." & _ vbNewLine & "The Restore process was stopped ... ", vbCritical, "Operation Stopped" Exit Sub End If End With Set fd = Nothing relinkTables (strSelectedFile) ثم انسخ الروتين التالي في محرر اكواد النموذج Public Sub relinkTables(NewPathname As String) Dim Dbs As Database Dim tdf As TableDef Dim Tdfs As TableDefs Set Dbs = CurrentDb Set Tdfs = Dbs.TableDefs 'Loop through the tables collection For Each tdf In Tdfs If tdf.SourceTableName <> "" Then 'If the table source is other than a base table tdf.Connect = ";DATABASE=" & NewPathname 'Set the new source tdf.RefreshLink 'Refresh the link End If Next 'Goto next table End Sub جرب و وافني بالنتيجة .... كل مرة تختار فيها نسخة للاسترداد و تتم العملية اذهب الى الجداول لترى ان مصدرها هو النسخة التى اخترتها .......
  15. أبو آدم

    النسخ والاسترداد

    السلام عليكم هل يمكن ان توضح لي مفهومك ( او حاجاتك .. ) بخصوص الاسترداد فالصور عديدة و الحاجات مختلفة شكرا ....
×