jjafferr

اسمائنا وارقام هواتفنا وتاريخ ميلادنا موجودين في السجلات

السلام عليكم تفضل أخي الكود اصبح: Option Compare Database Public Ok_to_Print As Integer Private Sub Form_BeforeUpdate(Cancel As Integer) 'On Error Resume Next Beep If Ok_to_Print = 0 Then If MsgBox("هل ترغب بحفظ الفاتوره؟" & vbCrLf & _ "أضغط (نعـم) للحفظ ، أو (لا) لإلغاء الأمر .", _ vbInformation + vbMsgBoxRight + vbOKCancel + vbDefaultButton2, _ "تنبيـــه : تاكيد") = vbOK Then Ok_to_Print = 1 Else Cancel = True Me.Undo 'DoCmd.RunCommand acCmdUndo End If End If End Sub Private Sub أمر67_Click() Call Form_BeforeUpdate(True) If Ok_to_Print = 1 Then DoCmd.RunCommand acCmdSaveRecord DoCmd.OpenReport "rpt_Cash_invoice", acViewPreview, , "[رقم السند]=" & Me.[رقم السند] Ok_to_Print = 0 End If End Sub جعفر 568.احتاج مساعدتكم اخواني.accdb.zip

وعليكم السلام واهلا وسهلا بك في المنتدى الموضوع مخالف ، لذا رجاء كتابة موضوع جديد بعنوان واضح حسب المادة 3 ادناه قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف يُغلق - مُخالف. جعفر

السلام عليكم أخي وضاح الموضوع أُغلق لسببين: اولا: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف ثانيا: مافي داعي تكتب موضوع جديد لسؤال مستمر ، كل اللي لازم تعمله لتكملة موضوعك السابق ، هو ان تكتب فيه : للرفع جعفر

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

التاريخ يخلق مشكلة في الكثير من الاحيان ، وبعض الاحيان بسبب اعدادات الكمبيوتر ، لهذا السبب انا عملت هذا الرابط . وبإستخدام الوحدة النمطية الموجودة في الرابط اعلاه والتي تهتم بالتاريخ ، اصبح الكود هكذا: Private Sub بحث_Click() On Error Resume Next Dim ctl As Control Dim Argcount As Integer Dim str As String Argcount = 0 MyCriteria = "" For Each ctl In Me.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox) And ctl.Tag <> "" Then If ctl.Name <> "Date_From" And ctl.Name <> "Date_To" Then AddToWhere ctl.Tag, ctl.Value, "[" & ctl.Name & "]", MyCriteria, Argcount End If End If Next ctl If Len(Me.Date_From & "") <> 0 And Len(Me.Date_To & "") <> 0 Then If Len(MyCriteria & "") <> 0 Then MyCriteria = MyCriteria & " And " End If 'MyCriteria = MyCriteria & " [Date_BR] between #" & Me.Date_From & "# And #" & Me.Date_To & "#" MyCriteria = MyCriteria & " [Date_BR] between " & DateFormat(Me.Date_From) & " And " & DateFormat(Me.Date_To) End If 'Debug.Print MyCriteria myStr = "select * from S_NAMES where " & MyCriteria Me.S_NAME.Form.RecordSource = myStr Me.Requery End Sub جعفر

الظاهر هكذا !! بس لوسمحتي تأخذين صورة للشاشة وارسليها ، يمكن اعدادات تنسيق التاريخ عندك نظام امريكي ، يعني الشهر / اليوم / السنة ، والمشكلة هاي ما تبين إلا في التواريخ الاكبر من 12 !! ولكن ومثل ما تفضلتي ، غيري تنسيق التاريخ في جهازك واخبريني التجربة. ولكن ، رجاء تجربي هذا المرفق اولا وقبل تغيير اي شئ جعفر 566.1.Employees.mdb.zip

ارفق لكي نفس البرنامج مرة اخرى ، كل شئ عندي تمام . جعفر 566.Employees.mdb.zip

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

السلام عليكم أخي كريمو امر فتح التقرير عندك لازم يكون هكذا Dim stDocName As String stLinkCriteria = "EmployeeID=" & Me.EmployeeID stDocName = "x03" 'DoCmd.OpenReport stDocName, acPreview DoCmd.OpenForm "PrintPreviewFrm", , , , , acDialog, stDocName & ";" & Me.Name . انت لا تفتح التقرير ، وانما تفتح النموذج PrintPreviewFrm ، وترسل اليه اسم التقرير واسم النموذج الذي به زر فتح التقرير ، والنموذج PrintPreviewFrm هو الذي يقوم بفتح التقرير جعفر

