ابوحمود

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

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

لماذا تضع * في الاستعلام إذا شغلت الاستعلام بدونها تظهر كل السجلات ؟! ولك تحياتي

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

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

حياك الله بأي اسم وجعلك شفاء من صداع الجهل :D . ولك تحياتي

الأخ سعيد أشكرك على هذا الرابط الممتاز وقد وجدت فيه الكود الذي يجعل نموذج منبثق فوق نموذج منبثق آخر مع إمكانية الوصول إلى النموذج (نموذج1) لمرة واحدة يعني المرة الثانية يختفي نموذج2 ولكن يمكن حل المشكلة بجعل الكود في حدث عند التنشيط لنموذج2 أفضل من جعله في زر …

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

اكتب كل المعلومات التي ترغب في تسجيلها حتى نعرف كم نحتاج من جدول . ولك تحياتي

الأخ محمود هل جربت ما وضعته لك ؟ السطر :Response = acDataErrContinue هو المسؤل عن عدم ظهور رسالة الأكسس . ولك تحياتي

أما من ناحيتي لا مانع لدي ولكني كثير النسيان :( فأحتاج إلى من يذكرني . ما رأي بقية الأخوة ؟ إلا على فكرة وين الأخ حارث ما صار نشوف له مشاركات من فترة ، من يعرف عنه شيء ؟ وللجميع التحية

الأخ أبو بشاير في حدث عند الأعلى لمربع النص ضع : If KeyCode = 13 And Shift = 0 Then Dim الاختيار_السابق As Byte الاختيار_السابق = GetOption("Move After Enter") SetOption "Move After Enter", 2 SendKeys "{End}" SendKeys "^{ENTER}", False SetOption "Move After En…

الأخ ابن مسقط أرسل إلي الملف . ولك تحياتي

الأخ محمود الظاهر أن النسخة التي لديك من الأكسس إنجليزية وإلا النسخة العربية تظهر رسالة كافية جداً ، عموما في حدث عند عدم الوجود في القائمة ضع : Response = acDataErrContinue MsgBox "هذا البند ليس من القائمة " & vbCrLf _ & "أعد الاختيار من القائمة" طبعا خاصية ا…

الأخ بهاء حياك الله وأهلا وسهلا بك . نأمل أن تعطينا فكرة أكثر عن المكتبة وماهي المعلومات التي سوف تخزنها فيها وغير ذلك . ولك تحياتي

الأخ ابو بشاير الأخ أشرف أشكركما على اهتمامكما بالرد ، ولزيادة الإيضاح النموذج الفرعي استعرض به صور وثائق أقوم بنقل بعض المعلومات منها الى حقول موجودة على النموذج2 وقد قمت بتكبير الصورة حتى تكون بحجم يقارب A4 يعني بالحجم الطبيعي ليسهل قراءتها . لقد عملت هذا ال…

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

إذا كان لديك WinZip فاضغط على الملف بزر الفأرة الأيمن وستجد في القائمة zip And E-mail ثم اسم الملف اختره وسيظهر لك الأوتولوك إذا كنت اعددته من قبل فالأمر بسيط اكتب عنوان بريدي في إلى واضغط إرسال . ولك تحياتي

الأخوة لدي نموذج فرعي داخل نموذج رئيس والنموذج الفرعي له شريط تمرير والنموذج الرئيس سأسميه هنا نموذج1 من خصائصه منبثق ، وعملي هو إدخال البيانات من نموذج آخر منبثق أيضا وسأسميه نموذج 2 . والمشكلة : أنني كلما رغبت في استعراض بقة الصفحة في النموذج الرئيس يختفي نم…

أرسل القاعدة إلى وسأتناقش سويا بعد مشاهدتها ، بريدي : H_H123@Hotmail.com ولك تحياتي