نجوم المشاركات

السلام عليكم ورحمة الله استخدم هذه المعادلة =IF(D14*7%>130;130;IF(D14*7%<65;65;D14*7%))

الطابعة صينية ؟

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

وانا لم اسألك ما نوع مدخل كيبل الطابعة ؟ اذا usb : اولا حاول تغيير مدخل كيبل الطابعة في الكمبيوتر ... اذا كنت شاك انه متغير لم ينفع جرب : حاول تحذف تعريف الطابعة ثم تعيد تشغيل الكمبيوتر ثم تركب التعريف مرة اخرى هذا الذي اعلمه .. ولعل بعض الاخوة ممن لهم دراية وخبرة يفيدونك في ذلك

طيب يكون الخلل في التقرير هل الطباعة تتم من البرنامج بنجاح على طابعة أخرى ؟ حتى لو طابعة وندوز الافتراضية ؟ هل الطابعة .. طابعة فواتير حرارية ؟

غالبا يكون السبب المنفذ ( البورت) افتح على الطابعات وكلك يمين على الطابعة وافتح تبويب المنافذ وحاول تغير المنفذ واذا فيه طابعة اخرى مشتركة في المنفذ الغيها مؤقتا وجرب

أخى الكريم يمكن إضافة بسيطة للتقريب على معادلة أستاذى الفاضل / زيزو العجوز لتكون بالشكل التالى وأتمنى أن تفى بالغرض =ROUND(IF(D14*7%>130;130;IF(D14*7%<65;65;D14*7%));2) تفيد هذه المعادلة بتقريب الناتج من المعادلة فى مشاركة الأستاذ زيزو وتقرب الناتج إلى رقمين عشريين كما طلبتم تقبل تحياتى

تفضل استاذي العزيز تم تنفيذ بالكود والماكرو التقارير11.rar

والله هالدعوات بالدنيا وما فيها ولك بالمثل ولجميع المسلمين تحياتي

حسب المعادلة الظاهرة في الصورة في الشق الاول تريد القيمة الاصغر بينما في الشق الثاني هناك خطأ لان كلها C2 اين المقارنة؟؟ عموماً تفضل هذه هي المعادلة بحسب النتائج في الصورة Expr1: IIf([d2]>=[c2],[c2],[d2])

جزاك الله خير رحم الله والديك الله لا يحرمك الأجر ولا يحرمنا منك تقبل فائق تقديري واحترامي .

وعليكم السلام ورحمة الله وبركاته تفضل استبدل جملة الشرطية بهذه: strSQL = "UPDATE Table2 SET Table2.[check] = true where Name_Saf ='" & Me.SafCB & "'"

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

عفوا لم افهم مقصودك في المشاركة الأولى لو تكرمت اضف المرفق

اخي الكريم سبق وان اخبرتك اني للأسف لا املك الوقت الكافي لكل اصمم لك برنامجك .. انت عليك التعلم واهم شيء في تصميم البرنامج هو بناء الجداول بالشكل الصحيح

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

تفضل اكبر منup.rar

