figo82eg

ارجو من الاخوة الكرام المساعدة حيث لدى ملف اكسل به مديونية الاف العملاء وارصدتهم لدى بالموجب والسالب ومصفره . ما اريد ان اقوم بتقسيم هذا العمود الى ثلاثة اعمدة عمود دائن ويتم توزيع القيم السالبة به وعمود مدين ويتم توزيع القيم الموجبة به وعمود ثالث منتهى به الارصدة المساوية لصفر. فهل استطيع فعل ذلك مرة واحدة

اشكرك استاذى الكريم على اهتمامك هو المطلوب فعلا

ارجو المساعده فى كود vba استخدمه عند تسجيل قراءة عداد حيث اريد عند تسجيل القراءة فى نموذج وتكون القراءة اقل من الشهر السابق تظهر رسالة خطأ الكود يعمل لدى بشكل جيد جداً حتى 4 ارقام ولكن المشكلة عند كتابة رقم مكون من 5 ارقام او اكثر تظهر هذه الرسالة ولا يعمل الكود Private Sub Text376_BeforeUpdate(Cancel As Integer) WriteAuditUpdate txtTableName, Me.crn, "Text376", Me.Text376.OldValue, Me.Text376.Value Dim i, ii As Integer i = Nz(DLookup("[HALYA]", "[إصدار بتروتريد]", "[crn] ='" & [Forms]![البيانات الرئيسيه]![crn] & "'"), 0) ii = Me.Text376 If ii < i Then Beep If MsgBox("إنــتــبــه ...... الإستــهلاك أقــل مـن المسـجل بالشهر السابق برجـاء التأكد قبل تسجيل الإستهلاك ....... هل تريد إضافة القيمة؟", _ vbCritical + vbYesNo, _ "تننبيه") = vbYes Then Exit Sub Else Exit Sub End If End If End Sub وهذه الرساله تظهر

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

اشكرك استاذى الكريم @ابوخليل على اهتمامك وهو المطلوب ولكنى لدى مشكلة أخرى اريد اضافة زر علامة صح عند تفعيلها يتم اضافة مبلغ ثابت 18 جنيه ويتم اضافة المبلغ على اجمالى قيمة الفاتورة وعند عدم تفعيلها يكون الاجمالى بدون هذا الرقم

تمام صحيح استاذى الكريم @ابوخليل اسف على الخطأ فى العملية الحسابية

ارجو المساعدة فى فكرة برنامج صغير حيث اقوم بوضع قراءة عداد الكهرباء بالكيلو السابقة فى حقل والحالية فى حقل اخر ويظهر لدى حقل جديد يقوم بتوضيح الفرق بينهم. وبعد ذلك يقوم البرنامج بإظهار المبالغ النقدية بناء على جدول الشرائح الموضح بالصورة : مثال لو لدى فرق القراءة بين السابقة والحالية ١٠٠ منر يكون الشريحه الاولى من ١ الى ٥٠ يساوى ٥٠ x ٦٨ قرش الشربحة الثانية من ٥١ الى ١٠٠ يساوى ٤٩ x ٧٨ قرش

شكراُ استاذى الكريم هو المطلوب

ارجو المساعدة حيث لدى كود فتح مستندات PDF داحل فولدر بمسارقاعدة البيانات الكود يعمل بشكل ممتاز عدا جزئية خطيرة بالنسبة لى وهى : عند يكون الحقل المربوط به زر فتح المستند خالى من البيانات يقوم الكود بفتح جميع المستندات داخل الفولدر وبالتالى لدى الاف المستندات مخزنة داخل الفولدر مما يجعل الجهاز يهنج الكود كالتالى : ارجو التعديل عليه للتغلب على هذه المشكلة Private Sub OpenFiles_Click() 'Dim File_Path As String, File_Name As String, Name_Path As String File_Path = Application.CurrentProject.path & "\Edit\" File_Name = Dir(File_Path & Me.رقم_الخطاب & "*.pdf") If File_Name = "" Then DoCmd.OpenForm "sms1", acMaximize Exit Sub End If While File_Name <> "" Name_Path = File_Path & File_Name Application.FollowHyperlink Name_Path File_Name = Dir() Wend End Sub

شكرا لحضرتك استاذى الكريم تم عمل الكود بعد وضع else