أختي الظاهر انك بحثتي بالتاريخ فقط!! على العموم ، هذا الكود المعدل يعمل للبحثين معا ، او اي بحث مستقل (الحقول او التاريخ): Private Sub بحث_Click() On Error Resume Next Dim ctl As Control Dim Argcount As Integer Dim str As String Argcount = 0 MyCriteria = "" For Each ctl In Me.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox) And ctl.Tag <> "" Then If ctl.Name <> "Date_From" And ctl.Name <> "Date_To" Then AddToWhere ctl.Tag, ctl.Value, "[" & ctl.Name & "]", MyCriteria, Argcount End If End If Next ctl If Len(Me.Date_From & "") <> 0 And Len(Me.Date_To & "") <> 0 Then If Len(MyCriteria & "") <> 0 Then MyCriteria = MyCriteria & " And " End If MyCriteria = MyCriteria & " [Date_BR] between #" & Me.Date_From & "# And #" & Me.Date_To & "#" End If 'Debug.Print MyCriteria myStr = "select * from S_NAMES where " & MyCriteria Me.S_NAME.Form.RecordSource = myStr Me.Requery End Sub جعفر 566.Employees.mdb.zip

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

وعليكم السلام اختي كود البحث اصبح: Private Sub بحث_Click() On Error Resume Next Dim ctl As Control Dim Argcount As Integer Dim str As String Argcount = 0 MyCriteria = "" For Each ctl In Me.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox) And ctl.Tag <> "" Then If ctl.Name <> "Date_From" And ctl.Name <> "Date_To" Then AddToWhere ctl.Tag, ctl.Value, "[" & ctl.Name & "]", MyCriteria, Argcount End If End If Next ctl If Len(Me.Date_From & "") <> 0 And Len(Me.Date_To & "") <> 0 Then MyCriteria = MyCriteria & " And [Date_BR] between #" & Me.Date_From & "# And #" & Me.Date_To & "#" End If 'Debug.Print MyCriteria myStr = "select * from S_NAMES where " & MyCriteria Me.S_NAME.Form.RecordSource = myStr Me.Requery End Sub . جعفر 566.Employees.mdb.zip

وعليكم السلام هناك عدة اسباب: منها: iif ، وحسب الدرس التالي: عيوبها: الدالة تختبر جميع الحالات ، ولا تختبر القيمة الاولى وتخرج (مثل الـ IF) وارى هنا انك تستعمل iif ستة مرات ، ولثلاثة حقول: . وهذا سبب آخر: . وفهرست الحقول في الجدول ، تلك التي تستخدمها كمعيار في الاستعلام ، وانت عندك الكثير منها في المثال اعلاه. وطبعا يكون في العديد من الاسباب الاخرى ، ونستطيع معرفتها بفحص البرنامج بدقة جعفر

تفضل: ولكني لا انصح بهذه الطريقة ، فالطريقة السابقة (استعمال استعلامين) جدا مرنه ، بينما يجب تغيير قيم DoctorCode و VisitDate في كل حقل بطريقة يدوية (إلا اذا كنت تأخذ هذ المتغيرات من نموذج مفتوح او جدول) . والنتيجة . جعفر 565.1.mdb.zip

وهذه نتائجي ، مطابقة: الاستعلام القديم والجديد . ونتائجهم . جعفر 565.1.mdb.zip

علشان نقدر نقرأ المعادلة ، ففكتها لمعرفة اماكن الحقول الى: A1 = "[امتار الإنتاج]" A2 = "امر التشغيل" A3 = "لوحة تحكم" A4 = "تاريخ الصب" A5 = "المنتج" A6 = "نوع" Me.n1 = DSum("[A1]", "A2", "[A6]=[FORMS]![A3]![M] AND [A5]=[FORMS]![A3]![B2] AND [A4]=[FORMS]![A3]![MM]") . وانا استغرب اذا كانت المعادلة تشتغل اصلا ، لأن طريقتها غير صحيحة!! الآن السوال: الحقول M و B2 و MM اي منها نص ، واي منها رقم ؟ جعفر

تفضل جعفر

السلام عليكم هذا مثال متوسع على الدالة NZ جعفر

وعليكم السلام تفضل: برنامج جاهز: http://www.peterssoftware.com/isd.htm وكود من https://www.experts-exchange.com/questions/28397475/Shutdown-Access-Database-After-Certain-Idle-Time.html Private Sub Form_Load() ' start the count down in 3 minutes (60 x 3 = 180) Me.Tag = 180 ' interval is every second Me.TimerInterval = 1000 End Sub Private Sub Form_Timer() On Error Resume Next '********************************** ' Bail out when count down is zero '********************************** Me.Tag = Val(Me.Tag) - (Me.TimerInterval / 1000) Me.Caption = "Form will exit in " & Me.Tag & " seconds" If Val(Me.Tag) <= 0 Then DoCmd.Quit End If End Sub . جعفر

وعليكم السلام جرب len([coodkindexchange] & '')=0 وفي VBA len([coodkindexchange] & "")=0 هذا يعمل عمل السطرين isnull([coodkindexchange])= true و [coodkindexchange]= "" جعفر والاسهل هو فك الشروط الى اسطر سهل التعامل معاها C = "[exchange]>0" C = C & " And len([coodkindexchange] & '')=0" C = C & " And [Yaree] =" & Forms![frm_3]![Yaree] C = C & " and [Monthly] =" & Forms![frm_3]![Monthly] If DCount("[coodkind]", "Tbl_Month", C) > 0 Then بحيث تستطيع ان توقف عمل اي سطر بعمل اشارة ' (او rem) اما السطر/الاسطر التي لا تريدها في الشرط) جعفر