عمر ضاحى

فكره اخرى فاشله IIf([Forms]![frmReportBalance]![OP1]=2;([TblErad]![EradDate])>=[Forms]![frmReportBalance]![txtdate1] And ([TblErad]![EradDate])<=[Forms]![frmReportBalance]![txtdate2];([TblErad]![EradDate])) مع ان هذه المقطع شغال تمام ([TblErad]![EradDate])>=[Forms]![frmReportBalance]![txtdate1] And ([TblErad]![EradDate])<=[Forms]![frmReportBalance]![txtdate2]

السلام عليكم ورحمة الله وبركاته معي هذا الداله IIf([Forms]![frmReportBalance]![OP1]=2;Between [Forms]![frmReportBalance]![txtdate1] And [Forms]![frmReportBalance]![txtdate2];([TblErad]![EradDate])) لكنها لا تعمل جيدا مرفق قاعدة بها النموذج الذى اريد برمجته 01.rar

هو ايه الخطأ فى هذه الداله IIf([Forms]![frmReportBalance]![OP1]=2;Between [Forms]![frmReportBalance]![txtdate1] And [Forms]![frmReportBalance]![txtdate2];([TblErad]![EradDate])) انا عاوز اقول انا كان فى النموذج اختيار رقم 2 اعمل لى فلتر بين تارخين اما اذا كان القيمه غير 2 اجلب لى كل البيانات لكن مش بيظهر لى نتائج

الله يبارك فى استاذى الكريم هذا هو 😍

اه مظبوط النتيجه دي والخانات الفارغه ممكن نضع معيار مثلا اذا كانت النتيجه null يضع 0 ولا ايه رأيك انت

انا زيك والله 😂 مش عارف اجمع حرفين على بعض 😵 من كثر التفكير والمحاولات الفاشله انى اوصل لحل ف كيف اعمل استعلام وسيط لان المفترض f1 ده استعلام وسيط لكنه فشل معي ف انا عاوز حل افضل لجميع الاحتمالات وحاجه اقد اطلع منها استعلامات اخري ابنيها على هذه الاستعلام

كما فى المرفق الاتي Q-Sum-Erad هنا هتلاقى ان عدد الاشهر 4 Q-Sum-Msrofat هنا هتلاقى ان عدد الاشهر 6 انا عاوز Q-Sum-F1 يظهر لى اسم الفروع والاشهر بالحاله الخاصه به مثل ان فرع3 فى شهر 5 ايراد 0 ومصروفات 1000 01.rar

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

الف الف شكر لك هو ما اريد بابسط صوره

السلام عليكم ورحمة الله وبركاته كل سنه وانتم طيبين مرفق قاعدة بيانات فيها جدولين اساسيين لتسجيل المصروفات والايرادات وهم TblErad ( جدول الايرادات) TblMsrofat (جدول المصروفات) اريد ان اعمل استعلام يتكون من 4 صفوف (اساسيين) الصف الاول فيه رقم الشهر مثل 01-2022 و 02-2022 (مصدره الاشهر التى تم التسجيل فيها) الصف الثاني يكون فيه اجمالى الايرادات فى الشهر الصف الثالث اجمالى المصروفات فى الشهر الصف الرابع الفرق بينهم (المكسب والخساره) ولكم جزيل الشكر TEST07.rar

عندي استعلام اريد ان استخدم معه هذه الداله IIf([Forms]![frmReportMsrofat]![OP2]=1;1;IIf([Forms]![frmReportMsrofat]![OP2]=2;2;Is Not Null)) الداله شغال على قيمه 1 وقيمه 2 لكن اريد ايضا ان اجعل الاستعلام يظهر جميع البيانات جربت استخدم Like "*" <0 <>0 كلها تجارب فاشله معي ممكن اعرف السبب Test_S7.rar

وكما وعدتكم ...تم بحمد الله وفضله ...ثم بمساعدة استاذى ومعلمي @ابو جودي ..سائل المولى عز وجل ان يكرمه ويحفظه من كل شر من الانتهاء من فكرة البرنامج كما ذكرة ..واعلم انه ليس مكانه لكن قد يساعد ForTest.rar

روعه

الف الف شكر لحضرتك لكن الفكره اني كنت عاوزها تكون بشكل آلى بالكامل بدون تدخل مني لذا اضن ان هذا ممكن فى الاكسيس انا بالفعل بدأت فى تنفيذ الفكره على الاكسيس ونجحت فى 90% لكن باقى ان اجعل الاكسيس يخرجلى عدد ملفات PDF بعدد الموظفين وان شاء الله بعدما انتهي من حلها سوف اضع نسخه هنا فى الموضوع لكي تكون نواه لمساعدة اخرين

السلام عليكم ورحمة الله وبركاته ...تحيه طيبه للجميع ..بعد اذن حضرتكم عندي ملف اكسيل ..فيه بصمة الموظفين كلهم العمود الاول A فيه ارقام الموظفين ..اريد كود يقوم بتصدير ملف الاكسيل الى PDF كل موظف فى ملف لحاله ..علما ان الصف رقم 1 فيه عناوين (المسميات) باعتذر جدا على الخطأ هذا منى ظنا انه لا يحتاج لبساطة الفكره (فى اعتقادي)(وصعوبة تنفيذها على ارض الواقع) مرفق ملف ...الملف فيه بصمة 6 موظفين ..قد يزيد او ينقص العدد ..اريد ان اعمل كود يستورد البيانات مثلا من ملف اخر اكسيل ومن ثم تصدير الى PDF ..مع الشكر ForTest.xls

