بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|

Eng.Qassim
الخبراء-
Posts
2383 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
22
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Eng.Qassim
-
مشاركة مع اخي ناقل ضع زر الطباعة في التقرير ..واجعل خاصية Display When لزر الطباعة = Screen Only ثم ضع الكود التالي في حدث عن الضغط على زر الطباعة Private Sub CmdPrint_Click() DoCmd.RunCommand acCmdPrint End Sub و لا تنسى ان تجعل نمط العرض عند فتح التقرير acViewPreview
-
استاذ عمر ...مثلما قال اخينا @محمد احمد لطفى وأحد الكائنات نشط مثل مربع نص
-
عرض البيانات وتعبئة Combobox مع خصائص الاتصال بتقنية Ado
Eng.Qassim replied to alsihran's topic in قسم الأكسيس Access
مشاركة مع استاذي ابو خليل ضع الكود التالي بدلا من الجملة القديمة في Sub Display 'Me.Txt_namcity.Value = rs!E_city Dim strSQL As String strSQL = "SELECT [tbl_city].[id_ciity], [tbl_city].[Name_city] FROM tbl_city" Me.Txt_namcity.RowSource = strSQL Me!Txt_namcity.ColumnCount = 2 Me!Txt_namcity.ColumnWidths = "0 ; 2 cm" -
هل يمكن تنفيذ استدعاء رصيد بالكود نظرا لفشل الاستعلام
Eng.Qassim replied to abouelhassan's topic in قسم الأكسيس Access
بالعكس اخي في الله ارجوا من الله سبحانه وتعالى ان تجد السبيل للحل -
هل يمكن تنفيذ استدعاء رصيد بالكود نظرا لفشل الاستعلام
Eng.Qassim replied to abouelhassan's topic in قسم الأكسيس Access
استاذنا العزيز @أبو عبدالله الحلوانى سأقرب اليك مايريده اخينا ... مثلا لدينا عميل جديد1 ولديه رصيد 3000 جنيه..حينما نختار الفترة من 1/12/2020 الى 31/6/2022 سيظهر الرصيد خلال هذه الفترة 2000 جنيه مثلا ..ويظهر ايضا في عمود ثاني اسمه الرصيد السابق لهذه الفترة ويساوي 1000 جنيه والنتيجة تنطبق على بقية العملاء...بحيث العميل الذي ليس لديه رصيد سابق تظهر النتيجة في الحقل =0 بصراحة انا قمت اشوف كوابيس بسبب هذا المثال لان حاولت كثيرا ولم يضبط معي 🤕 -
اخي العزيز قم بتغيير المعيار تحت اسم الشهرة name في الاستعلام Q_CHILD الى [forms]![F_name]![name]
-
😍الان توضحت الرؤيا ان كان العدد فردي دائما مبدع استاذ موسى
-
فكرة جميلة جدا استاذ @Moosak ..لكن لم اجد فائدة من هذا الجزء If InStr(1, m, ".") > 0 Then TXT = TXT & " " End If
-
انظر للتعديل ان كان هذا ماتقصده برنامج سير الاختبارات.rar
-
( برنامج الإحصاء والتوثيق ) إهداء لرؤية المملكة 2030
Eng.Qassim replied to AboSaad17's topic in قسم الأكسيس Access
اخي البرنامج لا يفتح ويبقى المؤشر على الاسم فقط -
استفسار حول عمل استعلام بحث اسماء ثلاثيه واكثر
Eng.Qassim replied to بندر بندر's topic in قسم الأكسيس Access
اخي هذه صورة بارميتر ..اما مكتوب بالخطأ..او يشير الى نص غير موجود -
طبعا اخي لايتم الالحاق بسبب الشرط الموضوع.. كانك تخبر الكود بانه اذا لم يكن احد الحقول فارغا فلن يتم الالحاق If Len(Me.B6 & vbNullString) = 0 Or Len(Me.B7 & vbNullString) = 0 Or Len(Me.B3 & vbNullString) = 0 Or Len(Me.B4 & vbNullString) = 0 Or Len(Me.B5 & vbNullString) = 0 Then اذا كنت تريد جميع الحقول فقم بالغاء الشرط
-
وعليكم السلام جرب التعديل... Nouveau Microsoft Access قاعدة بيانات.rar
-
حساب عدد الاسابيع و عدد الاشهر من خلال وحدة نمطية
Eng.Qassim replied to محمد احمد لطفى's topic in قسم الأكسيس Access
زي ماتوقعت هل التاريخ ثابت ام متغير في اعتقادي تصوير المطلوب على شيت اكسل يسهل من الفهم والحل اخي العزيز -
@@@@ مساعدة في ربط حقل الوظيفة بحقول الصنف و التصنيف@@@@
Eng.Qassim replied to nabilalibibo's topic in قسم الأكسيس Access
انظر للمرفق..لقد استغنيت عن جدول التصنيف Database32.accdb -
بعد اذن اخي @احمد الفلاحجي اذا كانت تسمية الزر = نعم ... سيقوم بتشغيل استعلام التحديث ويجعل قيمة done=True وهذا استعلام التحديث في وضع التصميم واذا كانت تسمية الزر = لا ... سيقوم بتشغيل استعلام التحديث ويجعل قيمة done=False
-
استاذ موسى ممكن ان يكون الحل من خلال لست بوكس عدد/2 الاول ياخذ بياناته من استعلام الرصيد بين تاريخين والثاني ياخذ بياناته من استعلام الرصيد السابق لهذا التاريخ
-
فتح تقرير بشرط وجود بيانات او عدم وجودها
Eng.Qassim replied to alloui79's topic in قسم الأكسيس Access
وما الذي تفعله بالتقرير الفارغ؟ -
احسنت اخي واستاذي @احمد الفلاحجي انا قصدت ان اعطي جزء من الكود من اجل البحث والتعلم
-
ان اردت التعيين على مربع نعم/لا استخد الكود [aux نموذج فرعي].Form![done].Value = -1
-
السلام عليكم اخي العزيز بصراحة حاولت كثيرا ان اجعل الرصيد السابق للتاريخ مع الرصيد اللاحق فلم افلح الموضوع سهل لوكان كل رصيد منفصل عن الاخر ربما احد الاخوة يساعدنا في تلك الجزئية
-
جرب هذه التجربة البسيطة جورج الطويل تعديل 3 .accdb
-
-
اذن تحتاج معيارين وهو السنة المالية والتاريخ القديم Me.Rsabek = Nz(DSum("[Creditor]-[Debit]", "Financial_Records", "EndYaer=" & EndYaer & "And [Registration_Date]<#" & Format([FromDate], "mm/dd/yyyy") & "#"), 0) لكنك ستواجه مشكلة وهي عن اختيار السنة المالية ستتغير عند تواريخ من والى...واذا غيرت من تواريخ من والى سيتغير عندك تاريخ السنة المالية واقتراحي ان تفك هذا الارتباط .. او تفتح نموذج اخر بتلك المواصفات الموضوع ليس صعبا لكنك اقحمت النموذج باكثر من مطلب جرب الكود اعلاه وسترى ما اقصد
-
اخي العزيز..رمضان كريم اولا لايمكن استخدام دالة Dlookup من الجدول مباشرة لانها تعيد اليك سجل واحد بينما لديك عدة سجلات في الرصيد ثانيا انت تبحث عن مجموع الرصيد السابق لتاريخ ماقبل FromDate فلماذا تحشر انف EndYear في الدالة ثالثا ..الظاهر ان لديك جدولا يختلف عن الذي لدي رابعا ..استخدم هذه الدالة في حدث النقر على زر لتضهر لك نتيجة الرصيد السابق في مربع النص الذي اسمه Rsabek Me.Rsabek = Nz(DSum("[Creditor]-[Debit]", "Financial_Records", "Customer_ID=" & Me.Customers & " And [Registration_Date]<#" & Format([FromDate], "mm/dd/yyyy") & "#"), 0)