ابوخليل

ممكن والطريقة التي يتم فيها هي لما تفتح البرنامج وفيه موظفين يستحقون الترقية اليوم يظهر تنبيه بذلك لاشعارك فقط ولكن من اجل تطبيق هذه الفكرة يجب توفر الآتي : 1- آلية منضبطة لعملية الترقية ( واظهارها في حقل في الاستعلام ) مثلا عدد محدد وشرح هذه الآلية ومتى يستحق الترقية 2- يفضل عمل جدول خاص بالترقيات (كنترول) من اجل المرونة فيما لو حصل تغيير مستقبلا ملحوظة : الافضل ولمصلحة الجميع يفضل فتح موضوع وعنوان جديد بالمطلوب

Dim dbs dbs = Shell("winword.exe", vbMaximizedFocus)

لو اعلنا عن قيمة الحقل كمتغير نصي سيقبل Dim iprt As String iprt = Me.prnt1 Set Application.Printer = Application.Printers(iprt) DoCmd.OpenReport "rebots101", acViewNormal

لا اعلم .. هل وصلت لمطلوبك ؟ اذا لم تحصل على مرادك فاكتب هنا ما تريد بالتفصيل

تفضل .. بهذا السطر تختار الطابعة من غير التأثير على الطابعة الافتراضية Set Application.Printer = Application.Printers("ZDesigner GC420d") DoCmd.OpenReport "rebots101", acViewNormal

تفضل مع بعض اللمسات 3.rar

انظر المثال المرفق 11 لما يفتح النموذج جرب اضغط على Esc عندي يتم غلق النموذج واذا لم يعمل جرب المثال 12 db11.mdb db12.mdb

Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long Private Sub zerprint_Click() SetDefaultPrinter ("ZDesigner GC420d") DoCmd.OpenReport "reportName", acViewNormal End Sub علما انه يمكنك استبدال اسم الطابعة الظاهر باسم مربع النص استبدل reportName باسم التقرير عندك

الاستعلام هو عبارة عن جدول بل يتفوق عليه بالحسابات ، وكانوا سابقا ينصحوننا بعدم وضع الحقول المحسوبة في الجدول ، والآن اصبح الحقل المحسوب أساسي في الجدول . فإن اردت ان تثبت الحقل داخل الجدول فيجب نقل نتيجة المعادلة من حقل الاستعلام الى حقل الجدول انظر تم التعديل على النموذج والتحايل على القيمة ، بحيث وضعنا زرا ينقل القيمة من الاستعلام الى الجدول db1.mdb

سواء الادخال يدوي او غيره فلو جعلت وحدة بيع الصابون بالحبة : فلما تبيع كرتون الصابون يمكن ان تكتب العدد 24 حبة .. او اي عدد حسب شد الكرتون هنا مشكلتك .. لذا حبيبنا .. لا تعتب على احد

فعلا انت جايبها من الآخر الحاجة اللي تتكلم عنها هي من الاساسات يعني اول الخطوات في انشاء البرنامج حقل الوحدة اللي انت وضعته في فواتير البيع متعب للمستخدم اتوقع انك قبل كنت تعمل على اكسل ، وهذا اللي يبرر الصعوبة التي تجدها في متابعة التوجيهات حقل الوحدة يجب ان ينزل آلي عند اختيار الصنف ولا يلزم انه يظهر في الشاشة اصلا هذه الاشياء تكون في جدول الاصناف : وحدة الشراء / وحدة البيع يمكن تقول : الصابون يمكن ابيعه بالحبة ويمكن بالكرتون فلازم اضع حقل الوحدة عند البيع فنقول لك هذا يتحدد مسبقا في جدول الاصناف فيمكن عمل رمز للصنف مثلا (صابون ك ) لو لاحظت عند الكاشير في نقاط البيع التي تستخدم قارىء الباركود انه يمرر القارىء على كرتون الصابون بالضبط كما يمرره على حبة الصابون وهذا يعني ان الكرتون صنف والحبة صنف ولكل واحد الرقم الخاص به آمل اني كتبت لك ما تجد به فائدة

