jjafferr

1. اذن الكود الذي ارفقته يعمل!! 2. رجاء ارفاق صورة من رسالة الخطأ. جعفر

وعليكم السلام بدل tim_KeyDown ، استعمل Form_KeyDown Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 107 Then tim = tim + 0.041666 ElseIf KeyCode = 109 Then tim = tim - 0.041666 ElseIf KeyCode = 33 Then tim = tim + 1 ElseIf KeyCode = 34 Then tim = tim - 1 End If End Sub جعفر

السلام عليكم انا قلت "المفروض" ، وما قلت ما يصير !! الاستعلام اصبح: SELECT Tabil_Visitors.id_visitors, Tabil_Visitors.Num_brnamge, Tabil_Visitors.service, Tabil_Visitors.Travel2, Nz(DCount("[Travel2]","Tabil_Visitors","[Num_brnamge]=" & [Num_brnamge] & " and [Travel2]=" & 1),0) AS Expr1, Nz(DCount("[Travel2]","Tabil_Visitors","[Num_brnamge]=" & [Num_brnamge] & " and [Travel2]=" & 2),0) AS Expr2, IIf([Travel2]=1 Or [Travel2]=2 Or [Travel2]=3 Or [Travel2]=6 Or [Travel2]=7 Or [Travel2]=8,Nz(DCount("[Travel2]","Tabil_Visitors","[Num_brnamge]=" & [Num_brnamge] & " And [Travel2]=" & [Travel2]),0),0) AS Expr3, IIf([service]=1 Or [service]=2 Or [service]=3 Or [service]=6 Or [service]=7 Or [service]=8,(SELECT TOP 1 Sum(1) AS Total_Beds_Flight FROM Tabil_Visitors WHERE (((Tabil_Visitors.service) In (1,2,3,6,7,8))) GROUP BY Tabil_Visitors.Num_brnamge HAVING (((Tabil_Visitors.Num_brnamge)=[forme_Fatora]![num_brnamge]));),0) AS TT FROM Tabil_Visitors WHERE (((Tabil_Visitors.Num_brnamge)=[forme_Fatora]![num_brnamge])); . والنتيجة: . جعفر

السلام عليكم استعمل الاداة: . لكي تعرض الكود في المشاركة بطريقة صحيحة ، ليسهل علينا قراءة الكود : Private Sub p1_Click() If Now() - [time] > 0.01041667 And [error_level] = 3 Then [error_level] = 0 End If If IsNull([n3]) Then DoCmd.OpenForm "user1", acNormal Else If [error_level] = 3 Then Ms$ = "تم ايقاف المستخدم 15 دقيقة " Ti$ = "و" RE = MsgBox(Ms$, 0, Ti$) Else If IsNull([user_name]) Or IsNull([password]) Then Ms$ = "اضف اسم المستخدم وكلمة المرور" Ti$ = "و" RE = MsgBox(Ms$, 0, Ti$) Else If [user_name] = [n1] And [password] = [n2] Then DoCmd.OpenForm "user3", acNormal [error_level] = 0 DoCmd.Close acForm, "user2" Else [error_level] = [error_level] + 1 [time] = Now() Ms$ = "كلمة المرور خطأ للمرة" & [error_level] n2.SetFocus Ti$ = "و" RE = MsgBox(Ms$, 0, Ti$) End If End If End If End If End Sub وما فيه اي مشكلة وعند فتح احد النماذج مثلا CC نفتحه بهذا الكود If [CC] = 0 Then DoCmd.OpenForm "CCC" Else DoCmd.OpenForm "CC", acNormal, , , , acDialog End If . جعفر

السلام عليكم تستطيع عمل استعلام CrossTab ، والذي سيعطيك نتائج صحيحة ، . . ولكن في التقرير يمكنك مسبقا ان تضيف كم سنه للمستقبل ، وبرمجيا تخبئ العمود اذا مافي بيانات لتلك السنه ، وهذه طريقة عمل الاعمدة في استعلام CrossTab واللي على اساسه تعمل التقرير: . وهناك طريقة اخرى لعمل التقرير: . وهنا سؤال آخر عن نفس الموضوع: جعفر 783.عرض تقرير.accdb.zip

