jjafferr

وعليكم السلام اذا تركت الاكسس يختار تصاميم وازرار والوان الوندوز ، فهذا ما ستحصل . جعفر

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

اخي طاهر تم عمل بعض التعديلات على البرنامج: بالاضافة الى الصور اعلاه ، الجدول قبل الاضافة . وبعد الاضافة . والكود لا يسمح بنسخ البيانات ، اذا كان هناك سجل واحد من البيانات موجود في الجدول مسبقا Private Sub cmd_Copy_From_Click() A = "Format([Forms]![الموظفين]![Date_From],'mmyyyy')" A = DCount("*", "sarfyomi1", "Format([التاريخ],'mmyyyy')=" & A) B = "Format([Forms]![الموظفين]![Date_To],'mmyyyy')" B = DCount("*", "sarfyomi1", "Format([التاريخ],'mmyyyy')=" & B) If Len(Me.Date_From & "") = 0 Then MsgBox "رجاء تعبئة التاريخ - من" Me.Date_From.SetFocus Exit Sub ElseIf Len(Me.Date_From & "") = 0 Then MsgBox "رجاء تعبئة التاريخ - من" Me.Date_From.SetFocus Exit Sub ElseIf A = 0 Then MsgBox "لا توجد بيانات لنسخها من الشهر" & vbCrLf & Me.Date_From Exit Sub ElseIf B > 0 Then MsgBox "بيانات الشهر " & vbCrLf & Me.Date_To & vbCrLf & "موجودة في الجدول" Exit Sub End If DoCmd.SetWarnings False DoCmd.OpenQuery "qry_Copy_From" DoCmd.SetWarnings True MsgBox "تم نسخ سجلات الشهر " & vbCrLf & Me.Date_From & vbCrLf & vbCrLf & _ "الى شهر " & vbCrLf & Me.Date_To End Sub جعفر 847.تجريبي.accdb.zip

وعليكم السلام هل هذا قصدك: نعمل استعلام تجميع لكل من التخصصات ، (هنا نأخذ التبريد كمثال فقط) . ولكن هناك فراغات ، . يجب ان نملئها بإسم التخصص ، وعدد كل مجموعة . البيانات الكاملة لتخصص التبريد ، والذي يجب اتباع نفس الخطوات للتخصصات الاخرى ، . نحول الاستعلام من وضع تصميم الى وضع SQL . هذا هو الاستعلام بصيغة SQL . الآن نعمل نفس الاستعلام لبقية التخصصات ، ولكن لا داعي لعمل الاستعلام بالطريقة اعلاه لبقية التخصصات ، وانما نحن بحاجة الى اخذ SQL استعلام التبريد ، وتطبيقه على بقية التخصصات ، وبين كل تخصص وآخر ، نكتب union all SELECT IIf(Len([Trshh] & "")=0,"تبريد",[Trshh]) AS T, Case, Wrship, Count([Nr]) AS [Counter] FROM تبريد GROUP BY IIf(Len([Trshh] & "")=0,"تبريد",[Trshh]), Case, Wrship union all SELECT IIf(Len([Trshh] & "")=0,"زخرفة",[Trshh]) AS T, Case, Wrship, Count([Nr]) AS [Counter] FROM زخرفة GROUP BY IIf(Len([Trshh] & "")=0,"زخرفة",[Trshh]), Case, Wrship union all SELECT IIf(Len([Trshh] & "")=0,"ملابس",[Trshh]) AS T, Case, Wrship, Count([Nr]) AS [Counter] FROM ملابس GROUP BY IIf(Len([Trshh] & "")=0,"ملابس",[Trshh]), Case, Wrship . والنتيجة: . جعفر 853.db1.mdb.zip

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

هل هذا الذي تريده؟ 846.1.STOCK.accdb.zip

وعليكم السلام انت قلت ، يعلق ، ولكن هل ارسل اي معلومة (انا ما اعرف اي زر قصدك في: اختيار ارسال البيانات الى الجدول) ؟ عندك اختيارين: 1. اما ان ترفق اسم الموقع ، 2. واما ان ترفق البرنامج جعفر

المتصفح الذي كنت استعمله ، والذي هو جزء من مايكروسوفت ، ويمكن تخاطب البرامج برمجيا ، فهو المتصفح Internet Explorer ، وهناك طرق لإستعمال متصفح الكروم والفايرفوكس ، ولكني لم اتطرق اليها. ولكن ، البرنامج المرفق ، ينتج لك قاعدة بيانات مستقلة ، تخاطب الموقع الذي تريده ، ولكن ، عندما تنقر على الزر "Open Browser" ، فتستطيع برمجيا ان تجعل المتصفح مخفي (اذا شئت). جعفر

هلا والله

اعصابك اعصابك انت محق ، وانا اعتذر منك ، تلخبطت الاسماء عليّ هذا الرابط الصحيح جعفر

هل جربت طريقتي؟

وعليكم السلام اعطنا مثال من برنامجك لوسمحت جعفر

