jjafferr

وعليكم السلام :) الكود كله تمام ومافيه خطأ :) يمكن الخطأ في مكان آخر :) جعفر

حياك الله :)

وعليكم السلام :) استعمل هذا الكود في حدث التحميل: Private Sub Form_Load() On Error GoTo err_Form_Load 'Me.path2 = Me.id & "_image" & ss & ".jpg" 'Forms!ekama!image1.Picture = PictureFile Me.image1.Picture = Application.CurrentProject.Path & "\foto\" & Me.path2…

استعمل الايقونه اللي اعلى منها :) جعفر

:)

تفضل :) انا غيرت اسم الزر الى cmd_Append ، وهذا كود حدث الضغط على الزر: Private Sub cmd_Append_Click() On Error GoTo err_cmd_Append_Click 'save the last change in the Form If Me.Dirty Then Me.Dirty = False 'place the whole Form data in a Recordset Set rst = Me…

عذرا اخي خضر ، فانا لم افهم المطلوب ، وارفاق مثال سيساعدني في فهم المطلوب :) جعفر

وعليكم السلام :) هناك استعلام لا يضيف ، ولكن يمكن ان نجعله يضيف وذلك من خلال تغيير خصائصه: غير ، بدل Recordset type: Dynaset الى Recordset type: Dynaset (Inconsistent Updates) جعفر

وعليكم السلام اخي خضر :) عذرا ، لم افهم المطلوب ، وياريت ترفق مثال :) جعفر

عفوا ، لم يكن قصدي انه مقفل ، وانما مؤمن :) تفضل :) انا غيرت اسم حقل ادخال الرقم الوظيفي الى myID ، وهذا هو كود على الحدث بعد التحديث: Private Sub myID_AfterUpdate() Me.close_with = DLookup("[Name]", "tbl_eng", "[ID]=" & Me.myID) End Sub رجاء ملاحظة ان النموذج…

اخي الفاضل 1. انت لم ترد على اسئلتي ، فكيف نساعدك!! 2. المعلومات اللي كتبتها في مشاركاتك الاثنين لا تتفق مع بعض!! 3. في اي حقل في النموذج تريد ان تشوف الاسم!! رجاء اعد صياغة سؤالك خلال نظرك للنموذج. جعفر

وعليكم السلام اخي :) ضع هذا الكود في الكود الخاص بك: colon = InStr(Node.Parent, ":") Me.Text32 = Mid(Node.Parent, colon + 1) جعفر

وعليكم السلام اخي :) 1. النموذج مغلق ، فكيف استطيع ان افتحه؟ 2. لا يوجد حقل اسمه id_eng !! 3. ما اسم حقل اسم الموظف؟ يعني بإختصار ، ياريت تساعدنا بالتفاصيل والشرح علشان نساعدك :) جعفر

وعليكم السلام اختي :) اعتذر عن التأخر في الرد ، فانا كثير السفر :) بدل ما ارسل لكي البرنامج ، رجاء اعملي التغييرات التالية: 1. أ. احذفي حقول مربع التحرير و السرد ، واعيدي تسمية حقول النص بنفس اسماء حقول مربع التحرير و السرد. ب. الحقل Date_To لديه حدث قبل التحد…

والنعم بيك اخوي محمد :) انت كنت تحتاج الى مساعدة لتخطي العقبة الاولى وتمسك بطرف خيط طريقة الحل ، والحمدلله ، الله وفقني بالمساعدة ، ثم وفقك بإكمال المشوار :) جعفر

شكرا اخي رمهان :) في الواقع انا كتبت الكود وانا على عجلة ، وفي المتصفح مباشرة ، بدون ان ادقق بأن الكود الموجود هو Function وليس Sub :( جعفر

عفوا أخي خضر ، تعليقي ﻻ علاقه له بالسؤال ، وانما كان تعقيب فني على me.refresh :) جعفر

وعليكم السلام :) الكود الذي وضعته لك هو SQL إستعلام ، فياريت ترفق لنا صورة من تصميم الاستعلام. جعفر

انا دائما احاول اتفادى me.Refresh ، وذلك لأنها تعمل وميظ في النموذج ، لذا انا استبدله بـ me.requery :) جعفر

كل شئ جديد ، حيّاه الله ، وحياك الله اخي رمهان :) جعفر