jjafferr

ممتاز ، هذا هو طرف الخيط المطلوب جعفر

اسمح لي اشوف الموضوع من اصله ، ولكن غدا صباحا ان شاء الله ، فالساعة عندي الآن 2:13 جعفر سؤال: لماذا عملت استعلام مجاميع؟

جرب Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) جعفر

آسف على التأخير ، كنت اراجع السجلات عدد السجلات Query2 = 490 عملت نسخة منها وعملتها بإسم Query22 ، ثم ربطت الجدول بالاستعلام ، وصارت السجلات = 495 ، الخمسة سجلات الاضافية هي لأن عندك في الجدول رقم SN لأكثر من شركة: APR10-3101 = 1+1 PER ATTACHED LIST = 4+1 ونفس النتائج حصلت عليها لما نسخت Query1 الى Query11 وربطتها بـ Customers اللي مش فاضين. جعفر 603.xxx.mdb.zip

لا تغير شئ في الاستعلام الجدولي ، وانما اربط الجدول/الاستعلام الذي تريده في الاستعلام 1 او 2 ، واستعمل الحقل الذي تريده فيها. جعفر

مع اني لست من محبي SendKeys ، إلا اني لم اجد أمرا آخر Private Sub Form_Dirty(Cancel As Integer) Dim jItems As String, x, Style, Title, Response, Help, Ctxt jItems = "The Field: " & Me.ActiveControl.Name & vbCrLf & _ "is changed!!" & vbCrLf & _ "Do you want to Accept Changes?" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(jItems, Style, Title, Help, Ctxt) If Response = vbYes Then 'DoCmd.Save Me.Dirty = False Else Cancel = True Me.Undo End If SendKeys "{F5}" End Sub جعفر 602.Alertmsg.accdb.zip

السجلات التي موجودة في الاستعلام الآن ، هي جميعا فريدة ، ومعناه ان الارقام الموجودة في الاستعلام الاول ، هي الارقام النهائية جعفر

ابا جودى ، 1. بالعكس ، سيُظهر فقط الحقول الفارغة في FAA ، وهذا طلبك ، وحتى لو كانت حقول EASA مليانه وتم إخفائها ، فالمفروض انها لا تكون في الجمع اصلا ، 2. الاستعلامين يعملون طلبك ، والنتيجة واحدة بينهم Nz([EASA],0)>0 And Nz([FAA],0)=0 جعفر

عفوا انا غيّرت بالكود ، ولكنك الظاهر التقطته قبل التعديل على العموم ، اليك طريقتين: . والنتيجة: . جعفر 603.xxx.mdb.zip 603.xxx.mdb.zip

وعليكم السلام اضف هذا الحقل الى الاستعلام (وقد تحتاج الى تغيير الفاصلة الى فاصلة منقوطة) C: IIf(Nz([EASA],0)>0 And Nz([FAA],0)=0,1,0) جعفر

Private Sub Form_BeforeUpdate(Cancel As Integer) Dim ctl As Access.Control Dim jLock As Integer Dim jItems As String, Style, Response jLock = 0 jItems = "" 'Don't go through New Records If Me.NewRecord = False Then 'go through Form controls For Each ctl In Me.Controls 'only Textboxes If ctl.ControlType = acTextBox Then ctl.SetFocus 'check if the value has been changed If Val(Nz(ctl.Text, "")) <> Val(Nz(ctl.OldValue, "")) Then jLock = 1 jItems = "The Field: " & ctl.Name & vbCrLf & _ "The OLD value : " & Nz(ctl.Text, "") & vbCrLf & _ "The New value : " & ctl.OldValue & vbCrLf & _ "------------------------------------" & vbCrLf & jItems End If 'Nz End If 'ControlType Next 'the confirmation If jLock = 1 Then jItems = jItems & vbCrLf & vbCrLf & _ "Do you want to Accept Changes?" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(jItems, Style, Title, Help, Ctxt) If Response = vbYes Then DoCmd.Save Else Cancel = True Me.Undo End If End If 'jLock End If 'NewRecord Set ctl = Nothing End Sub

اي سطر؟ وإلا اقول لك ، واللي يرحم والديك ، بدل الكر والفر ، ارفق هذه الجزئية من البرنامج مع شوية بيانات ، واخبرني طريقة الحصول على هذا الخطأ. جعفر

هلا وغلا بس انا شايف ان اخوي شفان يطالع الموضوع ، واذا وُجد الماء بطل التيمم جعفر

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

أخي كريمو الظاهر انك مو راضي عني ولا توضيح عن المطلوب ، وكيف الحساب ووووو ، واقارنه مع اي حقل او احسبه من اي حقل ، او تاريخ !! جعفر