الحمد لله ..

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

حدث عن مفتاح لأعلى أو عند مفتاح لأسفل

تفضل txtdate2= DateAdd("m";"-8";[txtdate1])

السلام عليكم المسؤول عن التنظيم هو الكود ، ومن اجل اظهار القائمة لا بد يكون عدد الاعمدة مساوي لما تم ضبطه داخل الكود يعني يجب عليك تكرار الاعمدة في حقل الجنسية بما يتناسب مع مربع التحرير الآخر ، اي يجب ان يكون عدد الاعمدة في مربعات التحرير متساوية هذين السطرين هما اللذين يحددان عدد الاعمدة وأي الاعمدة يظهر Case LngArabic: .ColumnWidths = "0;0;2.251" Case LngEnglish: .ColumnWidths = "0;2.251;0" لاحظ هنا العمود الذي يظهر في العربي والعمود الذي يظهر بالانجلش تفضل تم التعديل AZIZ3.rar

الارقام نفسها مرتبة داخل جدول .. 8 Arrow to left 53 5 78 N 103 g 9 Tab 54 6 79 O 104 h 13 Enter 55 7 80 P 105 i 27 Esc 56 8 81 Q 106 j 32 Space 57 9 82 R 107 k 33 ! 58 : 83 S 108 l 34 “ 59 ; 84 T 109 m 35 # 60 < 85 U 110 n 36 $ 61 = 86 V 111 o 37 % 62 > 87 W 112 p 38 & 63 ? 88 X 113 q 39 ‘ 64 @ 89 Y 114 r 40 ( 65 A 90 Z 115 s 41 ) 66 B 91 [ 116 t 42 * 67 C 92 \ 117 u 43 + 68 D 93 ] 118 v 44 , 69 E 94 ^ 119 w 45 - 70 F 95 _ 120 x 46 . 71 G 96 ` 121 y 47 / 72 H 97 a 122 z 48 0 73 I 98 b 123 { 49 1 74 J 99 c 124 | 50 2 75 K 100 d 125 } 51 3 76 L 101 e 126 ~ 52 4 77 M 102 f

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

If KeyCode = 27 Then DoCmd.OpenForm "frm1" End If

المسألة واضحة ليست بحاجة الى شرح تم الاعلان عن متغير mys اذا تم الفتح بطريقة نظامية المتغير سيحمل القيمة 5 عند فتح اي نموذج والقيمة لا تساوي 5 يتم اغلاق قاعدة البيانات مرفق مثال بدون الوحدة النمطية التي تحمل قيمة mys وانما نستخدم الوحدة النمطية لاستعمالات اوسع dbx2.rar

نعم في المثال ما يغني عن المقال dbx.rar

البرنامج يحتوي على كائن عنصر Actevix وهذا الكائن بحاجة الى مكتبة خارجية ( برنامج او تعريف) جرب تشغله على اصدارات احدث من اوفيس يمكن انها تشتمل على هذه المكتبة

هذه وحدة نمطية صنعتها لك افتح النموذج على التصميم واذهب الى محرر الفيجوال سوف ترى الوحدة النمطية وهي عبارة عن استعلام يجيب اخر قيمة من الرصيد الختامي lastrseed() هي قيمة الاستعلام نفسه ولاحظ اني اضفت مفتاح للجدول وهو عبارة عن حقل ترقيم تلقائي من اجل اجعله معيار لآخر قيمة

تفضل تم التعديل في نموذج الادخال يتم نقل الرصيد الختامي الى الحقل الجديد في الرصيد الاولي وذلك بالاستفادة من خصائص القيمة الافتراضية للحقل الآن بمجرد تحديث الرصيد الختامي يتحدث الرصيد الاولي التالي اتمنى ان تروق لك هذه الحيلة process1.rar

تفضل عزيزي افتح frm3 واعطني صورة منه كلمة المرور 123 dbx.rar