ابوخليل

الحل أن تستبدل الحدود هذه بحد للصفحة أو بأشكال تلقائية انظر الى الاطار الأوسط في المثال 1.rar

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

يوجد حل لذلك ولكن عندي استفسار ؟ هل التاريخ المدخل هو تاريخ اليوم الفعلي فقط والمستعمل في العمليات التجارية اليومية ام التواريخ متباينة مثل ادخال تواريخ الميلاد وغيرها . طبعا الأولى يسيرة تعتمد على التاريخ الافتراضي () date$ , date

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

test.zip

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

بعد اذن الاستاذ القدير اسامة يا أخ علي ما دام هذا كلامك : ((المطلوب فى اول الرسالة فى عمل المقارنة بين الجدولين و انواع العلاقات فى شكل الربط بين الجدولين انت بالفعل افدتنى و قد انتهى هذا الموضوع )) وما دام انتهى الموضوع المفترض أن تنهيه بالشكر . ثم تعرض الجزء الأخير من سؤالك في سؤال مستقل جديد . منعا للإلتباس وإثراء للمواضيع . انظر المرفقات : لعله يكون مطلوبك test.rar

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

نعم يمكن في تنسيق تبويب اسمه : " خلفية " اختر اللون والتأثير الذي تريد

لا يمكن لأن bd عند انتهاء الوقت المحدد ستكون أصغر من Ad وحتى لو قصدك bd < Ad يبقى مالها لزمة لانها هي فعلا اصغر آمل انها اتضحت المسألة لديك

جزاك الله خيرا وجعل لك في كل حرف حسنة

انشء في النموذج مربعي نص منظمين وسمهما : Ad و Bd وطبعا ستجعلهما مخفيين بعد رؤيتك لنجاح التجربة اكتب في Bd التاريخ اكبر من تاريخ اليوم بـ 15 يوم مثلا أما Ad فكما ترى في الكود التالي فسيأخذ تاريخ اليوم الافتراضي ألياً الصق الكود التالي ووافني بالنتيجة . Private Sub Form_Current() Me.Ad = Date Me.Refresh End Sub Private Sub CmdLogin_Click() On Error Resume Next If Me.Bd > Me.Ad And Me.TxtUser = "AA" And Me.TxtPWD = "BB" Then MsgBox "مرحباً : أنت في الفترة التجريبية لمدة 15 يوما ", vbInformation + vbInformation, "Login" DoCmd.Close DoCmd.OpenForm "frm Main" ElseIf Me.TxtUser = "AA" And Me.TxtPWD = "CC" Then MsgBox "Login Successed", vbInformation + vbInformation, "Login" DoCmd.Close DoCmd.OpenForm "frm Main" Else MsgBox "Incorrect user name or password", vbExclamation + vbOKOnly, "Login Failed" End If End Sub

ممكن : اضف الى شرطك بالرمز الأول شرط التاريخ and ad < bd else اضف شرطك بالرمز الثاني مع عكس شرط التاريخ and bd =< ad ويمكنك أيضا بدون شرط التاريخ ولكن هذه الحماية غير مجدية فيمكن نسخ البرنامج الى اجهزة اخرى وبنفس الرمز افضل من ذلك الحماية برقم القرص الصلب أو المعالج ونحوه

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

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

السلام عليكم اقتباس من اجابة للأستاذ محمد طاهر : اذهب إلى : تنسيق ثم حدود وتظليل واختر حد الصفحة اختر الحد المطلوب ثم خيارات واختر من هنا نص بدلا من حاشية سيظهر لك الاطار بكامله و الحل الثاني : اذهب لإعدادات الصفحة من قائمة ملف ... ثم قم بإنقاص طول الورقة من 29.7سم إلى 28 سم مع تحياتي