تفضل: If DLookup("Chair_no=1", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") And _ DLookup("PcDigt", "Tabl_bus", "Chair_no=1 " & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") Then Me.S1 = DLookup("PcDigt", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") Me.S1 = DLookup("[PcDigt] & ' - ' & [FName]& ' ' & [Family]", "Tabil_Emp", "PcDigt = S1") ElseIf DCount("id", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") < 1 Then Me.S1 = "غير مخصص" ElseIf DCount("id", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID And[PcDigt]=Null") = 0 Then Me.S1 = "شاغر" End If

لقد تم الرد من قبل الأستاذ سليم فى مشاركة أخرى ولكم جزيل الشكر

السلام عليكم و رحمة الله وبركاته فضلا اخي هيثم اسمحلي بـ اقتراح ان تدمج عدد 2000 شيت في شيت واحد و من هذا الشيت تسخرح منه في شيت آخر واحد فقط استغلام يعطيك نتائج (كارتة الصنف) بمجرد ادخال اسم الصنف و كذلك يعطيك جميع النتائج المطلوبه للورقة Home تلقائيا هذا كله من شيت واحد كما يمكنك عمل استعلام لتاريخ محدد او استعلام لجهة صرف هذا من وجهة نظري الشخصية سوف يكون افضل و الله اعلم

اشكرك شكرا جزيلاً ، جازاك الله خيرا وجعله في ميزان حسناتك الملف يعمل جيدا .. وهو المطلوب .. الف الف شكرا على مجهودك واهتمامك

جرب هذا الملف كارتة الصنف المعدلة salim.xlsx

تأكد من ان اعدادات الللغة في الجهاز كلها تشير الى العربية كما في الصور التالية

هكذا يجب ان تكون Private Sub DEL_Click() If MsgBox(" سيتم الالغاء" & vbCrLf & "كل مرة يحذف اسم ", vbExclamation + vbMsgBoxRight + vbYesNo, "حذف") = vbYes Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Else DoCmd.CancelEvent End If End Sub

تغضل اخى هذا من أعمال وإبداعات أستاذنا الكبير زيزو العجوز له منا كل المحبة والفخر والإعتزاز والإحترام جزاه الله كل خير وجعله فى ميزان حسناته وجعله الله دائما وابدا زخرا وعطاء لنا المطلوب اظافة شرط , عدم تجاوز درجة الطالب للدرجة الكبرى للمادة-فى الفورم.xls

اخي الكريم راجع المرفق التالي https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=140547

يمكن استعمال هذه المعادلة =CHOOSE(((M38*28/100)>100)+1,M38,100)

السلام عليكم ورحمة الله تعالى وبركاته استاذ @رؤوف1951 فى هذا الرابط عدد اتنين ملف للتعليم الاكسس https://archive.org/download/FaresCD.Com.AccessPcLp/FaresCD.Com.AccessPcLp.rar محتويات الدروس تفصيلا كالاتى كما فى الرابط http://www.pclabacademy.com/program1.aspx?productKey=5orwxzavv8t5jn31njhz

وعليكم السلام أخى مرحبا بك فى منتدانا الكريم لو إفترضنا ان الرقم المستخدم فى المعادلة موجود فى الخلية B1 فالمعادلة كالتالى : IF((B1*28/100)>100,100,(B1*28/100))= بارك الله فيك

تحياتى و ايام مباركه لاضافة اى بنك جديد من صفحه جديده الاكسيل من view اضغط على page layout و حدد ابعاد الشيك ابقى حدد نطاق الطباعه من print area و من print preview اجعل paper size envelope 10 يوجد بدفتر الشيكات قبل نهايته نموذج ورق لعروض البنك اقطعه و اقطع ورق تصوير على قده و ابدأ ضبط فورم الاكسيل على الشيك و ابدأ اطبع نموذج الاكسيل و ضعه خلف اصل شيك من دفتر الشيكات و شوف فى الضؤ هل الفريم المطبوع مناسب لاماكن الرقم و التفقيط و التاريخ لا تنسونا من صالح الدعاء

تمام أستاذى سليم بارك الله فيك

validation Rule001.mdb

السلام عليكم ورحمة الله تعالى وبركاته معكم أخوكم محمد أقدم من خلال قناتي دورة تعليمية في الأكسس وذلك من خلال إنشاء برنامج عملي أقوم من خلاله بشرح الأكسس وبناء برنامج محاسبي قابل للاستخدام. سوف أجعل هذا الموضوع متجدداً يضم كافة الفيديوهات التي نزلت والتي سيتم تحميلها إن شاء الله. لمتابعتنا يمكن الاشتراك بالقناة والاطلاع أيضاً على باقي المساقات التعليمية الموجودة في القناة. نبدأ على بركة الله وهذه هي سلسلة الدروس التي تم تحميلها حتى اللحظة: الدرس الأول: الدرس الثاني: الدرس الثالث: الدرس الرابع: الدرس الخامس:

تم معالحة الخطأ و كل شيء تمام التمام و ذلك باضافة سطرين الى الكود( انظر الى الكود من جديد) If r1 = 65536 Then r1 = r If r1 - r = 2 Then r1 = r + 1 لو اردت استعمال الكود على 2010 استبدل الرقم 65536 بالرقم 1048576 Fatoura-Final-1 2003.rar

السلام عليكم ورحمة الله وبركاته السادة الافاضل اساتذتي واخواني الكرام تم بفضل الله التوصل لطريقة التحكم بطابعة الفواتير ودرج النقدية الخاص بالكاشير وبعد اذنكم سود اسرد الموضوع من البداية حتي يسهل على الاخوة الاعضاء التوصل اليه بمشاركة واحدة . ادوات جهاز الكاشير : ( طابعة فواتير - درج نقدية – سكانر ) الاسكانر لا يحتاج لشرح ، وتم مناقشته من قبل في مواضيع كثيرة ، ولكن موضوعنا اليوم والذي لم يتم مناقشته بافاضة هو طابعة الفواتير ودرج النقدية . 1 – الطابعة الحرارية " طابعة الفواتير" : ومنها انواع عديدة ولكن اشهرها نوع ايبسون ، وتحتوي على 3 منافذ ( منفذ كهرباء – منفذ usb " من خلالة يتم تعريف خصائص واعدادات الطابعة وهي نقطة هامة جداااا والذي يترتب عليه الاداء لاحقا " - منفذ درج النقدية " وهو عبارة عن منفذ نفس منفذ الهاتف الارضي ويتم توصيلها بالطابعة من خلال واير يشبة واير الهاتف الارضي ..طرفة الاول بالطابعة والطرف الاخر باسفل الدرج ، وتكمن فكرة فتح الدرج في ارسال شحنة كهربائية من الطابعة عند الطباعة الي الدرج ليقوم بفتحة " 2 – درج النقدية : ويحتوي علي منفذ واحد فقط ويكون اسفله ، وهو المنفذ الذي يتصل بيه للطابعة والمذكور اعلاه . الاستفسارات المطروحة : س1 : طريقة فتح درج النقدية بدون طباعة ؟ س2 : طريقة تحديد تقارير معينة لفتح الدرج معها ، وتقارير اخري لعدم فتح الدرج معها . اول واهم شيء نقوم بتعريف الطابعة على الكمبيوتر من خلال الـــ CD المرفق جـ1 : قام الاستاذ الفاضل السيد جمال جزاه الله كل خير بوضع كود لفتحة وتم تجربتة بعد تعريف الطابعة وهو يعمل تمام الحمد لله " موجود بالمشاركة السابقة " . كود الاستاذ السيد جمال لفتح درج النقدية بدون طباعة . فتح الكاشير.rar جـ2 : نقوم بتحديد التقرير المطلوب طباعتة مع فتح الدرج او عدم فتح الدرج ثم نفتح التقرير بوضع التصميم ونتبع الخطوات المشار اليها بالصور . اتمني ان يكون الشرح واضح ...... وسامحوني على الاطالة واي استفسار انا حاضر وللسادة المشرفين الافاضل اتخاذ ما يرونه مناسبا في تغيير العنوان الاساسي حتي يسهل الوصول اليه علي سبيل المثال " التحكم فى طابعة الفواتير ودرج النقدية الخاص بالكاشير " هذاا .... وما توفيقي الا بالله . مع كل الشكر والتقدير للمنتدانا الغالــــي

السلام عليكم ورحمة الله وبركاته بعد إذن حضراتكم هذا تعديل بسيط فقد قمت بدمج الكوين وهذه النتيجة كود الحفظ التلقائي كل مدة 15 ثانية أو عند إغلاق ملف الاكسيل دون المطالبة بالحفظ هذا الكود يوضع في حدث : Workbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub Private Sub Workbook_Open() Call St_A End Sub هذا الكود يوضع في حدث : Module Public Rm As Double Public Const C_Con = 15 Public Const Sc_W = "Ex" Public Sub St_A() On Error Resume Next Rm = Now + TimeSerial(0, 0, C_Con) Ali_C Rm, Sc_W, True End Sub Sub Ex() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True St_A End Sub Public Sub Ext() Ali_C Rm, Sc_W, False End Sub Public Function Ali_C(St As Double, Sa As String, Bn As Boolean) On Error Resume Next With Application DoEvents .ScreenUpdating = False .EnableEvents = False .OnTime EarliestTime:=St, Procedure:=Sa, Schedule:=Bn .EnableEvents = True .ScreenUpdating = True End With End Function ومرفق ملف بعد التجربة وشكرا لكم جميعًا فلكم يرجع الفضل بعد الله عز وجل . مطلوب دالة.rar