وعليكم السلام المفروض يكون عندك استعلام عام ، واستعلام تجميعي يكون فيه البيانات المطلوبة: . جعفر 779.1.QryVisitors.accdb.zip

السلام عليكم اما انا ، فإن شاء الله افرد له موضوع مستقل ، وعلى راسي جعفر

لا ما نريد القاعدة، مجرد الاسطر اللي أخبرتك، اللي لها علاقة بسؤالك جعفر

حياك الله بس ياريت تضع لنا الحدثين (احذف الكود اللي ما له علاقة بموضوعنا) ، علشان يستفيد الكل جعفر

السلام عليكم اخي عبدالله هذه احد اسراري ، وانت كشفتها ولكني جعلت إضافة القيمة وتغييرها من نموذج واحد ، ومن الصورة ترى عدد الحقول التي استعملتها في الجدول (مثل مثالك) : . وعندما يتم التعديل ، فيكون التعديل في هذا الجدول المخزن فيه القيمة للإختيار ، بالاضافة الى سجلات الجدول الذي يتم فيه اختيار هذه القيمة جعفر

وعليكم السلام الحدث الذي عليه cmd_Search3 ، بدل ان يكون Private ، اجعله Public ، ثم في الحدث على cmd_Search اكتب هذا الكود: Form_frm_yy. ستحصل على قائمة الاوامر الموجودة في ذلك النموذج ، فاختار Form_frm_yy.cmd_Search3..... حيث ... يكون بقية اسم الحدث جعفر

وهو كذلك ونتيجة المعادلة: Expr4: IIf([Travel2]=1 Or [Travel2]=2 Or [Travel2]=3 Or [Travel2]=6 Or [Travel2]=7 Or [Travel2]=8,Nz(DCount("[service]","Tabil_Visitors","[Num_brnamge]=" & [Num_brnamge] & " And [service]=" & [service]),0),0) Expr4: IIf([Travel2]=1 Or [Travel2]=2 Or [Travel2]=3 Or [Travel2]=6 Or [Travel2]=7 Or [Travel2]=8, Nz( DCount("[service]","Tabil_Visitors","[Num_brnamge]=" & [Num_brnamge] & " And [service]=" & [service]) ,0) ,0) . . كذلك النتيجة صحيحة جعفر 779.QryVisitors.accdb.zip

معادلة العمود C كما كان: =(I6+H6+E6+D6)/5*J6 بينما اذا اضفنا العمود K لوضع المواد المعفاة بحرف م ، والعمود B فيه مجموع العلامات بإستثناء المعفاة م: =IF(K6="م",0,(I6+H6+E6+D6)/5*J6) . جعفر 781.كشف السنة الأولى ثانوي علمي.xlsx.zip

شو السالفة ، نتائجنا ما تتفق انا اخذت المعادلة ، واشتغلت على طول: . وهاي المعادلة: Expr4: IIf([Travel2]=1 Or [Travel2]=2 Or [Travel2]=3 Or [Travel2]=6 Or [Travel2]=7 Or [Travel2]=8,Nz(DSum("[Travel2]","Tabil_Visitors","[Num_brnamge]=" & [Num_brnamge] & " And [Travel2]=" & [Travel2]),0),0) وهي Expr4: IIf([Travel2]=1 Or [Travel2]=2 Or [Travel2]=3 Or [Travel2]=6 Or [Travel2]=7 Or [Travel2]=8, Nz( DSum("[Travel2]","Tabil_Visitors","[Num_brnamge]=" & [Num_brnamge] & " And [Travel2]=" & [Travel2]) ,0) ,0) . ولكن ، استعمال الجمع غير صحيح ، لأنه ما عندك قيم علشان تجمعها ، وانما عندك خدمات تقوم بتعدادها (count او Dcount) جعفر

السلام عليكم اخي طاهر رجاء فتح موضوع خاص بك ، فهذا الموضوع قديم وتمت الاجابة عليه!! جعفر