السلام عليكم بهذه الطريقة لن تستطيع تغيير الباسوورد الابالدخول مرة اخرى والتعديل على الكود ، وقد فهمت من مشاركتك السابقة أنك تريد أن تعطي المستخدم مهلة زمنية لتجربة البرنامج ثم بنهاية هذه المدة يطالبه البرنامج بالتسجيل . هذا هو الشرط لديك : If Me.TxtUser = "Transport" And Me.TxtPWD = "amstpt" Then لو اضفت شرطا للتاريخ قبل هذا فالبرنامج سيفتح ما دام في المدة المحددة دون المرور بفورم التسجيل مثلا : Dim Ad Dim bd Ad = date bd = datend if ad < bd then DoCmd.OpenForm "frm Main end if باعتبار datend مربع نص يتم فيه ادخال تاريخ النهاية

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

اخي الكريم وضح اكثر بالتفصيل

بسم الله الرحمن الرحيم الاخوة الكرام تحية طيبة وبعد : تكثر الحاجة لعمل الاقواس حول ارقام الحواشي خاصة لكتابة الرسائل ونسخ الكتب وغيرها وحيث أن الأوفس لا يقدم هذه الخدمة وحيث أن عمل الاقواس لكل رقم مرهق جدا ولاستحالة وجود حلول اخرى لكثير من الناس بسبب عامل الخبرة رأيت أن اطرح هنا عملا بسيطا في اعداده أرجو أن يكون عظيما في نفعه . فالى خطوات الاعداد : في المرفقات مستند وورد قم بفك الضغط عنه ثم افتحه ( انتبه : يجب أن يكون هو الوحيد المفتوح يعني :اغلق جميع المستندات ) اتبع الخطوات كما في الصور : الصورة الأولى الصورة الثانية الصورة الثالثة الصورة الرابعة لاحظ الايقونة الجديدة التي على هيئة قلم عند النقر عليها ستدرج ارقام الحاشية العلوية والسفلية بالاقواس ملحوظة : يمكنك تغيير مكان الايقونة بالسحب والافلات في اي شريط تريد تقبلوا تحياتي . وهذا هو المستند حاشية سفلية-.rar

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد : تعقيب : زيادة فائدة أخي العزيز كلام الاخوة الكرام صحيح ولا يمكنك التعامل مع بيانات في جداول متفرقة الا عن طريق الربط . هذا ان أردت التعامل معها . أما ان اردت عرض البيانات فقط فيمكنك عرضها من عدة جداول في نموذج واحد من غير حاجة للربط بتحديد الحقول التي تريد من كل جدول لعرضها فقط باستخدام Dlookup db1ll.rar

أول عمل بالاكسس وتطمر في قلب معارف ؟؟ فأنت تطبق المثل : كن عالي الهمة إن اردت بلوغ القمة انظر الى التعديل آمل أن يحوز على رضاك المتابعة2.rar

السلام عليكم لنفرض انك قمت بعمل حماية بواسطة رقم القرص الصلب أو المعالج مثلا : سيكون لديك خليتين وتطابق بياناتهما شرط في عمل البرنامج وطبعا البيانات التي يدخلها المستخدم في احدى هاتين الخليتين سيتم حفظها في حقل ولنرمز له بــ ( ط )حتى يراها البرنامج عند كل فتح وإلا سوف يخرج لنا النموذج الخاص بالتسجيل وإدخال كلمة المرور . ( الآن اظن الرؤية واضحة) كل ما علينا فعله عند انتهاء التاريخ هو وضع هذا الكود عند تحقق الشرط : me.ط = ""

السلام عليكم معظم الدرجات لدبك أو جميعها في الجدول الرئيس لا أعلم لماذا كل هذه الاستعلامات ، وللمعلومية يمكن اسناد معظم أو جميع النماذج الى استعلام واحد هنا كود تقريب الرقم العشري الى أقرب عددين باعتبار average هي الخلية التي تم التطبيق عليها t: 10*Round([average]/10;3)

السلام عليكم تم اصلاح قاعدة البيانات وعمل المطلوب المثال.rar