الكود الى حضرتك كتابته وضعته كما هو فى كود الزر ولكن القاعدة لم تحذف السجل وظهرت رسالة الخطأ و لم يعمل معى إلا بعد حذف هذا الجزء من الكود response = MsgBox("سوف يقوم البرنامج بحذف بيانات العميل هل توافق علي ذلك", vbYesNo) If response = vbYes Then فعمل طبيعى وحذف السجل.

اسف لم يعمل الكود إلا بعد حذف response = MsgBox("سوف يقوم البرنامج بحذف بيانات العميل هل توافق علي ذلك", vbYesNo) If response = vbYes Then مشكلة غريبة اول مرة تقابلنى ولا اعلم السبب هل ممكن ان تكون نسخة اوفيس

استاذى الكريم @Foksh شكرا على ردك واهتمامك ولكنى لاحظت عند حذف سطر If MsgBox("سوف يقوم البرنامج بحذف بيانات العميل هل توافق علي ذلك", vbYesNo) = vbYes Then الكود اشتغل بدون مشاكل فما السبب رغم ان الكود كامل يعمل على اكسس 2003 بدون مشاكل وعند تحويل الملف لنظام اكسس 2010 الكود وقف عن العمل

ارجو المساعدة حيث لدى كود زر حذف لا يعمل لا اعلم ما السبب Private Sub del_Click() On Error Resume Next If MsgBox("سوف يقوم البرنامج بحذف بيانات العميل هل توافق علي ذلك", vbYesNo) = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If End Sub

اشكركم اساتذتى على اهتمامكم بارك الله فيكم

استفسار من اساتذتى بالمنتدى هل يمكن تحويل الماكرو الى كود vba حيث اقوم بعمل كود حذف سطر كامل فى نماذج مستمرة باكسس ٢٠١٣ ويكون على شكل ماكرو هل استطيع تحويله الى كود vba

اشكرك أستاذى الكبير @jjafferr على مشاركتك وردك الذى استفدت منه كثير . ولكن خاننى التعبير فى كلمة تبويب والمطلوب هو ما نفذه استاذى @kkhalifa1960 اشكركم جميعا على دعمك لأعضاء هذا المنتدى العظيم وجعل علمكم فى ميزان حسناتكم

ارجو المساعدة حيث لدى نموذج به عدد من الازرار مرتبطة وب supform عند الضغط تفتح تبويبات مختلفة. ما اريده وهو عند الضغط على زر تبويب ١ يتغير لون الزر الى اللون الاحمر ويظل مستمر بنفس اللون لحين الضغط على التبويب ٢ يتغير لون زر تبويب ٢ باللون الاحمر وهكذا

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

ارجو من حضرتكم المساعدة حيث لدى قاعدة بيانات استخدم هذا الكود لتشغيل عجلة الماوس ولكن يقابلنى مشكلة هى عند تحديث اى بيانات على السجل وعند استخدام عجلة الماوس للأمام وللخلف لا يقوم البرنامج بحفظ اى تعديل ولابد من الضغط على زر حفظ . مع اننى كنت استخدم قاعدة البيانات على اوفيس ٢٠٠٣ وعند تحديث اى بيانات على السجل اقوم بتحريك عجلة الماوس يحفظ السجل والكود هو : If (Count < 0) And (Me.CurrentRecord > 1) Then DoCmd.GoToRecord , , acPrevious ElseIf (Count > 0) And (Me.CurrentRecord <= Me.Recordset.RecordCount) Then DoCmd.GoToRecord , , acNext End if فهل هناك حل

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

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

ارجو المساعده

ارجو المساعدة حيث لدى قاعدة بها استعلام اريد أن استخرج منه بيانات أخر اسبوع مسجل بالقاعدة وقمت بمساعدة أحد الأخوة بالمنتدى بكود فى الإستعلام بإستخراج البيانات أخر أسبوع ( يبدأ الإسبوع من الأحد وحتى يوم السبت الئى يليه ) ما اريده هو ان يبدأ الاسبوع من يوم السبت حتى يوم الخميس من أخر أسبوع مسجل بالقاعدة مرفق مثال New Microsoft Access Database.accdb

اشكركم جميعاً اساتذتمى الكرام وجعل الله علمكم فى ميزان حسناتكم