هل هذا ما تريد ؟ برجاء اذا كان هذا ما تريد اختيار افضل اجابه ^_^ لشرح ما تم فى حدث بعد التحديث للكمبوبوكس اضفت هذا الكود Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("companies", dbOpenDynaset) With rst .FindFirst Criteria:="[م]=" & Text74 If Not .NoMatch Then Combo76 = ![الرقم الضريبي] Text82 = ![العنوان] End If .Close End With Set rst = Nothing db.Close Set db = Nothing وتم التعديل على مصدر بيانات الكمبوبوكس لاحضار رقم المعرف وتم اخفائه عن طريق جعل مساحته 0 وباقى المساحه للسماء الشركات (طبعا تم تعديل عدد الاعمدة الى 2) نصيحه لك (مهمه جدا جدا) حاول الا تجعل اسماء الحقول فى الجداول بالعربي ^_^ Test_S7.mdb

بعد اذن الجميع وهذه فكره اخرى بسيطه كنت وجدتها على النت واضفتها عندي Bar.accdb

^_^ ابشر ان شاء الله اتحلت نجرب نعدل على الكود بحث يعمل مجلدات جديده باسم الموظف (رقم ID)

اولا اسمحو لى ان اضيف طلب تعديل بسيط عجبنى الكود صراحتا وكنت حابب انى احسن على الكود عن طريق اولا ان يتم استبدال كلمة "الملفات" بمعرف السجل ID عمل كود لمعرفة اذا كان هناك مجلد يحمل نفس المعرف ام لا اذا كان لا يعمل مجلد جديد ويجعل اسمه نفس اسم المعرف علشان ممكن يتم مثلا عمل خطابات معينه لموظفين فيقوم الكود بارسال بيانات الموظف الى ملف الورد وحفظه فى مجلد يحمل رقم الموظف بحيث اذا كان هناك اكثر من طلب خطاب للموظف يكونو محفوظين فى مجلد واحد يخص الموظف ^_^

حاولت اشغله لكن ظهر لى مشكلة فى المكتبات وللاسف واقف عليها مش عارف اكمل ال تقريبا فهمته انها محتاجه MICROSOFT DAO 3.6 OBJECT LIBRARY لكن الملف كان ناقص من عندي جربت انزله لكن برضه ما اشتغل

هو ده الف الف شكر لحضرتك السهل الممتنع ^_^

السلام عليكم ورحمة الله وبركاته كل سنه وانت طيبين بعد اذن اساتذتى الكرام محتاج مساعدتكم فى الوقوف على خطأ فى كتابة كود عندي هذا الكود Public Sub colorSet(Frm As Form) On Error Resume Next Dim frmName As String frmName = Frm.Name 'استيراد الالوان frmName.Header.BackColor = GetSetting("FormColor", "ColorOption", "HeaderColor", 12874308) frmName.Details.BackColor = GetSetting("FormColor", "ColorOption", "DetailColor", 16769023) frmName.Footer.BackColor = GetSetting("FormColor", "ColorOption", "FooterColor", 12874308) End Sub وباقوم باستدعاء الكود Private Sub Form_Load() Call colorSet(Me) End Sub اريد ان اعرف اين الخطأ فى كتابتى للكود لانى اريد بدل ما اقوم بنسخ الكود On Error Resume Next 'ÇÓÊíÑÇÏ ÇáÇáæÇä Me.Header.BackColor = GetSetting("FormColor", "ColorOption", "HeaderColor", 12874308) Me.Details.BackColor = GetSetting("FormColor", "ColorOption", "DetailColor", 16769023) Me.Footer.BackColor = GetSetting("FormColor", "ColorOption", "FooterColor", 12874308) فى كل فورم اريد ان اضعه فى مديول واستدعيه كلما ارته بكلمه

ارفع نموذج للعمل عليه حتى يمكن للاساتذه بارك الله فيهم ان يساعدوك

متابع ^_^

هذا هو الذى اعمل عليه حاليا لقد جربت هذا الكود لكنه فشل معي مش عارف اذاى اذيف المتغيرات داخل كود ال SQL Dim Ls1 As String Dim Ls2 As String Ls1 = Me.List1 Ls2 = Me.List2 strSQL1 = "INSERT INTO Ls2 ( num, age, school, adress ) " & vbCrLf & _ "SELECT Ls1.num, Ls1.age, Ls1.school, Ls1.adress " & vbCrLf & _ "FROM Ls1 " & vbCrLf & _ "WHERE (((Ls1.id)=[Forms]![form]![Ê]));" strSQL2 = "DELETE Ls1.id, Ls1.num, Ls1.age, Ls1.school, Ls1.adress " & vbCrLf & _ "FROM Ls1 " & vbCrLf & _ "WHERE (((Ls1.id)=[Forms]![form]![Ê]));" DoCmd.OpenQuery strSQL1 DoCmd.OpenQuery strSQL2 MsgBox Buttons:=vbInformation, Prompt:="Done", Title:="Notes"