د.كاف يار

تفضل التعديل تم اضافة تجميع حسب الاسم كما يلي الصندوف - المجموع = الرصيد لم افهم كيف يتم اضافة موازنة ! تم بالفعل system1.1.zip

استخدم هذي الطريقة Dim varFilter As Variant: varFilter = Null If Not IsNull([Text1]) Then varFilter = (varFilter) & "[column1] LIKE '" & Text1 & "'" End If If Not IsNull([Text2]) Then varFilter = (varFilter + " AND ") & "[column2] LIKE '" & Text2 & "'" End If If Not IsNull([Text3]) Then varFilter = (varFilter + " AND ") & "[column3] LIKE '" & Text3 & "'" End If Form.RecordSource = "SELECT * FROM [table_name] where" & varFilter كذلك للبحث الجزئي If Not IsNull([Text1]) Then varFilter = (varFilter) & "[column1] LIKE '*" & Text1 & "*'" End If

ابو الحسن ياليت لو ترفق نسخة من البرنامج عشان نطلع عليها و نعطيك الحلول انشاء الله

سؤالك مكرر و تمت الاجابة عليه سابقاً شكرا لك

سؤالك غير واضح كيف يعطي و اين يكون العطاء لرقم الحساب و اين هو جدول الحسابات كذلك هنا نفس الكلام هل تريد نموذج تسجيل فروع جديدة و اقسام للشجرة ؟

و عليكم السلام و رحمة الله وبركاته هل هذا سؤال او معلومة ؟

تفضل هذا الكود Dim msg1, msg2 As String msg2 = "عزيزي المستخدم " & vbNewLine & "يرجى تعبئة الحقل / الحقول الفارغة" Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then If msg1 = "" Then msg1 = " - " & ctl.Name Else msg1 = msg1 & vbNewLine & " - " & ctl.Name End If End If End If Next ctl If msg1 = "" Then DoCmd.RunCommand acCmdSaveRecord MsgBox "تم الحفظ بنجاح", vbInformation, "تأكيد" Else MsgBox msg2 & vbNewLine & msg1, vbCritical, "تنبيه بوجود حقول فراغة" End If مرفق الملف بعد التعديل hamza.zip

تفضل التعديل system.zip

بناء على شرح اخي جعفر تفضل هذه المعادلة الصقها في Module جديد Public Function ConvDate(TbalName As String, CoulmName As String) On Error Resume Next Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset(TbalName) If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) Debug.Print Format(DateAdd("s", rs.Fields(CoulmName), #1/1/1970 3:00:00 AM#), "yyyy-mm-dd") rs.MoveNext Wend End If rs.Close Set rs = Nothing End Function و للاستخدام كالتالي Call ConvDate("TbalName", "CoulmName") مرفق Module Module.zip

هل تقصد كهذا

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

تفضل التعديل قاعدة بيانات HR.accdb

تفضل هذه المحاولة كشف ملاحظة حسب الصف واللجان.zip

خطأ في صيغة ملف الوورد استبدل الكود بالتالي في ازرار فتح الملف الثاني و سيعمل بدون مشكلات Dim X As Object On Error Resume Next Set X = CreateObject("Word.Application") X.Documents.Open CurrentProject.Path & "\althane.doc" X.Visible = True X.Activate X.ActiveDocument.Bookmarks("Idd1").Select X.Selection.InsertAfter Me.Idd.Value

اختصر سؤالك لكي تحصل على اجابة كذلك ارفق مثال لكي تساعد في الوصول للحل بشكل مبسط

اختصر شرحك اذكر المطلوب على شكل نقاط و اين يوجد في اي نموذج ؟ و ماهو الأمر الذي به الخطأ ؟

تفضل هذا الجزء من طلبك و مشاركتي مع اخي @Eng.Qassim انشء موديول جديد و الصقي التالي Public Function SetColNumber(SetText As String) As Variant Dim Number1 As Double, Number2 As Double, CulSum As Variant For i = 1 To Len(SetText) If Mid(SetText, i, 1) = "+" Or Mid(SetText, i, 1) = "-" Or _ Mid(SetText, i, 1) = "/" Or Mid(SetText, i, 1) = "*" Then CulSum = Mid(SetText, i, 1) End If Next i Number1 = Split(SetText, CulSum)(0) Number2 = Split(SetText, CulSum)(1) Select Case CulSum Case Is = "-" SetColNumber = Number1 - Number2 Case Is = "+" SetColNumber = Number1 + Number2 Case Is = "*" SetColNumber = Number1 * Number2 Case Is = "/" SetColNumber = Number1 / Number2 End Select End Function و في حدث لمربع النص بعد التحديث الصق التالي tot = SetColNumber(tot) تفضل الملف بعد التعديل 14.accdb

تفضل الدائن و المدين.zip

الشرح غير مترابط من الصعب فهم ما تريد اشرح باختصار ما هو المطلوب تحديداَ في نقاط لكي سهل تقديم الحل

اتوقع ان هذي اقرب اجابة لطلبك و خاصة انها مبتكرة بكل ما تعنيه الكلمة اعجبتني الفكرة جدا جدا جدا فكرة خارج الصندوق

تفضل التعديل الدائن و المدين.zip

احذف السطر المحدد بالأصفر فقط

تفضل هذه مشاركتي مع المهندس قاسم توزيع جلسات علي الاطفال.zip

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

انشى Module جديد و الصق التالي Function ExportReport(ReportName As String, Index As Variant) Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrname = "Files" fldrpath = CurrentProject.Path & "\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If DoCmd.OpenReport ReportName, acViewReport, , "[ID]=" & Index DoCmd.OutputTo acOutputReport, ReportName _ , "PDFFormat(*.pdf)", fldrpath & "\" & _ Index & ".pdf", False, "", , acExportQualityPrint DoCmd.Close acReport, ReportName, acSaveYes End Function و في ازرار الحفظ الصق التالي ضع اسم التقرير + مربع نص ID Call ExportReport("Report Name Her", ID Number Her) سيتم انشاء مجلد لحفظ ملفات pdf ==================== مرفق مثال لذلك ExportReport.zip