بحث مخصص من جوجل فى أوفيسنا
Custom Search
  • اعلانات

    • محمد طاهر

      الكلمات المفتاحية   10 يون, 2017

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

Shivan Rekany

الخبراء
  • Content count

    2,110
  • تاريخ الانضمام

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

  • Days Won

    74

Shivan Rekany last won the day on June 24

Shivan Rekany had the most liked content!

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

1,484 Excellent

عن العضو Shivan Rekany

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    ملاحظ
  • Location
    كوردستان / دهوك

Contact Methods

  • Website URL
    https://www.facebook.com/Shivan1988
  • ICQ
    shivanrekany212@gmail.com
  • Yahoo
    Shivan_rekany212@yahoo.com

اخر الزوار

3,029 زياره للملف الشخصي
  1. اليك هذا test1000.rar
  2. اليك هذا Private Sub تدقيق4_Click() If Time() >= #12:00:01 AM# And Time() <= #4:00:00 AM# Then Me.test1 = Date - 1 Else Me.test1 = Date End Sub test1001.rar
  3. كل عام وانتم بالف خير عيدكم سعيد
  4. اتفضل اليك هذا Private Sub Form_Current() If Len(Forms!frm_mowadef!subfrm!Daira & "") = 0 Then Forms!frm_mowadef!subfrm!Daira.Visible = False Else Forms!frm_mowadef!subfrm!Daira.Visible = True End Sub والمرفق بعد تعديل db2 (2).rar
  5. اتفضل اليك هذا الكود Private Sub Form_Current() If Len(Me.Daira & "") = 0 Then Me.Daira.Visible = False Else Me.Daira.Visible = True End Sub لكن هناك سؤال مثلا رحت علسجل جديد وهو خالي من البيانات اي سيكون مخفية كيف تعطيه البيانات فيه ؟ واليك القاعدة بعد اضافة كود الاعلاه db2 (2).rar
  6. في المرفق بها طريقتين طريقة لنماذج تيست و تيست 2 واخرى لنموذج فورم 1 و فورم 2
  7. اعمل استعلام الحاقی لكن في المرفق المعلومات الرواتب لاشخاص الثلاثة ليس موجودة لذا يجب ان تأخذ البيانات الثلاثة من جدول المعلومات الرواتب بعدين تعمل استعلام الحاقي عيد سعيد
  8. اليك هذا test1000.rar
  9. اسف نسيت ان ادرج في الكود جدول اي دي لكن يتغير في جدول الاخر اتفضل اليك هذا سيتغير في كل الجداول Private Sub serial_AfterUpdate() On Error Resume Next Dim TeadilMyName As String TeadilMyName = "UPDATE ID INNER JOIN SUB ON ID.id1 = SUB.id SET ID.serial = [Forms]![DataMasterForm]![serial], SUB.serial = [Forms]![DataMasterForm]![serial] WHERE (((ID.id1)=[Forms]![DataMasterForm]![id]));" DoCmd.SetWarnings False DoCmd.RunSQL (TeadilMyName) DoCmd.SetWarnings True DoCmd.RunCommand acCmdSaveRecord End Sub اليك مرفق test444.rar
  10. انا ما عملت اي شيء لزر ستارت انا عملت كود عند تحديث الاسم
  11. اليك هذا الفيديو على التعديل ولم يظهر اي رسالة في القاعدة المرفقة Video_2017-06-24_053847.rar
  12. انت عملته على قاعدة اخرى ... وذلك الجدول لا يسمح التكرار لذا اعمل تعديل على الجدول او غير اسم الى اسم اخر مثلا ليس يكون موجودة في جدول والا ارفق القاعدة اللي تعمل عليه انت
  13. اعمل استعلام الحاقي حسب ماتريد بشروط او بدون شروط اي تريد ان تلحق كافة سجلات بدفعة واحدة ام السجل واحد اي سجل جديد بعد تحفظه ان يتم الحاق
  14. اتفضل اليك هذا الكود Private Sub serial_AfterUpdate() On Error Resume Next Dim TeadilMyName As String TeadilMyName = "UPDATE SUB SET SUB.serial = [Forms]![DataMasterForm]![serial] WHERE (((SUB.id)=[Forms]![DataMasterForm]![id]));" DoCmd.SetWarnings False DoCmd.RunSQL (TeadilMyName) DoCmd.SetWarnings True End Sub مع ملف بعد تعديل test444.rar
  15. لاكمال ما عملت في القاعدة اولا عملت اضافة حقل لمصدر كومبوبوكس وعدلت في خصائص كومبوبوكس