figo82eg

ارجو المساعدة فى فكرة برنامج صغير حيث اقوم بوضع قراءة عداد الكهرباء بالكيلو السابقة فى حقل والحالية فى حقل اخر ويظهر لدى حقل جديد يقوم بتوضيح الفرق بينهم. وبعد ذلك يقوم البرنامج بإظهار المبالغ النقدية بناء على جدول الشرائح الموضح بالصورة : مثال لو لدى فرق القراءة بين السابقة والحالية ١٠٠ منر يكون الشريحه الاولى من ١ الى ٥٠ يساوى ٥٠ 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

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

@kkhalifa1960 أستاذى الكريم تظهر معى هذه الرسالة عند تطبيق الكود Private Sub Command84_Click() Dim cityCode As String Dim strSQL As String DoCmd.SetWarnings True = False ' استخراج كود المدينة من المربع النصي cityCode = Me.Text82.Value ' التحقق من أن تم إدخال كود المدينة If Len(cityCode) > 0 Then ' نقل السجلات المستهدفة إلى جدول مؤقت "Test" strSQL = "SELECT * INTO Test FROM [BASIC_DATE] WHERE Left(crn, 4) = '" & cityCode & "';" DoCmd.RunSQL strSQL ' Delete4 strSQL = "UPDATE Test SET crn = Right(crn, Len(crn)-4) WHERE Left(crn, 4) = '" & cityCode & "';" DoCmd.RunSQL strSQL ' Delete3 right strSQL = "UPDATE Test SET crn = Left(crn,Len(crn)-3) & Right(crn,2) " DoCmd.RunSQL strSQL ' Repete strSQL = "UPDATE Test SET crn = Left([crn],2)+[crn];" DoCmd.RunSQL strSQL ' Addo strSQL = "UPDATE Test SET crn = '" & cityCode & "' & crn & "00";" DoCmd.RunSQL strSQL ' حذف السجلات من الجدول الأصلي "BASIC_DATE" DoCmd.RunSQL "DELETE FROM [BASIC_DATE] WHERE Left(crn, 4) = '" & cityCode & "';" ' إدراج السجلات المحدثة من "Test" إلى الجدول الأصلي "BASIC_DATE" DoCmd.RunSQL "INSERT INTO [BASIC_DATE] SELECT * FROM Test;" ' حذف الجدول المؤقت "Test" DoCmd.DeleteObject acTable, "Test" ' رسالة تأكيد MsgBox "تم تحديث السجلات بنجاح!", vbInformation DoCmd.Requery Else ' رسالة في حالة عدم إدخال كود المدينة MsgBox "الرجاء إدخال كود المدينة أولاً!", vbExclamation End If DoCmd.SetWarnings True = True End Sub وده الكود كامل بحاول اضيف فيه السطر السابق لكى اضيف 00 ولكن لايقبل

ارجو المساعدة فى الjعديل على كود لكى استفيد منه فى برنامجى وهو ' Addo strSQL = "UPDATE Test SET crn = '" & cityCode & "' & crn;" DoCmd.RunSQL strSQL حيث اريد من الكود السابق أن يضيف 00 نهاية crn

بارك الله فيك أستاذى الكريم @ابوخليل هو المطلوب كما اريد بالرابط

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

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

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