جرب هاي Private Sub Amountofservice_BeforeUpdate(Cancel As Integer) If Me.Payment_type = "نقدا (cash )" And Me.Amountofservice <> Nz(Me.Net, 0) Then MsgBox "Amountofservice يجب ان يساوي Net" Cancel = True End If End Sub Private Sub Payment_type_BeforeUpdate(Cancel As Integer) If Me.Payment_type = "نقدا (cash )" Then Me.Amountofservice = Nz(Me.Net, 0) End If End Sub جعفر 850.1.تجريي2.accdb.zip

افضل طريقة ان تضع مثل هذا الكود على حدث "قبل التحديث" للحقل الذي تريد فحصه. Private Sub tel_BeforeUpdate(Cancel As Integer) If Len(Me.tel & "") = 0 Then MsgBox "الحقل الفلاني فاضي", vbCritical + vbMsgBoxleft, "رسالة تحذيرية" Cancel = True End If End Sub جعفر

السلام عليكم . Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.Count_Each_ED <> Me.S_Ed Then Me.Cont = "continue..." & Me.edara Me.Cont.Visible = True Me.edara.Visible = False Me.lbl_Ed.Visible = False Else Me.Cont.Visible = False Me.edara.Visible = True Me.lbl_Ed.Visible = True End If End Sub . . . جعفر 849.test1.accdb.zip 849.test1.mdb.zip

هذه الاحداث ليست بالتسلسل ، هذا الرابط عملته خاص للتوضيح جعفر

الله يخليك سريع ، لأني توني متعشي جعفر

تفضل . جعفر 850.تجريي2.accdb.zip

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

تفضل هذا الكود ، ولكن يجب ان لا تضع الكود على هذا الحدث ، فهذا الحدث هو آخر حدث قبل الخروج من النموذج Private Sub Form_Close() If len(me.Text1 & "")=0 Then MsgBox "الحقل الفلاني فاضي", vbCritical + vbMsgBoxleft, "رسالة تحذيرية" Exit Sub end if جعفر

لا يمكن تجزأت السطر هذا ، فإما تُظهره بالكامل ، او تخفيه بالكامل. جعفر

وحصلت على الاجابة

هذا سطر ، يا موجود بالكامل ، ويا غير موجود بالكامل ، لهذا السبب اخي ابو آدم اقترح البديل جعفر

همم ما كنت ادري ان الزر Ctrl حساس !! اليك الكود بعد لبتجربة Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'KeyCode = 17 vbKeyCtrl CTRL 'KeyCode = 33 vbKeyPageUp PAGE UP key 'KeyCode = 34 vbKeyPageDown PAGE DOWN key 'KeyCode = 107 vbKeyAdd PLUS SIGN (+) key 'KeyCode = 109 vbKeySubtract MINUS SIGN (-) key 'KeyCode = 38 vbKeyUp UP ARROW key 'KeyCode = 40 vbKeyDown DOWN ARROW key Dim intShiftDown As Integer, intAltDown As Integer Dim intCtrlDown As Integer ' Use bit masks to determine which key was pressed. intShiftDown = (Shift And acShiftMask) > 0 intAltDown = (Shift And acAltMask) > 0 intCtrlDown = (Shift And acCtrlMask) > 0 ' Display message telling user which key was pressed. 'If intShiftDown Then MsgBox "You pressed the SHIFT key." 'If intAltDown Then MsgBox "You pressed the ALT key." 'If intCtrlDown Then MsgBox "You pressed the CTRL key." If intCtrlDown Then 'Ctrl If KeyCode = 33 Then '+day 'Ctrl + PAGE UP key tim = tim + 1 ElseIf KeyCode = 34 Then '-day 'Ctrl + PAGE DOWN key tim = tim - 1 End If ElseIf KeyCode = 107 Then '+minute 'PLUS SIGN (+) key tim = tim + (1 / 24 / 60) ElseIf KeyCode = 109 Then '-minute 'MINUS SIGN (-) key tim = tim - (1 / 24 / 60) ElseIf KeyCode = 33 Then '+hour 'PAGE UP key tim = tim + (1 / 24) '0.041666 ElseIf KeyCode = 34 Then '-hour 'PAGE DOWN key tim = tim - (1 / 24) '0.041666 End If End Sub جعفر 785.2.4.mdb.accdb.zip

وعليكم السلام هاي مختصر المطلوب AppPath = Application.CurrentDb.Name AppName = Application.CurrentProject.Name AppExt = Mid(AppName, InStrRev(AppName, ".") + 1) MsgBox AppPath & vbTab & " اسم ومسار قاعدة البيانات " & vbCrLf & _ AppName & vbTab & " اسم قاعدة البيانات " & vbCrLf & _ AppExt & vbTab & " صيغة قاعدة البيانات " 'or MsgBox Application.CurrentDb.Name & vbCrLf & _ Application.CurrentProject.Name & vbCrLf & _ Mid(Application.CurrentProject.Name, InStrRev(Application.CurrentProject.Name, ".") + 1) جعفر