عمر ضاحى

وكما وعدتكم ...تم بحمد الله وفضله ...ثم بمساعدة استاذى ومعلمي @ابو جودي ..سائل المولى عز وجل ان يكرمه ويحفظه من كل شر من الانتهاء من فكرة البرنامج كما ذكرة ..واعلم انه ليس مكانه لكن قد يساعد 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"

بص اجمالى الاستعلامات هتكون 12 استعلام الحل يكون تكوين الاستعلام متغير بتغير اسم الجدول انا شغال عليه دى النتيجه للفكره (فقط للاطلاع لحين ايجاد حل ان شاء الله) test-a.accdb

انا ممكن معرفش اعملها كويس لكن سوف اجرب و الفكره هي اولا انت هتحتاج تعمل استعلام الحاقي لنسخ البيانات من جدول 1 الى جدول 2 وثم استعلام حذف لنفس البيانات فى جدول 1

متابع فى صمت ^_^

جرب هذا التعديل 5-5.mdb ايضا هذا حل اخر 5-5.mdb

حضرتك جربت الملف اولا ؟

بعد اذنك باش مهندس قاسم اسمح لى بالمداخله جرب هذا الحل لقد قمت باضفة دالة LIKE Like "*" & [Forms]![نموذج1]![الوظيفهA].[Text] & "*" 5-5.mdb

طيب ما هو المعيار الذى بابني عليه المطلوب يعنى ما القيمه او الشرط التى اذا تحقق يفعل كذا عموما طلبك ممكن تنفيذه باستعلام او دالة if او دالة Select

مبارك لك استاذي @ناقل واعاتك الله على هذه المسؤلية

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

معرفش اذا كانت هذه الاكواد تعمل معك ام لا لكن يمكن ان تجرب للاضافة Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("TablName", dbOpenDynaset) With rst .AddNew ![Name1] = me.txt1 ![Name2] = me.txt2 .Update .Close End With Set rst = Nothing db.Close Set db = Nothing للتعديل Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("TablName", dbOpenDynaset) With rst .FindFirst Criteria:="[ID]="&me.txtID If Not .NoMatch Then .Edit ![Name1] = me.txt1 ![Name2] = me.txt2 .Update End If .Close End With Set rst = Nothing db.Close Set db = Nothing

ادري ان الكود شغال لكن كنت عاوز اعرف ايه الكلام الهلوغروفى المكتوب بس ^_^ (( 'åÐÇ ÑÞã f6 ))