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

حاول أن تجعل تاريخ البداية حقل أيضا فى نفس النموذج formxxx

ثم اكتب الكود كما يلى:

>=forms!formxxx!datexxx1

And

<=forms!formxxx!datexxx2

جرب ووافنى بالنتيجة تمنياتى بالتوفيق

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

أستخدمت جملة الاستعلام بطريقة openDynaset للاسعلام باسم العميل

ولدى فى جدول العملاء أسماء مكررة - عميل واحد له أكثر من حساب -

أستخدمت كود movenext للتنقل بين سجلات الاستعلام فلم يعرض سوى

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

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

السلام عليكم أخى

هل الفورم user3 بيكون مفتوح مع النموذج entry1_user فى وقت واحد أم لا؟

هل الفورم entry1_user مرتبط بجدول أم لا؟

وعموما:

لنقل بينات بين forms يجيب أن تكون كل الفورمات مفتوحة فى آن واحد فانه ليس من الممكن التحكم بفورم غير مفتوح

ثاتيا البينات تنمحى من الفورم عند اغلاق الفورم فلابد من ربط الفزرم بجدول لحفظ البيانات فيه

أرجو أن أكون وفقت لحل جزء من المشكلة تمنياتى بتوفيق

أعادك الله الينا سالما غانما ان شاء الله

ويسر لك الخير أينما كنت

نستودع الله دينك وأمانتك وخواتيم عملك

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

وان شاء الله الى مزيد من الرقى والتقدم

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

جزاك الله خيرا أستاذنا أبا آلاء جعله الله لك ذخرا

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

أما عن فتح النموذج بكامل الشاشة فضع هذا الكود فى حدث عند الفتح:

Docmd.maximize

أما عن تغير حجم العناصر على الفرم لتتناسب مع الحجم الجديد فبإمكانك صنع مديول لتضع فيه بعض المعادلات الرياضية البسيطة

التى تحتاج فيها لمعرفة الحجم الحالى لكل عنصر (العرض * الارتفاع) ووضعه الحالى على الفورم (اليسار والأعلى)

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

ثم تستدعى الموديل فى حدث عند تغير الحجم (resize).

أسف ليس لدى نموذج جاهز لارفقه

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

جزاك الله خيرا استاذى الفاضل

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

فليست المشكلة خطأ املائيا والا كما تفضلت لارسل اابرنامج رسالة خطأ

شكرا لاهتمامكم

أرجو ان يكون قد اتضح الأمر

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

وضعت زر أمر على الفورم الرئيسى لتصغير البرنامج ولكن عند ضغط الزر لا يحدث شىء أرجو توضيح السبب

الكود هو:

Docmd.runcommend acCmdAppMinimize

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

جزاكم الله خيرا أستاذ على

لا حرمنا الله من مواضيعك الرائعة

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

مرحبا بك فى مدرستنا أوفيسنا

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

ثانيا - رجاءا توضيح مطلوبك بدقة أكثر حتى يتسنا لاخوتك فى المنتدى المساعدة

ومرحبا بك مرة أخرى

أخى اعذرنى لتأخرى فى الرد

قمت بفتح ملف حضرتك

1- الفورم الثانى مرتبط بالفورم اﻷول بالفعل كل ما تحتاج اليه هو كود فتح الفورم الثانى عند حدث دبل كليك لمربع اسم المستأجر بالفورم الأول بلا عمل تصفية

2- الكود هو

Docmd.openform "استعلام حسابات المستأجرين"

أو من خلال اضافة ماكرو وهو اسهل

اعذرنى لعدم التطبيق على قاعدة حضرتك فانا عندى مشكلة فى رفع الملفات

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

جميل جدا

جزاك الله خيرا أستاذ حسين

هذه محاولة لرد بعض أفضلكم علينا أستاذ حسين

من فضلك حدد لى الجزء الذى يظهر باالون اﻷحمر فى الكود

الصفر الموضوع بنهاية الكود وضعته للحفاظ على التنسيق فحسب

أرجو حذف الصفر فى نهاية الكود

هذا تعديل بسيط على الكود أرجو أن يصلح معك

M = dmax("[رقم الفاتورة]","المستلم")

1 - ضع اسم العمود بين قوسين مربعين لحتواءه على مسافة

اسف على عدم التعدبل على الملف المرفق فانا غير فادر على رفع ملفات من خلال الموبايل

السلام عليكم استاذ حسين أرجو أن يفيدك هذا الكود

لنفرض أن عمود الترقيم فى الجدول اسمه id والجدول اسمه tblsalce

والآن نضع هذا الكود فى حدث عند النقر لزر الأمر الخاص بك

M = dmax("id","tblsalce")0

M = m+1

هذا كل شىء

جرب ووافنى بالنتيجة

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

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

أسف كنت منشغل قليلا عن نتابعة المنتدى

أرجو توضيح بسيط هل النموذج الثانى مرتبط بجدول أو استعلام ما

2- حضرتك عند تطبيق الكود نسيت حاجة من الفواصل أو علامات التنصيص المفردة والمزدوجة؟

3- ما هى درجة اخفاق الكود هل ما فتح الفورم أصلا أم ماذا؟

أسف لم أكن متابع للمندتى لانشغالى قليلا

يبدو أن المشكلة على ما أعتقد أن الفورم الرئيسى به كود

FsetAccessWindow (SW_HIDE)0

وهو مرتبط بالوحدة النمطية

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

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

الأمر بسيط إن شاء الله

لنفترض أم النموذج الثانى اسمه form2 ومربع اسم المستأجر اسمه mostajrName

والنموذج الأول اسمه form1 زمربع اسم المستأجر اسمه mostajrName أو أى اسم

اﻵن فى حدث دبل اكلك ل mostajrName فى الفورم 1 نكتب هذا الكود

Docmd.openform "form2",acnormal,,"mostajrName =' " & me.mostajrName & " ' "0

فقط...

ملاحظة الصفر وضععته ﻷحافظ على التنسيق وليس جزءا من الكود

ما عليك سو كتابة الأمر اﻷول وسوف يساعدك محرر اﻷكود على الباقى

جرب ووافنى بالنتيجة لعله يكون مطلوبك

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

آسف نسيت أمرا

أضبط خاصيتى (منبثق - وشكلى ومشروط) الى نعم 

اسم الخاصيتان بالانكليزية (pop-up , modul)

اضبتها لكل النماذج الفرعية وكذلك التقارير

جرب ووافنى بالنتيجة

جزاك الله مجهود طيب

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

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

وأكرر شكرى لمبادرتكم الطيبة وحسن تعاونكم

اضافة الى ماتفضل به أستاذ حسين

بالامكان أن نضع هذا الكود فى حدث عند الفتح

Docmd.maximize

انتهى...

وفيكم الله بارك

مع العلم أنى بعد التجربة وجدت الن هذا المعالج يحول المشروع الى صيغة .accdr   وليس الى .exe

وان كنت لا أعلم اافارق الجوهرى بين الصيغتين إلا أنى لم ألاحظ كبير فارق بينهما

شكرا لحسن متباعتكم