ابوخليل

انشء في النموذج مربعي نص منظمين وسمهما : 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

Dim rst As DAO.Recordset Dim reccount As Long Set rst = Me.RecordsetClone reccount = rst.RecordCount If reccount > 0 Then Me.Visible = True Else Beep MsgBox "الرقم المطلوب غير موجود", vbOKOnly + vbMsgBoxRight + vbInformation, "بحث" Exit Sub End If

السلام عليكم انظر إلى مثالك في الصفحة الثانية تستطيع عمله عن طريق علامات الجدولة في التنسيق استفسار.rar

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

السلام عليكم مشكلتك نابعة من اللغة اي من الحروف التي كتبت بها التسميات وأظن الأكسس اعتبرها رموز ومن هنا جاءت المشكلة انظر الى النموذج Formulaire_renseigements فقد قمت بتعديل حرف e الفرنسي الموجود ضمن حروف التسمية في النموذج والجدول المرتبط به . ايضا وجدت علامة تنصيص ضمن احدى التسميات . فأحدها كان السبب انظر النتيجة في المرفق : Projet2_Pers.rar

التعديلات : 1- حذفت الوحدة النمطية الموجودة الخاصة بإخفاء الاطارات واستبدلتها بكود يفي بالغرض 2 - للطباعة : عند فتح التقرير اضغط بزر الفأرة الأيمن واستمتع بعدة صيغ للطباعة والحفظ 3- لإضافة بيانات جديدة : طبعا البيانات لا تدخل مباشرة عن طريق الجداول ، بل عن طريق النماذج التي تستند إلى هذه الجداول انت مخير بين أمرين : إما أن تجعل نموذج العرض الموجود هو أيضا لادخال البيانات ، وإما أن تنشيئ نموذج جديد لادخال البيانات يستند الى جدولك هذا وهو الأفضل . تحياتي ابو خليل ،،، GACA12.rar

أحبك الله الذي أحببتني فيه وحمدا لله على تحقق المطلوب

السلام عليكم قليلا من البحث ستجد بأذن الله بغيتك مثلا اكتب كلمة " المرضى " في خانة البحث العلوي الأيمن وانظر النتيجة هذا موضوع قد طرح هنا يشبه موضوعك : My link

انظر الى هذا التعديل حساب الزمن.rar

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

السلام عليكم هذا مثال بحساب الزمن db1.rar

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