بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
2,309 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
85
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Foksh
-
ايهما افضل: عمل تقرير عن طريق الاستعلام أم الجدول ؟
Foksh replied to 2saad's topic in قسم الأكسيس Access
أخي الكريم @2saad ، كل عام وأنت بخير بالنسبة لإنشاء تقارير من الاستعلامات هو يتميز بعدة نقاط منها :- المرونة : تستطيع استخدام الاستعلامات لتحديد البيانات التي تريد عرضها في التقرير بناءً على شروط محددة . التحكم في البيانات : أيضاً تستطيع استخدام الاستعلامات لتنفيذ العمليات الحسابية أو الوظائف المعقدة على البيانات قبل إدراجها في التقرير ، وبالطبع هذا يمكنك لمرونة أكبر في عرض البيانات. إعادة الاستخدام : بإمكانك استخدام نفس الاستعلام في تقارير متعددة إذا كانت تحتاج إلى عرض بيانات مماثلة. أما إنشاء تقارير مباشرة من الجداول فيتميز بعدة أمور منها :- البساطة و السرعة -
مساعدة وتعديل على برنامج Export_to_Excel تصدير البيانات الى اكسيل
Foksh replied to ahmed draz's topic in قسم الأكسيس Access
بما أن المشكلة في وجود مسافات في إسم الجدول المستهدف لتصدير سجلاته . فالحل بسيط بإذن الله لاحظ في السطر التالي الأساسي :- i_strSql = "Select * From " & Me.cmb_TQ_Name سيأخذ اسم الجدول المكون من 4 مقاطع على فرضاً ( وليس بالضرورة لغة عربية أو انجليزية ) ولن يتعرف على الإسم كاملاً . لكن ! في التعديل التالي ستلاحظ الفرق بأن الكود أخذ الإسم كاملاً بكل مقاطعه عند استخدام علامات الإقتباس [ و ] :- i_strSql = "Select * From " & "[" & Me.cmb_TQ_Name & "]" طبعاً الشكر موصول لأخونا @ابو الآء على هذا الطرح الجميل وهذا أثر جميل له رغم أن عمر المشاركة من عام 2015 على العموم جرب وأخبرني بالنتيجة -
مساعدة وتعديل على برنامج Export_to_Excel تصدير البيانات الى اكسيل
Foksh replied to ahmed draz's topic in قسم الأكسيس Access
أخي @ahmed draz ، كل عام وأنت بخير ، وأهلاً بك معنا في عالم آكسيس بداية يرجى منك أن تلتزم بقوانين المنتدى ومن أهمها :- محتوى المشاركة بالنسبة للملف الذي ارسلته كمرفق لم يعمل عندي على أوفيس 2016 . اذا تكرمت ان تقوم بحفظه على الأقل بإصدار 2007 وأحدث أو قم بقراءة الموضوع الذي أتيت بالمرفق منه في هذه المشاركة -
مشاركة مع الأستاذ @محمد احمد لطفى Expr1: IIf([eltkeem_elam]="غ" And [stuehoa]="ذكر","ناجح بحكم القانون",IIf([eltkeem_elam]<>"غ" And [stuehoa]="ذكر","ناجح",IIf([eltkeem_elam]="غ" And [stuehoa]<>"ذكر","ناجحة بحكم القانون","ناجحة"))) ونرجو منك ان تساعد الأخوة في طريقة طرح السؤال والمعطيات في طلبك حتى تلقى الإجابة المطلوبة بسرعة من طرف الأساتذة . ناجح.accdb
-
هدية مجموعة من الامثلة على اكواد اكسس يستفيد منها كل مبرمج
Foksh replied to عبد اللطيف سلوم's topic in قسم الأكسيس Access
-
أشكرك مرورك العطر أخي @عمر ضاحى . طبعاً هو لا يعتبر حل عملي لإنها تجربة التطبيقات الأخرى التي ذكرتها كان لي تجربة معها ولكن معلوماتي الى حد ما اعتبرها سطحية وليست لهذا المستوى .
-
أخي @عبد اللطيف سلوم الملف مفتوح المصدر موجود في المشاركة الأولى في نهاية المشاركة أهلا أستاذ @عمر ضاحى ، أشرقت بنورك ، الملف مفتوح المصدر موجود في نهاية المشاركة الأولى للتعديل كما يحلو لك
-
اخي @أمير ادم قبل المتابعة معك ، لي مناقشة وعدة نقاط للإتفاق عليها . 1. حاول اختصار مسميات الجداول والنماذج والاستعلامات لتسهيل الأمور عليك. 2. لاحظت انك اعتمدت على الترقيم التلقائي لربط العلاقات بين الجداول في مشروعك وبالنسبة لي لا أعتقد أنها فكرة جيدة في المستقبل ، حاول اعتماد ترقيم خاص بالحركة و تكويد الاصناف .... إلخ والربط بينها بشكل صحيح في العلاقات . الآن بعد اجراء بعض التعديلات على ملفك ، إن كان ما قمت به صحيح سنتابع بناءً عليه في هذا المرفق ( TESTBOM.accdb ) . قم باختيار كود المنتج عصير مانجو مثلاً ، ثم قم بالتغيير لأي منتج آخر لنرى صحة العمل. وحاول أعانك الله إدراج تركيبة لمنتجات أخرى لتتوسع الفكرة وتتضح أكثر
-
في الجدول Tastudent3 في وضع التصميم ، من خصائص الجدول ، في الخانة Order By ستجد ان الحدول يحتوي اكثر من طريقة للفرز ، فقط احذف الموجود واترك [Tastudent3].[ID] أيضاً تم الفرز في الاستعلام في الحقل ID محمد.accdb وجهة نظري 😊
-
هديه العيد مربع تلوين عناصر النموذج color picker
Foksh replied to طير البحر's topic in قسم الأكسيس Access
جميلة الفكرة ، شكراً على الهدية 🤗 -
هل جميع الحقول تم تعبئتها ؟ والأهم من ذلك هو تثبيت الاعدادات ( تصنيف الموظفين )
-
محتاج مساعدة في فكرة انشاء استعلام باستخدام لغة vba
Foksh replied to moustafa2004's topic in قسم الأكسيس Access
أعتقد عليك التأكد من الاستعلام واسم الجدول بدايةً اذا الاستعلام غير موجود .. جرب التعديل على الجزء التالي لإنشاء استعلام جديد من خلال الكود 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 وفي كل الأحوال ، حاول ارفاق مرفق للتطبيق عليه 😊 -
محتاج مساعدة في فكرة انشاء استعلام باستخدام لغة vba
Foksh replied to moustafa2004's topic in قسم الأكسيس Access
أخي @moustafa2004 هل هذا الاستعلام موجود فعلاً ، أم أنك تحاول إنشاء استعلام جديد ؟ 😊 -
جزاك الله كل الخير 🤗 ولك من الدعاء نصيب أكبر 🤲
-
لماذا لا نستطيع ارجاع استعلام التوحيد الى عرض التصميم ؟
Foksh replied to عبد اللطيف سلوم's topic in قسم الأكسيس Access
احمد الله اني لا ولم ولن استخدم استعلامات التوحيد في مشاريعي 😅 -
لماذا لا نستطيع ارجاع استعلام التوحيد الى عرض التصميم ؟
Foksh replied to عبد اللطيف سلوم's topic in قسم الأكسيس Access
كتوضيح للأخوة والأساتذة :- أعتقد أن الأستاذ @عبد اللطيف سلوم بنا موضوعه هذا بناءً على هذه المشاركة في موضوع آخر 🤔 -
كلامك سليم 10000% ، لأني استخدمتها في مشروعي حضور وانصراف الموظفين في كومبوبوكس عند حدث ليس في القائمة Response = acDataErrContinue
-
لماذا لا نستطيع ارجاع استعلام التوحيد الى عرض التصميم ؟
Foksh replied to عبد اللطيف سلوم's topic in قسم الأكسيس Access
هذا لأنه مكون من أكثر من استعلام ، وفي طريقة عرض التصميم كيف تستطيع عرض أكثر من استعلام بنفس الوقت ؟؟ لكن أعتقد أنك تستطيع نسخ أي كود SQL لأستعلام والذهاب إلى انشاء استعلام جديد وفي وضع الـ SQL الصق الاستعلام الذي تريده ومن ثم اعرضه في وضع عرض التصميم اختلف معك اخي @kkhalifa1960 . هذا استعلام توحيد في هذه المشاركة غير مبني على وجود استعلامات أخرى موجودة في هذه المشاركة . -
محتاج مساعدة في فكرة انشاء استعلام باستخدام لغة vba
Foksh replied to moustafa2004's topic in قسم الأكسيس Access
أخي الكريم moustafa2004 هذا الموضوع آخر مشاركة له قبل سنتين . أرجو أن تقوم بفتح موضوع جديد لطلبك . -
أخي @ازهر عبد العزيز ، لاحظ أن الموضوع قد تشعب لأكثر من سؤال . على العموم ضع هذا الكود في زر ، إذا كان المجلد فارغ سيتم حذفه بدون رسالة . أما اذا كان المجلد غير فارغ فسيتم التنبيه بأن المجلد غير فارغ قبل الاستمرار بالحذف . 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
-
-
بناء على استعلامات أخي @عبد اللطيف سلوم ، فكرتك كانت في 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;