ابو يامن

أخي العزيز : ملفك المرفق لم يظهر أي مشكلة ، بالعكس عند إختيار الشبكة يتم وضع الشبكة في النموذج و عند إزالة الإختيار يتم عرض النموذج بدون شبكة فأين المشكلة ؟

أخي العزيز : هل ترغب ببناء هذا البرنامج بنفسك مع مساعدة الأعضاء ؟ هل لديك معرفة على الآكسس ؟ وما هو المستوى ؟ طبعاً هدفي من هذه الأسئلة هو رغبتي بمساعدتك لعمل البرنامج من خلالك أنت و بنفسك ، حتى تتمكن من إجراء أي تعديلات مستقبلية عليه بنفسك . ما رأيك ؟

ما هي المشكلة ؟

أخي العزيز أمجد : أشكر لك هذا الإطراء ، و على دعائك لي وهذا واجبي اخي العزيز تجاه امثالك الطيبين . أخوك ابو سليم ،،،

مثال جيد أخي العزيز ، و بإنتظار المزيد منك

عزيزي الكريم : هذه ليست مشكلة على الآكسس بل هي محددات او Settings يتم تحديدها على الـ Windows الخاصة بك و يتم تعديلها من خلال التالي : من خلال الـ Control Panel يتم إختيار Regional and Language Options و من خلال الـ Regional Option Tab يتم إختيار اللغة English(United State)I . آمل أن تكون الأمور واضحة لديك .

أخي العزيز يمكن عمل ذلك من خلال كتابة الكود التالي في التقرير عند On Load : Printer.BottomMargin = 0.25 Printer.LeftMargin = 0.25 Printer.RightMargin = 0.25 Printer.TopMargin = 0.25 Printer.Orientation = acPRORLandscape و إذا أحببت أرفق لي مثال و ساقوم بتعديله لك

عزيزتي بسمة : مرفق لك مثال على ذلك قمت بتطويره حسب طلبك ، آمل أن يكون هذا هو المطلوب Report.zip

عزيزي man20011 : الظاهر في مثالك أن هناك حلقة مفرغة وهي وجود مفتاح ( حقل ) رئيسي يربط كافة الجداول مع بعضها البعض . في هذه الحالة يمكن عمل نموج يحتوي على 4 نماذج فرعية و إيجاد المعادلة (الميزانية - مصروفات المناسبات - المصروفات العامة + الايرادات = الصافي ) بالنموذج الرئيسي وهذه النتيجة بالطبع توصلت إليها كونه لا يوجد ما يربط تلك الحقول ببعهضها مع ملاحظتي أنه يمكن الربط بينها برابط السنة مثلاً رقم حساب أستاذ عام أو غير ذلك

أخي العراقي الأسمر : أعتقد أنه تم الإجابة عن هذا الإستفسار من خلال المشاركة التالية : http://www.officena.net/ib/index.php?showtopic=24562

العفو أخي asalman111 هذا واجبنا

أخي العزيز aideladha1 يمكن عمل المطلوب أيضاً من خلال الآكسس ، و لكن ارى ان ما قدمه لك الأخ طارق ممتاز للعمل لديك عى اي حال نرجو تزويدنا بملاحظاتك إذا كان لديك أي ملاحظات لنرى إمكانية الإكتفاء بها على الإكسل أم نقوم بتطويرها من خلال الآكسس

أخي الكريم : أرفق لك الملف بعد التعديل ، و لكن لم أفهم ما هو قصدك بالنسبة للرسالة ، هل يمكن التوضيح أكثر ؟ db1.rar

عفواً أخي إليك الصورة بالمرفق Grid.bmp

أخي العزيز : أرفق لك الطريقة التي أعرفها بالصور المرفقة أدناه

أخي العزيز : أرفق لك الملف بعد التعديل Invoice1.rar

أخي العزيز : إليك أيضاُ الرابطين التاليين : http://www.officena.net/ib/index.php?showtopic=20776 http://www.officena.net/ib/index.php?showtopic=18550

أرفق لك أخي المثال بعد التعديل المطلوب _______________.zip

أخي العزيز : على أي حال لقد قمت بعمل مثال صغير لتوضيح آلية إرسال التقرير عن طريق الإيميل و كلي أمل أن يكون هذا مرادك . send_mail.zip

أخي هل لك أن ترفق لنا مثال و سنكون في العون إنشاء الله

على راسي أخوي محمد السباعي

لا بس إحكيلي أبو سليم مش أبو سالم (: وفقك الله ورعاك و إحنا بخدمة الطيبين أمثالك

مرفق لك المثال بعد التعديل المطلوب . مشيراَ الى انه يمكن استدعاء الـ Module من خلال الكود التالي : Private Sub ÇáãÈáÛ_ÇáãØáæÈ_ÑÞãÇð_åááå_AfterUpdate() On Error Resume Next Dim NUM NUM = [ÇáãÈáÛ ÇáãØáæÈ ÑÞãÇð åááå] no_to_char (NUM) a = massage [ÇáãÈáÛ ÇáãØáæÈ ÑÞãÇð ÑíÇá] = a 'ÇáãÈáÛ ÇáãØáæÈ ÑÞãÇð ÑíÇá End Sub malyah.zip

أرفق لك المثال بعد التعديل لقد كانت المشكلة في عدم وجود كود Me.Refresh عند عمل Open Form . للنموذج الثاني المراد فتحه 3labarakt_ellah_07.rar

أخي وضحت المشكلة الآن ، المشكلة لديك هو أن عبارة DLookup في بداية الكود الذي قمت بوضعه هو ليس دالة DLookup بل هو إسم قاعدة البيانات في مثالك المرفق أرفق لك توضيح حول ذلك آمل أن تكون الأمور الآن واضحة لديك DB_Name.zip