نجوم المشاركات

جرب هذا السطر بدلا عن الذي عندك Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long جعفر

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

استخراج تاريخ الميلاد من الرقم القومي : =DateSerial(Mid([raqm_qomy];2;2);Mid([raqm_qomy];4;2);Mid([raqm_qomy];6;2)) باعتبار raqm_qomy هو حقل الرقم القومي hgyt2.rar

أكيد هوه الافضل ولكن ليصبح البرنامج كامل هناك مبلغ من المال خدمه عملا لكل شريحة وجاءت الأسعار الجديدة كالتالي: «استهلاك من 0 إلى 50 كيلو وات تتم إضافة جنيه على كل فاتورة، ومن 51 إلى 100 كيلو وات 2 جنيه ، ومن 0 إلى 200 كيلو وات 6 جنيهات، ومن 201 إلى 350 كيلو وات 11 جنيها، ومن 351 إلى 650 كيلو وات بـ15 جنيها، ومن 651 إلى 1000 كيلو وات 20 جنيها، وأكثر من 1000 كيلو وات يتم دفع 40 جنيها، والعدادات المقروءة بصفر استهلاك يتم دفع 9 جنيهات قيمة خدمة العملاء».

السلام عليكم اخي وضاح تفضل هذا المرفق: . جعفر 727.2.الاستاذ جعفر.accdb.zip

السلام عليكم مشاركة مع الاستاذ العزيز شيفان الاجراء سيكون كالتالي : Sub changeBtnColor(btn1 As Control, btn2 As Control, btn3 As Control) btn1.BackColor = "9243047" btn2.BackColor = RGB(0, 183, 239) btn3.BackColor = RGB(0, 183, 239) End Sub استدعاؤه في الزر a1 سيكون كالتالي : Call changeBtnColor(A1, A2, A3) و في الزر الثاني a2 سيكون كالتالي : Call changeBtnColor(A2, A1, A3) و في الزر الثالث a3 سيكون كالتالي : Call changeBtnColor(A3, A1, A2) تفضل المرفق بعد التعديل بالتوفيق للجميع GAPP.rar

السلام عليكم وكل عام وانتم بخير وانفع للناس اخواني الكرام لدي فولدر يحتوي على ورقتين اكسل وورد , الاكسل يحتوي على عدد من الفقرات وهذه الفقرات مبالغ نقدية وايضا هناك في الوورد مبالغ المطلوب الجمع الموجود في الاكسل زائدا الجمع الموجود في الوورد وتظهر نتيجة الجمع في الوورد المذكور هذا اولا اما ثانيا فيوجد عندي ورقة اكسل وهذه الورقة تحتوي على ورقة واحد وورقة اثنين والمطلوب هو كيف يظهر كل مااكتبة في ورقة واحد يظهر في ورقة اثنين مع اني في مرات اقوم بحذف قسم من فقرات الورقة واحد والتعديل عليها لذا فانني اطلب كيف لي ان يظهر كل ماافعله في ورقة واحد يظهر في ورقة اثنين وفقكم الله تعالى

جزاك الله خيرا وجعله في ميزان حسناتك

تفضل برنامج اخي صالح ، تم رفعه بعد ضغطه كما طلبت جعفر تحت انشاء.zip

وعليكم السلام اهلا وسهلا بك في المنتدى واللي اوله شرط ، اخره نور انت بأول سؤال لك خالفت قواعد المشاركة في المنتدى !! فالمنتدى مليء بمثل سؤالك ، وكل ما عليك فعله هو استعمال خاصية البحث الموجودة في المنتدى (المادة 2 ادناه) وستحصل على الكثير من المواضيع المشابهة لسؤالك قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. جعفر

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

عندما يكون مصدر بيانات فورم البحت جملة Me.esano_1.Form.RecordSource = xsql لايمكن التعديل الا اذا تم تغيير مصدر البيانات للجدول او الاستعلام .

السلام عليكم ضع هذا الكود خلف زر البحث وكما هو ظاهر وان شاء الله احصل وقت واختزل الكود اكثر Private Sub cmbsearch_Click() xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa" n = "" For i = 1 To 20 If Not IsNull(Me("inv" & i)) Then xsql = xsql & " where shawa.esa_num=" & Me("inv" & i) & " union all SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa" n = Me("inv" & i) End If Next i If n = "" Then xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa" Else xsql = Left(xsql, InStr(1, xsql, n) + Len(n) - 1) End If Me.esano_1.Form.RecordSource = xsql Me.Refresh End Sub بالتوفيق

أكيد ينفع ... ضع هذا الشرط في استعلام التحديث في حقل رقم النموذج ... "" Or Is Null مع تغيير نوع البيانات للحقل رقم النموذج في الجدول ( من رقم الى نص ) ...