jjafferr

يا اخي يا علي ليش ما تخبرنا كل هذه المعلومات من البداية ، وانت عارف ايش اللي تريده بالضبط

تفضل واذا في تعديل ، فسهل ان تعمل التغيير بنفسك . والنتيجة . . جعفر 875.1.123.mdb.zip

وعليكم السلام وماهي علامة النجاح؟

وعليكم السلام ومشاركة مع اخي الوزير ، تفضل الحساب بطريقتين ، والنتيجة . جعفر 875.هشام.mdb.zip

1. احد المؤسسات اللي تستخدم برنامجي ، والتي ترتيب مجلداتها حسب الرابط ، المجلدات كانت تحتوي على . Employee_Pictures = اكثر من 4000 صورة شخصية = حوالي 370 MB Scanned_Files = اكثر من 115,000 صورة اوراق سكانر = حوالي 277 GB New_Scan = اكثر من 31,000 صورة اوراق سكانر = حوالي 65 GB 2. ما اعرف شو قصدك !! جعفر

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

شوف الرابط هذا جعفر

تفضل ان شاء الله هذا طلبك ، بس لازم تنقر مرتين على الاسم في الملف الرئيسي علشان يطلع لك النموذج الجديد لإدخال الملفات الفرعية جعفر 874.test.accdb.zip

تفضل 873.العيادة.accdb.zip

وكيف الربط بينهم؟

في اي جدول هذه القائمة؟

هذا لا يُسمى بحث بالمربعات الثلاث!! ولا اعرف ما الفائدة من هذا؟ رجاء تشرح اكثر ، علشان ممكن نعطيك افكار اخرى. جعفر

وعليكم السلام هل هذا الذي تريده؟ هذا كود "زر الحفظ وجديد" Private Sub أمر27_Click() If MsgBox("Click""yes""سيتم الحفظ عند الضغط علي نعم", vbYesNo, "هل انت متأكد من انك تريد الفظ وتسجيل وارد جديد") = vbYes Then 'Me.Command3.Enabled = True 'Me.serh = Null If Me.Dirty Then Me.Dirty = False Forms!Fail1!lst_Main.Requery With Forms!Fail1!fail2.Form.RecordsetClone .AddNew !Namefail = Me.Alaksam .Update End With DoCmd.GoToRecord , , acNewRec End If End Sub . ولكن قبل ان تعمل عليه ، ازحه عن النموذج Fail1 حتى ترى النتائج هناك جعفر 874.test.zip

هل هذا قصدك؟ 873.العيادة.accdb.zip

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

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

لا يمكن بالطريقة الحالية ، لأن الامر يأتيه من الجدول عندك طريقتين لعمل الذي تريده: 1. ان تجعل الحقول غير مضمنه (غير مرتبطه بحقول بالجدول) ، يعني عند الذهاب الى سجل ، تأتي بالسجل من الجدول برمجيا ، ثم تُدخل هذه القيم في حقول النموذج ، وعند التغيير/إضافة وقبل الخروج من السجل يجب حفظ البيانات برمجيا ، 2. ان تعمل حقل مزيف/مؤقت لجميع الحقول او للحقول التي تريد تعمل المطلوب عليها ، بالإضافة الى الحقل الاصلmyDate : مثل tDate يعني تاريخ مزيف/مؤقت ، غير مضمن ، نوعه نص ، عند تحميل السجل ، تقول برمجيا: me.tDate = me.MyDate وعند حفظ السجل تقول برمجيا: me.MyDate = me.tDate عندها ستظهر رسالة الخطأ على الحقل MyDate جعفر

اذن مشكلتك تحدث عندما تستعمل "اخفاء خلفية الاكسس" ، في هذه الحالة يجب ان يساعدنا احد الشباب الذين يستعملون اخفاء الاكسس مثل اخونا شفان و صالح @صالح حمادي@Shivan Rekany

وعليكم السلام استعمل الكود التالي علشان يعطيك صفر للحقول الفاضية : NZ = Null to Zero A: nz([abc],0) جعفر

ومن ايهم . شو هي المشكلة اصلا؟

وعليكم السلام هذه طريقة . و . و جعفر

وعليكم السلام جرب هاي الكود ، طبعا بعدما تغير اسماء الحقول Private Sub Form_Error(DataErr As Integer, Response As Integer) 'MsgBox DataErr & vbCrLf & Screen.ActiveControl.Name & vbCrLf & _ Screen.ActiveControl.ControlType & vbCrLf & Screen.ActiveControl.Format If DataErr = 2113 And Screen.ActiveControl.Name = "iDate" Then Response = acDataErrContinue MsgBox "Date" ElseIf DataErr = 2113 And Screen.ActiveControl.Name = "icode" Then Response = acDataErrContinue MsgBox "Code" End If End Sub جعفر

