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

Foksh

الخبراء
  • Posts

    1,435
  • تاريخ الانضمام

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

  • Days Won

    43

Foksh last won the day on أبريل 11

Foksh had the most liked content!

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

700 Excellent

10 متابعين

عن العضو Foksh

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

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

اخر الزوار

1,976 زياره للملف الشخصي
  1. أعتقد عليك التأكد من الاستعلام واسم الجدول بدايةً اذا الاستعلام غير موجود .. جرب التعديل على الجزء التالي لإنشاء استعلام جديد من خلال الكود Private Sub runQueryBtn_Click() Dim dbObj As DAO.Database Dim qdObj As DAO.QueryDef If Me.tablenamecombo.ListIndex = -1 Then MsgBox "Table Name needs to be selected, before continuing.", vbCritical Exit Sub End If Set dbObj = CurrentDb() Set qdObj = dbObj.CreateQueryDef("", "") qdObj.SQL = "SELECT * FROM [" & Me.tablenamecombo & "];" qdObj.Execute dbFailOnError qdObj.Close Set qdObj = Nothing Set dbObj = Nothing End Sub وفي كل الأحوال ، حاول ارفاق مرفق للتطبيق عليه 😊
  2. أخي @moustafa2004 هل هذا الاستعلام موجود فعلاً ، أم أنك تحاول إنشاء استعلام جديد ؟ 😊
  3. احمد الله اني لا ولم ولن استخدم استعلامات التوحيد في مشاريعي 😅
  4. كتوضيح للأخوة والأساتذة :- أعتقد أن الأستاذ @عبد اللطيف سلوم بنا موضوعه هذا بناءً على هذه المشاركة في موضوع آخر 🤔
  5. كلامك سليم 10000% ، لأني استخدمتها في مشروعي حضور وانصراف الموظفين في كومبوبوكس عند حدث ليس في القائمة Response = acDataErrContinue
  6. لكني الآن خرجت من العمل أخي @SAROOK ، إن كان في العمر بقية إن شاء الله ليوم غد
  7. هذا لأنه مكون من أكثر من استعلام ، وفي طريقة عرض التصميم كيف تستطيع عرض أكثر من استعلام بنفس الوقت ؟؟ لكن أعتقد أنك تستطيع نسخ أي كود SQL لأستعلام والذهاب إلى انشاء استعلام جديد وفي وضع الـ SQL الصق الاستعلام الذي تريده ومن ثم اعرضه في وضع عرض التصميم اختلف معك اخي @kkhalifa1960 . هذا استعلام توحيد في هذه المشاركة غير مبني على وجود استعلامات أخرى موجودة في هذه المشاركة .
  8. أخي الكريم moustafa2004 هذا الموضوع آخر مشاركة له قبل سنتين . أرجو أن تقوم بفتح موضوع جديد لطلبك .
  9. هل هذا طلبك ؟ افتح التقرير Foksh وإن كان طلبك أخبرني قبل خروجي من العمل . Stu (1).accdb
  10. أخي الكريم @SAROOK ، أين التكرار الذي تتحدث عنه ، راجع الفيديو في المرفقات لتتأكد . أما موضوع التقرير الواحد لكل سنة ، فتفضل ( Stu (1).zip ) 20240411_210938.zip
  11. أخي @ازهر عبد العزيز ، لاحظ أن الموضوع قد تشعب لأكثر من سؤال . على العموم ضع هذا الكود في زر ، إذا كان المجلد فارغ سيتم حذفه بدون رسالة . أما اذا كان المجلد غير فارغ فسيتم التنبيه بأن المجلد غير فارغ قبل الاستمرار بالحذف . Dim FolderA As String Dim FolderPath As String FolderA = BookName.Value FolderPath = CurrentProject.Path & "\Library1\BOOKS\" & FolderA If Len(Dir(FolderPath, vbDirectory)) > 0 Then If Dir(FolderPath & "\", vbNormal) <> "" Then Dim Response As VbMsgBoxResult Response = MsgBox("هل ترغب في حذف المجلد ومحتوياته؟", vbQuestion + vbYesNo) If Response = vbYes Then Kill FolderPath & "\*.*" RmDir FolderPath End If Else RmDir FolderPath End If Else MsgBox "المجلد غير موجود", vbExclamation End If
  12. إلا أن الفكرة هي بالرد العائد من آكسيس بأن القيمة موجودة في الجدول
  13. بناء على استعلامات أخي @عبد اللطيف سلوم ، فكرتك كانت في 3 استعلامات منفصلة ، وخطر ببالي استعلام توحيدي واحد يجمعهم معاً لتحقيق الهدف . SELECT emp.[no], emp.[full-name], hol.[year-study], hol.namecours1 AS cours_name, hol.yearcours1 AS cours_year FROM emp INNER JOIN hol ON emp.[no] = hol.[no] WHERE hol.yearcours1 Is Not Null UNION ALL SELECT emp.[no], emp.[full-name], hol.[year-study], hol.namecours2 AS cours_name, hol.yearcours2 AS cours_year FROM emp INNER JOIN hol ON emp.[no] = hol.[no] WHERE hol.yearcours2 Is Not Null UNION ALL SELECT emp.[no], emp.[full-name], hol.[year-study], hol.namecours3 AS cours_name, hol.yearcours3 AS cours_year FROM emp INNER JOIN hol ON emp.[no] = hol.[no] WHERE hol.yearcours3 Is Not Null;
  14. أخي لو لم تتم التجربة لما ارفقت الملف لك تفضل ، Dim FolderA As String FolderA = BookName.Value If Len(Dir(CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA, vbDirectory)) > 0 Then Shell "explorer.exe """ & CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA & """", vbNormalFocus Else MsgBox "المجلد غير موجود", vbExclamation End If ضع هذا الكود في أي زر أو حدث تريده
×
×
  • اضف...

Important Information