ابوخليل

هذا هو الحل my_outo_num: DCount("code";"HB";"code <=" & [code]) اذا لم تتمكن من التطبيق الصحيح ، ارفق الجدول والاستعلام مع بيانات كافية اختصارا للجهد والوقت

انا متأكد ان هذا ايضا رأي الاستاذ @kaser906 تعدد العناوين وتخصيصها يصب في مصلحة الجميع ، يجب ان تكون نظرتنا ابعد ولا ننظر لحاجتنا الوقتية وشكرا اخونا صابر على الاستجابة

ما اسم هذا الحقل ؟ وهل نوعه في الجدول رقمي ام نصي ؟ وما اسم الجدول ؟

my_outo_num: DCount("ID";"tbl1";"ID <=" & [ID]) باعتبار tbl1 هو الجدول مصدر الاستعلام

التغيير يكون هنا : Public Sub circl(Rpt As Report, TxtCtrl As Control, TxtDegree As Double) الكلمة في آخر الجملة Double اي ان المتغير رقمي مزدوج بدلا من Integer عدد صحيح طويل ايضا تم التعديل في تنسيق حقل الدرجة في التقرير كي يظهر الكسر .. انظر المثال وضع_دائرة_على_رقمUP2.rar

فضلا اخي الكريم افتح لكل موضوع سؤالا جديدا يخصه

وعليكم السلام اليك التعديل على الوحدة النمطية ايضا قمت ببعض التصرف والتعديل على مسميات المتغيرات ، حيث المسمى الموجود في المثال لا يعين على الفهم Public Sub circl(Rpt As Report, TxtCtrl As Control, TxtDegree As Integer) Dim ctrl As Control Dim Degr As Double Dim sr_y As Single, sr_x As Single Dim Hei As Integer, Wid As Integer Dim lft_wid As Single, top_hei As Single 'تستطيع التغيير في حجم الدائرة من خلال الارقام ادناه sr_y = 0.9 sr_x = 200 Hei = TxtCtrl.Height * 1.9 Wid = TxtCtrl.Width * 1.09 top_hei = (TxtCtrl.Top + TxtCtrl.Height) \ 2 + sr_x Set ctrl = TxtCtrl ' اسم الحقل الذي يوضع عليه الدائرة If Not IsNull(ctrl) Then Degr = (ctrl <= TxtDegree) ' سوف يتم وضع الدائرة إذا كان الحقل المسمى (الدرجة) يحتوي على الرقم 49 فأقل If Degr Then Rpt.DrawWidth = 24 lft_wid = ctrl.Left + (ctrl.Width \ 2) ' تغيير الرقم يؤثر في مكان الدائر يسار أو يمين Rpt.Circle (lft_wid, top_hei), Wid \ 2, vbRed, , , sr_y ' التغيير في الرقم يؤثر في الدائرة من ناحية الاتساع End If End If End Sub Rpt.DrawWidth = 24 الرقم في هذا السطر المسؤول عن سمك محيط الدائرة فكرة_وضع_دائرة_على_رقمUP.rar

Dim dbs dbs = Shell("EXCEL.EXE", vbMaximizedFocus) End Sub

عليكم السلام افتح النموذج على التصميم / انقر بزر الفأرة الايمن على الحقل المطلوب واختر خصائص افتح على لسان التبويب : غير ذلك وغير كما هو ظاهر في الصورة

جرب هذا Private Sub Name1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 49 Then Name1 = "احمد " ElseIf KeyCode = 50 Then Name1 = "محمد " ElseIf KeyCode = 51 Then Name1 = "محمود " End If End Sub ولكن رجاء غير اسم الحقل Name عندك لان هذه الكلمة محجوزة

ينقل الى _احبابنا وجيراننا _ قسم أكسل

ممكن والطريقة التي يتم فيها هي لما تفتح البرنامج وفيه موظفين يستحقون الترقية اليوم يظهر تنبيه بذلك لاشعارك فقط ولكن من اجل تطبيق هذه الفكرة يجب توفر الآتي : 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