السلام عليكم اخي طاهر رجاء فتح موضوع خاص بك ، فهذا الموضوع قديم وتمت الاجابة عليه!! جعفر

السلام عليكم لا ادري اذا قوانين المنتدى تسمح لك بعمل اكثر من حساب لشحص واحد ، كما هو الوضع معك radwan1991 و radwank64 !! المنتدى مليء بمواضيع تشبه طلبك ، فكل ما عليك عمله هو استخدام خاصية البحث للحصول على روابطها ، واليك بعض هذه المواضيع: https://www.officena.net/ib/topic/77097-استيعاب-سجلات-التقرير-كلها-فى-صفحة-واحدة-مهما-اختلف-عددها/?do=findComment&comment=494389 https://www.officena.net/ib/topic/36167-موضوع-مميز-الحل-الشافي-لتقارير-أكسس/ https://www.officena.net/ib/topic/45998-طباعة-عدد-سجلات-محدد-في-صفحات-التقرير-معدل/?do=findComment&comment=273465 جعفر

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

تفضل انا عملت تغيير في الجدول ، فعملت اسماء الخدمة عبارة عن رقم ، وفي النموذج ، يختار مربع السرد العمود الصحيح لإعطاء الاسم ، سواء بالعربي او الانجليزي ولكنك ستلاحظ ان الكود سيعمل الى ان تحصل على الخدمة السادسة بالمجان ، ولكن ماذا بعد ذلك؟ رجاء تجربة الكود لعدة زبائن والكود: Private Sub Name_employee1_AfterUpdate() Me.Amountofservice = Me.Name_employee1.Column(2) Me.ServiceName = Me.Name_employee1 'Me.Name_employee1.Column(1) Call Check_Qty End Sub Private Sub ServiceName_AfterUpdate() Me.Amountofservice = Me.ServiceName.Column(2) Me.Name_employee1 = Me.ServiceName 'Me.ServiceName.Column(3) Call Check_Qty End Sub Private Sub Check_Qty() If DCount("*", "Service", "[Nameemployee1]=" & Me.Name_employee1 & " And [CustomerNumber]=" & Me.CustomerNumber) = 5 Then Me.Amountofservice = 0 End If End Sub . جعفر 780.تجريي2.accdb.zip

غيّر Dcount الى Dsum جعفر

كان عندك ' زائدة في الاستعلام الاول ، لهذا السبب كنت تحصل على خطأ ، وتم تصحيح الاستعلام الثاني كذلك: . والنتائج . جعفر 779.QryVisitors.accdb.zip

يجب عدم استخدام Dlookup ، لأنها تعطي اول قيمة تلقاها في الجدول (كما قلت انت) والطريقة الصحيحة هي عمل استعلام يأخذ فيه جميع بيانات الجدول T_Caht ربطا بأسماء المستخدمين من الجدول user: . ومن هذه الجداول ، نرى ان بيانات الاستعلام صحيحة: . على هذا الاساس ، التنسيق الشرطي يصبح . والنتيجة: . جعفر 778.تنسيق شرطي.accdb.zip

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

في النموذج ، الحقل [xn3] فارغ

عفوا عفوا عفوا !! انا اعتذر عن هذا الخطأ تعديل اخير = iif([Travel2]=1 or [Travel2]=2 or [Travel2]=3 or [Travel2]=6 or [Travel2]=7 or [Travel2]=8 ; nz(Dcount("[Travel2]";"Tabil_Visitors";"[Num_brnamge]='" & [Num_brnamge] & " And [Travel2]=" & [Travel2]);0) ; 0) يعني في سطر واحد يصبح الكود = iif([Travel2]=1 or [Travel2]=2 or [Travel2]=3 or [Travel2]=6 or [Travel2]=7 or [Travel2]=8 ; nz(Dcount("[Travel2]";"Tabil_Visitors";"[Num_brnamge]='" & [Num_brnamge] & " And [Travel2]=" & [Travel2]);0) ; 0) جعفر