ابوخليل

تفضل رجعت الى أمثلة محفوظة عندي قديمة فوجدت لك هذه الطريقة لتنفيذ الفكرة ، لم يسجل صاحبها اسمه عليها وقمت بالتعديل عليها بما يتوافق مع مثالك Dim i As Integer Dim strWhere As String strWhere = " WHERE name1 IN (" With List2 For i = 0 To .ListCount - 1 If .Selected(i) Then strWhere = strWhere & """" & .Column(0, i) & """, " Next i End With If Len(strWhere) > 0 Then strWhere = Left(strWhere, Len(strWhere) - 2) & ")" Application.CurrentDb.QueryDefs("Query3").SQL = "SELECT * FROM Query2 " & strWhere End If اسم في قائمة3.mdb

تفضل الحل : المعايير الموجودة في القائمة جعلت نسخة منها في الاستعلام اسم في قائمة2.mdb

فقط نغير الجدول المصدر باسم الاستعلام نفسه ليصبح الكود my_outo_num: DCount("code";"HB_Q";"code <=" & [code]) والمثال اضطررت لنقله الى جهاز آخر للتعديل عليه Lab 2019.rar

هذا هو الحل 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 باسم التقرير عندك