وعليكم السلام تفضل ضع الكود في حدث النموذج "قبل التحديث": Private Sub Form_BeforeUpdate(Cancel As Integer) Dim ctl As Access.Control dim jLock as integer dim jItems as string, x, Style, Response jLock = 0 jItems = "" 'Don't go through New Records If Me.NewRecord = False Then 'go through Form controls For Each ctl In Me.Controls 'only Textboxes If ctl.ControlType = acTextBox Then ctl.SetFocus x = Nz(ctl.Text, "") 'check if the value has been changed If Val(x) <> Val(ctl.OldValue) Then jLock = 1 jItems = "The Field: " & ctl.Name & vbCrLf & _ "The OLD value : " & Nz(ctl.Text, "") & vbCrLf & _ "The New value : " & ctl.OldValue & vbCrLf & _ "------------------------------------" & vbCrLf & jItems End If 'Nz End If 'ControlType Next 'the confirmation If jLock = 1 Then jItems = jItems & vbCrLf & vbCrLf & _ "Do you want to Accept Changes?" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(jItems, Style, Title, Help, Ctxt) If Response = vbYes Then DoCmd.Save Else Cancel = True Me.Undo End If End If 'jLock End If 'NewRecord End Sub جعفر

شكرا أخي حمدي على هذه الكلمات الرقيقة جعفر

أخي كريمو انا كنت امزح ، فأعتذر منك اي حقل يجب ان انظر اليه ، وما النتائج التي يجب ان تكون ، وفي اي تاريخ !! انا ما عندي ادنى فكرة !! جعفر

أخي كريمو انت تعرف اني احتاج دليل وشرح للمرفق ، فكل اللي اقدر اقوله عن المرفق: 1. شكله جميل ، 2. ما احب النماذج المنبثقة ، ودائما اغيرها الى عادية ، 3. وما احب On Timer ، لأنه يجعل الكمبيوتر يبذل جهد ، اللي ممكن استغلاله لشئ افضل ، ويتعبني في الكود جعفر

وعليكم السلام تفضل ضع الكود في حدث النموذج "قبل التحديث": Private Sub Form_BeforeUpdate(Cancel As Integer) Dim ctl As Access.Control jLock = 0 jItems = "" 'Don't go through New Records If Me.NewRecord = False Then 'go through Form controls For Each ctl In Me.Controls 'only Textboxes If ctl.ControlType = acTextBox Then ctl.SetFocus x = Nz(ctl.Text, "") 'check if the value has been changed If Val(x) <> Val(ctl.OldValue) Then jLock = 1 jItems = "The Field: " & ctl.Name & vbCrLf & _ "The OLD value : " & Nz(ctl.Text, "") & vbCrLf & _ "The New value : " & ctl.OldValue & vbCrLf & _ "------------------------------------" & vbCrLf & jItems End If 'Nz End If 'ControlType Next 'the confirmation If jLock = 1 Then jItems = jItems & vbCrLf & vbCrLf & _ "Do you want to Accept Changes?" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(jItems, Style, Title, Help, Ctxt) If Response = vbYes Then DoCmd.Save Else Cancel = True Me.Undo End If End If 'jLock End If 'NewRecord End Sub جعفر

عفوا كنت اعتقد انه تم التوضيح في الاجابة شو المطلوب الآن؟ جعفر

السبب في مشكلة المعادلة هي انك كنت تأخذ النتيجة وتضربها في الاشهر ، بينما اذا استعملت المعادلة الاصلية ، فستكون النتائج صحيحة ، انظر هذا العمل لثلاث سنوات: جعفر

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

وعليكم السلام أخي كريمو لماذا نستعمل هذه المعادلة ؟ اذا كانت وظيفته تعطيه اجازة معينة عند توظيفة ، مثلا 30 يوم في السنة ، ثم سنويا تريد تضيف يوم على الـ 30 يوم ، فالمعادلة ستكون سهلة هل مفهومي للسؤال صحيح؟ جعفر

السلام عليكم اخي رضا ، ما قادر اختار شئ من حقل كود التصنيف ، يعطيني رسالة خطأ ، رجاء اعطنا برنامج يعمل حاول تضع هذا الكود وشوف اذا يعمل Private Sub كود_التصنيف_AfterUpdate() On Error GoTo err_Handler Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst If Me.NewRecord Then rst.MovePrevious A = rst![رقم امر الصرف] rst.MoveNext Me.[رقم امر الصرف] = A End If Exit_Handler: rst.Close: Set rst = Nothing Exit Sub err_Handler: If Err.Number = 3021 Then Resume Exit_Handler Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر