عبد الله قدور

السلام عليكم اخواني الكرام عندي جداول مرتبطة اقوم بنقل البيانات من جدولين إلى جدولين آخرين باستخدام استعلام الحاق ومن ثم وضعت كود الاس كيو ال في جدول مستقل واستخدمت الامر التالي في تنفيذه DoCmd.RunSQL DLookup("[sql]", "sql", "[id]=2") والان وضعت الكود التالي لنقل البيانات بين الجداول Set db = CurrentDb() Set Rcd = db.OpenRecordset("entryh") Dim a As Boolean a = False Rcd.MoveFirst Do Until Rcd.EOF If Rcd!Id = Me.DaId And Rcd!Ref = Me.DaType Then Rcd.Delete a = True End If If a = True Then Exit Do End If Rcd.MoveNext Loop Set Rcd = db.OpenRecordset("entryH") Rcd.AddNew Rcd!Id = Me.DaId Rcd!Ref = Me.DaType Rcd!EnDate = Me.DaDate Rcd!Note = Me.Note Rcd!CurId = Me.CurId Rcd!CurPrice = Me.CurPrice Rcd!CosId = Me.CosId Rcd.Update Rcd.Close Set db = Nothing End Function فأيهما اسرع في تنفيذ عملية النقل وجزاكم الله كل خير

بعد اذن اخي محمد ابو عبد الله في المربع في الصورة ضع المسار التالي .\iconName.ico على ان تكون الصورة موجودة جانب قاعدة البيانات بحيث ان iconName هو اسم الايقونة

جزاك الله كل خير اخي @ابو عارف

السلام عليكم اختر طباعة النموذج ثم حدد الطابعة ماكرو سوفت بي دي اف سيتم تحويل النموذج الى بي دي اف كما في الصورة

السلام عليكم حاولت رفع المرفق البارحة لكن النت عندي لم يساعدني على ذلك لم يفلح الامر اخي الكريم Aldiwan 1.accdb

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

السلام عليكم هل يمكن ان احصل على اسعار صرف العملات من موقعXE

السلام عليكم كلام الاخ فارس صحيح فالرجاء اضافة مرفق للتعديل عليه لكن لو سمح لي الاخ فارس فهذه العبارة تعني ان مصدر الصف غير موجود او هناك خطأ في اسم العمود القادم من الجدول

وين المرفق

السلام عليكم اخي الكريم بالنسبة لكشف الحساب انا استخدم الطريقة التالية : 1- اضيف جدول جديد باسم كشف الحساب اضع فيه الحقول اللازمة لكشف الحساب 2- اقوم باضافة الدفعات والفواتير الى الكشف باستخدام استعلام الحاق وذلك من جدول اليومية وجدول الفواتير طبعا بشرط اسم الزبون يعني ترحل بيانات الزبون الى الجدول الجديد فقط ثم استعرض بيانات الكشف اعتمادا على الجدول الجديد اتمنى ان تكون هذه الطريقة مفيدة لك

للرفع

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

جزاك الله كل خير هذا هو المطلوب لكن ان اردت ان اضع لكل مدينة رسالة خاصة بها فهذا الشرط لا يفي بالغرض ونفسي لا تحبذ استخدام الشرط <> في الاكواد 😅 فان كان بالامكان ان يكون الشرط ان كانت قيمة الخلية تساوي حلب فتظهر الرسالة فيمكنني بعدها استخدام select case لاختار اكثر من مدينة وتحديد لكل مدينة رسالة تخصها وجزاك الله عني كل خير

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

السلام عليكم اخي الكريم ما اريده هو ان يكون هذا الحدث على طول العمود وليس الخلية الاولى من الجدول فقط وبعد تعديل الكود ليشمل العمود بدأت تظهر الرسالة عن كل مرة كتبت كلمة حلب في الجدول فعندما يكون هناك 4 مرات حلب فستظهر الرسالة 4 مرات وهذه مشكلة كبيرة اريد فقط عندما اكتب حلب في العمود تظهر رسالة تحذير فقط اني اخترت هذه المدينة ولست بحاجة الى السؤال عن الاستمرار ام لا فقط رسالة تنبيه

السلام عليكم كيف يمكنني ان اظهر للمستخدم رسالة تحذير عند ادخال بيانات في عمود معين في جدول بعد ادخال نص معين مثال في المرفق عندما اختار في العمود الثالث مدينة حلب تظهر لي رسالة تحذيرية المصنف1.xlsm

السلام عليكم كيف يمكنني عرض ملف البي دي اف داخل النموذج وما هو العنصر المستخدم لعرض ملف البي دي اف داخله في النموذج

السلام عليكم عندي هذا الكود يفتح ملفات بي دي اف ولكن تظهر رسالة تحذير قبل فتح الملف كيف يمكنني التخلص من رسالة التحذير Dim strFile As String On Error GoTo Failure strFile = Me.track If Len(Dir(strFile)) Then FollowHyperlink strFile Else MsgBox "no file found" End If Exit Sub Failure: MsgBox err.Description err.Clear وان كان هناك كود افضل منه فلا مانع المهم ان استطيع فتح ملف بي دي اف من النموذج

السلام عليكم اذا كنت تريد تعديل جدول الفواتير فكما اذكر كان اسم الجدول bill

السلام عليكم اذا كنت تريد التعديل على جدول المواد فما اذكر جيدا لكن على الاغلب ليس هو اما اذا كنت تعدل على جدول الفواتير فهذا قطعا ليس هو

السلام عليكم اخي الكريم كيف ربط الاكسس بالامين هل من خلال قاعدة البيانات ام ماذا الربط الذي من خلاله تستطيع التعديل فيه في الامين هو ان تتصل بقاعدة البيانات SQL من خلال الاكسس وتفتح الجداول المطلوبة ثم تقوم بالتغيير فيها ولكن انتبه هذه العملية قد تؤثر على البيانات اذا اخطأت في الادخال او التعديل

جربت لكن لم احصل على نتيجة

السلام عليكم تفضل اسال اخي الكريم @Maznahmad على الرحب والسعة وان اردت ان يكون السؤال على الخاص لضمان خصوصية البيانات التي على الامين يمكنك مراسلتي في اي وقت على الواتساب او التلغرام على هذا الرقم :00905456969400

السلام عليكم اخواني الكرام تظهر هذه الرسالة عند الدخول الى محرر الفيجول بيسك مع العلم اني لا اعمل على الشبكة والبرنامج ليس على الشبكة فما الحل جزاكم الله كل خير

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