المعذرة تفضل Option Compare Database Dim strcriteria As String ' Private Sub dfgh_AfterUpdate() Call searchCriteria End Sub Private Sub Form_Load() Call searchCriteria End Sub Private Sub n1_AfterUpdate() Call searchCriteria End Sub Private Sub n2_AfterUpdate() Call searchCriteria End Sub Private Sub qwer_AfterUpdate() Call searchCriteria End Sub Function searchCriteria() Dim task As String strcriteria = "" If Not IsNull(Me.dfgh) Then strcriteria = strcriteria & " And " strcriteria = strcriteria & " [اسم المشتري] = '" & Me.dfgh & "' " End If If Not IsNull(Me.qwer) Then strcriteria = strcriteria & " And " strcriteria = strcriteria & " [نوع البيع] = '" & Me.qwer & "' " End If If Not IsNull(Me.n1) And Not IsNull(Me.n2) Then strcriteria = strcriteria & " And " strcriteria = strcriteria & "Format([تاريخ الفاتورة],'yyyymmdd') Between " & Format(Me.n1, "yyyymmdd") & " And " & Format(Me.n2, "yyyymmdd") End If If Left(strcriteria, 5) = " And " Then strcriteria = " Where " & Mid(strcriteria, 6) End If 'Debug.Print strcriteria task = "Select * from [راس الفاتورة]" & strcriteria Me.مساعد_تصفية_فواتير_البيع.Form.RecordSource = task Me.مساعد_تصفية_فواتير_البيع.Form.Requery End Function Private Sub اغلاق_Click() DoCmd.Close acForm, "تصفية فواتير البيع" DoCmd.OpenForm "المركزي", acNormal End Sub Private Sub أمر10_Click() Me.dfgh = Null Me.qwer = Null Me.n1 = Null Me.n2 = Null Call searchCriteria End Sub Private Sub أمر11_Click() strcriteria = Replace(strcriteria, " Where ", "") 'DoCmd.OpenReport "تصفية البيع", acViewPreview, , strcriteria DoCmd.OpenReport "تصفية البيع", acViewNormal, , strcriteria End Sub جعفر 870..accdb.zip

وعليكم السلام واهلا وسهلا بم في المنتدى تفضل: Option Compare Database Dim strcriteria As String ' Private Sub dfgh_AfterUpdate() Call searchCriteria strcriteria = "" End Sub Private Sub Form_Load() Call searchCriteria strcriteria = "" End Sub Private Sub n1_AfterUpdate() Call searchCriteria End Sub Private Sub n2_AfterUpdate() Call searchCriteria strcriteria = "" End Sub Private Sub qwer_AfterUpdate() Call searchCriteria strcriteria = "" End Sub Function searchCriteria() Dim task As String If Not IsNull(Me.dfgh) Then strcriteria = " And " strcriteria = strcriteria & " [اسم المشتري] = '" & Me.dfgh & "' " End If If Not IsNull(Me.qwer) Then strcriteria = strcriteria & " And " strcriteria = strcriteria & " [نوع البيع] = '" & Me.qwer & "' " End If If Not IsNull(Me.n1) And Not IsNull(Me.n2) Then strcriteria = strcriteria & " And " strcriteria = strcriteria & "Format([تاريخ الفاتورة],'yyyymmdd') Between " & Format(Me.n1, "yyyymmdd") & " And " & Format(Me.n2, "yyyymmdd") End If If Left(strcriteria, 5) = " And " Then strcriteria = " Where " & Mid(strcriteria, 6) End If 'Debug.Print strcriteria task = "Select * from [راس الفاتورة]" & strcriteria Me.مساعد_تصفية_فواتير_البيع.Form.RecordSource = task Me.مساعد_تصفية_فواتير_البيع.Form.Requery End Function Private Sub اغلاق_Click() DoCmd.Close acForm, "تصفية فواتير البيع" DoCmd.OpenForm "المركزي", acNormal End Sub Private Sub أمر10_Click() Me.dfgh = Null Me.qwer = Null Me.n1 = Null Me.n2 = Null Call searchCriteria End Sub Private Sub أمر11_Click() Call searchCriteria DoCmd.OpenReport "تصفية البيع", acViewNormal, , strcriteria strcriteria = "" End Sub جعفر 870.بيع.accdb.zip

وعليكم السلام الكود سيصبح Private Sub a_AfterUpdate() Call Compare_a_b End Sub Private Sub b_AfterUpdate() Call Compare_a_b End Sub Private Sub Compare_a_b() If Len(Me.a & "") <> 0 And Len(Me.b & "") <> 0 Then If Me.a > 2000 And Me.b < 5000 Then Me.c = 2 ElseIf Me.a > 5000 And Me.b < 10000 Then Me.c = 3 Else Me.c = "" End If Else Me.c = "" End If End Sub جعفر 867.11.mdb.zip