أبو عبدالله الحلوانى

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

أقدم شكرى للجميع وجزاكم الله خيرا وففقكم لما يحب ويرضى

الحمد لله تم الحل بما تفضل به أستاذ عبدالله قدور أسأل الله أن يغفر لنا وله ويرحم والدينا ووالديه والمسلمين.

يبدو أننى ضغط على تبويب أجزاء التطبيق دون أن أدرى قبل حادثة الانقلاب ....

وعلى اسلوب أخى الغالى راعى الغنم. دى جزات اللى يلعب فى حاجة مايعرفهاش هههههه

أسف أستاذ مارد ما رأيت ردك

يغضل أخى استخدام اللغة الانكليزية فى مسميات الجداول والأعمدة ليسهل استخدامها داخل اﻷكواد البرمجية

وعموما جرب هذا الكود لعله يوافى مرادك

CurrentDb.Execute "Insert into [جدول اﻷصناف] ([ميزانية أ]) SELECT [ميزانية أ] from [جدول الميزانيات]"

اجعله فى زر أمر حدث عند النقر

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

أن أتصل من خلال الهاتف وهولا يتيح لى عند التحميل سوى أنواع محددة من الملفات كالصور والصوتيات

ولا أعلم كيف يمكننى رفع ملف بصيغة أخرى

وأشكرك مرة أخرى على الاهتمام

السلام عليكم ورحمة الله وبركاته

كنت أعمل ليلة أمس على زر تصدير مجموعة تقارير دفعة واحدة لصيغة pdf.

وبعد أن انتهيت من محاولات عدة للوصول للمطلوب

فوجئت بأن النماذج فى البرنامج أصبحت باتجاه معاكس كما بالصزر المرفقه هل من حل رجائا

جزاك الله خيرا

فى انتظار المزيد

جزاك الله خيرا أستاذنا.... والشهير بالمارد

حقا رأيت من متابعتى لمواضيعك وردودك المتميزة عجبا أيها المارد

لعمل الاستعلام من داخل النموذج

افتح النموذج فى عرض التصميم من الخصائص الفورم

ادخل عل مصدر البيانات ستجد زر به نقط هكذا ...

اضغط عليه سيفتح لك شاشة تصميم الاستعلام

اصنع بها ما يحلوا لك

اتمنى أن يكون اﻷمر واضح

تمنياتى بالتوفيق

جزاك الله خيرا أستاذ أبو خليل

وجزا الله خيرا صاحب الموضوع أن فتح لنا هذه اﻵفاق

آسف للتأخرى غى الرد

قمت بتغير اعدادات اللغة كما تفضل أ/ أبو خليل ولكن للأسف لم يفلح اﻷمر

آسف على التأخر فى الرد أولا مشكور على الرابط أخى

ثانيا الرابط لمعالج التحزيم فى أكسس 2007 وليس لل runtime

وأخيرا أنا أعمل على أكسس 2010

وشكرا لك مرة أخرى

اسمحو لى باستفسار خاص بنفس الموضوع

هل access runtime أحد اللبرامج الموجودة مع نسخة الأوفيس وان كان فأين أجده

أم هو برنامج مستقل عن الأوفيس وان كان ما طريقة الحصول عليه

جزا الله أستاذى الكريمين أ/ محمد صالح و أ/ أبو خليل

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

سأجرب حل أستاذ أبو خليل وأوافيكم بالنتيجة ان شاء الله

وعليكم السلام ورحمة الله وبركاته

جرب هذا الكود على افتراض أن النموذج الفرعى مرتبط بجدول اسمه Tabl1

On Error Resume Next
Dim delt
Delt = "delete from tabl1;"
    If MsgBox("هل تريد بالتأكيد حذف البيانات ؟", vbInformation + vbYesNo, "حذف") = vbYes Then
 DoCmd.SetWarnings False
DoCmd.runsql delt 0
DoCmd.SetWarnings True
        MsgBox "تم حذف السجل "
    Else
        MsgBox "تم الإلغاء "
 End IfEnd Sub

جزاك الله خيرا أستاذى الفاضل وأحسن الله اليك

ليست المشكلة فى التحويل الى .accde

وإنما المشكلة اﻵن بعد التحويل الى .accde من النسخة العربية ونقلها الى جهاز آخر به نسخة انكليزية لا تعمل.

الا اذا نقلت النسحة السورس .Accdb واخذت منها .accde من على نفس الجهاز الذى به النسخة الانكليزية

مع العلم سيدى أن كل القواعد اللى حضرتك ذكرتها مطبقة بالبرنامج من أسماء الجداول والحقول كلها بالانكليزية

ولا أنسى أسعدنى جدا مرور حضرتك

سبحان الله ولا اله الا الله والله أكبر ولا حول ولا قوة الا بالله

للرفع

على حسب علمى والله أعلم

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

والكريقة سهلة ان شاء الله حيث ا سم = 1440 بكسل تقريبا

مثلا البعد اليسار على المسطرة = 1.67 سم

اذا اليسار بالكسل = 1.67 * 1440

هذا والله أعلم

تمنياتى بالتوفيق

جزاك الله خيرا أستاذنا أبو خليل على التنسيق

هل ممكن معرفة طريقة هذا التنسيق لو سمحت

سبحان الله والحمدلله

هل من رد الله يبارك فيكم

هى دالة لعد حروف النص المحدد داخلها وتحويل الناتج الى رقم
مثل

M =len("أحمد")

اذا m = 4
وهى مفيدة جدا عند الحاجة الى التعامل مع القيم النصية كأرقام

للرفع

اضغط كليك يمين على التقربر الذى ترغب نقله

ومن القائمة اختر تصدير ثم أكسس ثم اتبع المعالج

مع العلم انك بحاجة لتصدير الوحدة النمطية مع التقرير

لأنه لن يعمل بدونها على حسب ظنى

هل من حل آخر سوى أخذ نسخة .accde من النسخة الانكليزية