اذهب الي المحتوي
أوفيسنا

د.كاف يار

الخبراء
  • Content Count

    246
  • تاريخ الانضمام

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

  • Days Won

    4

د.كاف يار last won the day on سبتمبر 15 2019

د.كاف يار had the most liked content!

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

280 Excellent

12 متابعين

عن العضو د.كاف يار

  • الإسم الفعلي
    حسين كمال
  • تاريخ الميلاد 27 أغس, 1981

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

  • Gender (Ar)
    ذكر
  • Job Title
    طالب هندسة برمجيات | ماليزيا
  • البلد
    السعودية | ماليزيا

وسائل التواصل

  • MSN
    hus2010hus@hotmail.com

اخر الزوار

844 زياره للملف الشخصي
  1. تفضل التعديل اخي الكريم بعد الحفظ تظهر الصفحة و عليك تنفيذ نفس الكود Da.accdb
  2. تفضل هذه المشاركة اخي الكريم New Microsoft Access قاعدة بيانات.rar
  3. تفضل هذا التعديل اخي الكريم اللصق الجملة في الاستعلام فقط SELECT EMPDEV.IDED, EMPDEV.IDD, EMPDEV.DATER, EMPDEV.DATEG, EMPDEV.NOTES, EMPLOYEE.IDS, EMPLOYEE.NUMBER, EMPLOYEE.ENAME, class.CNAME, DLookUp("[BRANDS]","[MARKA]","[IDM]=" & [EMPDEV]![IDED]) AS [الشركة المصنعة], DLookUp("[MODELS]","[MARKA]","[IDM]=" & [EMPDEV]![IDED]) AS الموديل, DLookUp("[TYPE]","[MARKA]","[IDM]=" & [EMPDEV]![IDED]) AS النوع FROM class INNER JOIN (EMPLOYEE INNER JOIN EMPDEV ON EMPLOYEE.[IDE] = EMPDEV.[IDE]) ON class.IDC = EMPLOYEE.IDC WHERE (((EMPDEV.IDED) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPDEV.IDD) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPDEV.DATER) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPDEV.DATEG) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPDEV.NOTES) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPLOYEE.IDS) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPLOYEE.NUMBER) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPLOYEE.ENAME) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((class.CNAME) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")); تفضل التعديل في المرفقات PROGRAM IT (2).rar
  4. اخي هذا برنامج كنت استخدمه في اصدار اكسس 2003 قد يفي بالغرض IconChanger3[1].4.zip
  5. اخي الكريم توجد دالة تقوم بهذا الاجراء و تفي بالغرض DatePart("q"[Date])
  6. تفضل اخي الكريم سيتم تجميع نوع الاعاقة المتعددة حسب كل بلدية Nz(DSum("[نوع الإعاقة]","[الإجمالية]","[نوع الإعاقة]='متعدد الاعاقة' and [البلدية]=" & '"&[البلدية]&"'),0)
  7. تفضل هذا التعديل تم بناء على جدول واحد اساسي فقط و استدعاء البيانات المطلوبة PROGRAM IT.rar
  8. اخي الكريم لتحديد مسار قاعدة البيانات فقط اضف CurrentProject.Path و في مثل الرابط اعلاه للصورة يكون كالتالي Me.image1.Picture = CurrentProject.Path & "C:\Program Files/1.jpg" و اذا كانت الصورة في مجلد فقط اكتب اسم الملجد Me.image1.Picture = CurrentProject.Path & " اسم المجلد" & "C:\Program Files/1.jpg"
  9. تفضل هذا الكود اخي الكريم مع مراعا و ضع اسم عنصر التحكم ( الأزرار ) في المكان المخصص فكرة هذا الكود :- - الصق هذا الكود في اي مكان في شاشة الأكواد VBA Function control is not visible() On Error GoTo errorhandle DoCmd.SetWarnings False If DateDiff("h", DLookup("[EndTime]", "[StingTime]", "[TimeNo]=1"), Now()) > 24 Then DoCmd.RunSQL "Update StingTime SET EndTime = Now() WHERE [TimeNo]=1;" [ضع اسم عنصر التحكم هنا].Visible = True Else [ضع اسم عنصر التحكم هنا].Visible = False End If errorhandleexit: Exit Sub errorhandle: If Err.Number = 3078 Then DoCmd.RunSQL "CREATE TABLE StingTime (TimeNo int , EndTime DATE );" DoCmd.RunSQL "INSERT INTO StingTime VALUES (1, Now());" End If Resume errorhandleexit DoCmd.SetWarnings True End Function - يجب وضع هذا الكود في حدث عند الفتح و كذلك في الازرار المستهدف Call control is not visible() - سيتم انشاء جدول كما ذكر من قبل اخي الكريم @ محمد أبو عبدالله محمد أبوعبدالله - سيتم تحديث هذا الجدول كل 24 ساعة أو اكثر - يمكنك التعديل على الجدول باضافة عمود لاسم المستخدم - سيتم اخفاء عنصر التحكم مرد الدخول على النموذج و مجرد الضغط على الأزرار مع مراعاة نقل التركيز قبل تنفيذ الكود
  10. تفضل التعديل اخي الكريم لكن الفكرة التي في الفيديو تكمن في تغيير خلفية الصورة أو الازرار عموما القي نظرة على المرفق و لنا حديث آخر تحويل.mdb
×
×
  • اضف...