figo82eg

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

ارجو من الأخوة الكرام مساعدتى فى حل كود vba من مثال لإستاذى @ابو البشر بخصوص مقارنة بيانات جدولين المثال عمل بنجاح معى فى قاعدة ولكن عند تطبيق نفس الخطوات على جدولين مختلفين من حيث تسمية الحقول لم ينجح ارجو المساعدة مقارنة بيانات.rar

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

اساتذتى الكرام بارك الله فيكم @Foksh اشكرك على اهتمامك وردك استاذى @ابو البشر هذا ما اريده فعلا بالظبط وذلك نظراً للعدد الهائل من السجلات مما يجعلنى استغرق وقت كبير جدا للإستخراج الفرق بين السجلات التى بها اختلاف فقط وليس كل السجلات

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

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

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

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

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

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

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

ارجو المساعده فى كود 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