abdalla89

السلام عليكم استخدم كود filter في حدث عند التحميل او ارفق مرفق للتعديل عليه  

السلام عليكم اخواني الكرام 1- اريد انشاء فانكشن function واضافة براميتر له وهذا البراميتر يجب ان يعرض على شكل قائمة اثناء استخدام الفانكشن في البرمجة بحيث يعرض لي قائمة اختار منها احد الخيارات المتاحة

السلام عليكم اخواني الكرام هل من الممكن ان يقوم برنامج بحفظ كل القراءات التي يقرؤها جهاز الباركود في جدول ان كان البرنامج مفتوح جانب الساعة او مغلق المهم المطلوب في اخر النهار الحصول على كل قراءات الباركود بحيث افتح البرنامج في الصباح واتابع عملي على برنامج اخر وفي نهاية اليوم اجد كل قراءات الباركود موجودة فيه والسبب في ذلك ان جهاز الباركود عندي لا سلكي وموجود في المستودع ولا اعلم متى يقوم عامل باستخدامه لاخراج بضاعة من المستودع

السلام عليكم اخواني الكرام هل من الممكن ان يقوم برنامج بحفظ كل القراءات التي يقرؤها جهاز الباركود في جدول ان كان البرنامج مفتوح جانب الساعة او مغلق المهم المطلوب في اخر النهار الحصول على كل قراءات الباركود بحيث افتح البرنامج في الصباح واتابع عملي على برنامج اخر وفي نهاية اليوم اجد كل قراءات الباركود موجودة فيه والسبب في ذلك ان جهاز الباركود عندي لا سلكي وموجود في المستودع ولا اعلم متى يقوم عامل باستخدامه لاخراج بضاعة من المستودع

السلام عليكم  هل هناك طريقة لاختيار لون التنسيق الشرطي برمجيا بحيث يكون اللون مسجل في جدول مثلا

DoCmd.ShowToolbar "ribbon", acToolbarNo هذا الكود يكفي لاخفاء واجهة اكسس بالكامل  

اليك التعديل الذي طلبت  وهو قلب طرفي الكود a1.mdb

السلام عليكم اخي الكريم  ضع في القيمة الافتراضية لمربع النص الكود التالي  =Nz(DMax("[coinid]";"tblcoin");0)+1 & "\" & Right(Year(Date());2)  

السلام عليكم اخي الكريم ضع هذا الكود في وحدة نمطية ثم استدعيها في الاستعلام  Function dat(bir As Date) If IsNull(bir) = True Then dat = Format("00", "00") & "-" & Format("00", "00") & "-" & Format("00", "00") Else Dim nday As Integer, nmon As Integer, nyea As Integer Dim bday As Integer, bmon As Integer, byea As Integer bday = Day(bir) bmon = Month(bir) byea = Year(bir) nday = Day(Date) nmon = Month(Date) nyea = Year(Date) If bday > nday Then nday = nday + 30 nmon = nmon - 1 End If If bmon > nmon Then nmon = nmon + 12 nyea = nyea - 1 End If Dim dd, mm, yy dd = nday - bday mm = nmon - bmon yy = nyea - byea dat = Format(yy, "00") & "-" & Format(mm, "00") & "-" & Format(dd, "00") End If End Function  

ضع مرفق للتعديل عليه  يمكن ان تنشئ استعلام بمعيار يعتمد على قسم المستخدم ثم يكون هذا الاستعلام مصدر البحث له  

الرابط أخي الكريم راجع الرابط التالي قد تجد فيه ما يفيدك

السلام عليكم تأكد من خاصية منبثق في التقرير يجب ان تكون نعم ويفضل ان تضع مرفق للتعديل عليه

السلام عليكم اذا كان النص ثابت وغير متغير يمكنك ان تكتب النص في صورة وتضعها في التقرير

ضع المرفق على مواقع التحميل وضع الرابط هنا مثل google drive أو mega  

السلام عليكم  الحمد لله تم الحل و قد حصلت عليه من منتدى اخر وسأقوم بوضع الدالة هنا لكي تعم الفائدة وتصل المشاركة الى أكمل فوائدها sumdebit: DSum("[debit]";"entry";"[code] like '" & [code] & "*'")