ابوخليل

الله يسعدكم يا اخواني صحيح : كل ينفق مما عنده

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

السلام عليكم ورحمة الله وبركاته مع معلومة جديدة من مايكروسوفت أريد من حضراتكم تنفيذ الآتى: 1. افتح برنامج MS Word. 2. اكتب التالى (يفضل تنسخها أفضل عشان تأخذ بالك كيف تكتب) =rand(200,99) 3. ثم اضغط Enter ايه اللى حصل سبحان الله عفريت وألا أيه لا ياأخى الفكرة بسيطة جداً بدون عفاريت ولا تخاريف دى ببساطة جداً أمر للإختبار Test Condition يعنى أيه أمر للإختبار لو إنت دلوقتى عنك خط معين أو تنسيق معين وعاوز تعرف هايبقى شكله عامل أيه لما تنفذه ، وبدلاً من كتابة العديد من السطور ونضيع الوقت نستخدم هذا الأمر لإختبار ما نريده من تنسيقات بون مضيعة للوقت طيب ممكن توضيح أكثر أكيد خليك معايا أولاً : الدالة Rand تستخدم لإخراج جملة عشوائية وزى ما شوفتو اللى عنده وورد انجليزى هاتخرج له الجملة The quick brown fox jumps over the lazy dog والجملة دى مستخدمة لأنه يوجد بها كل حروف اللغة الإنجليزية وللتأكيد أكثر لو فتحت مجلد الخطوط الموجود بلوحة التحكم وعملت معاينة للخطوط ستجد أن هذه الكلمة موجودة بها والدالة rand(p,s) تأخد معاملين المعامل الأول p يمثل عدد الفقرات Paragraphs المعامل الثانى s يمثل عدد الجمل والوضع الإفتراضى أن الفقرة Paragraph تحتوى على خمس جمل وطبعاً عاوزك تجرب الآتى =rand(1) =rand(1,1) =rand(1,2) =rand(3,1) وطبعاً لو جربتها على وورد عربها هاتلاقى إن جملة الإختبار عبارة عن "من طلب العلا سهر الليالى" خد بالك: أقصى عدد يمكن استخدامه بين الأقواي هو : 200 طيب هل ممكن ألغى الخاصية دى من الورد أكيد إزاى نفذ الآتى Tools menu ..... AutoCorrect ... ثم قم بالغاء اختيار Replace text as you type وذلك بحذف علامة الصح وإذا نفذت الأمر rand ستجد عدم ظهور النتيجة لو فيه أى حاجة مش واضحة ... تحت أمركم أسأل الله أن يعلمنا ما ينفعنا ( منقول من : المطورون العرب ) تحياتي ،، ابو خليل

السلام عليكم قبل فترة حوالي كم سنة كنت اعمل في مؤسسة حكومية ولدينا برنامج الكل يحتاجه فقمت بمحاولات حتى تمكنت من ربط خمسة اجهزة كلها تعمل على هذا البرنامج . فالمقصود انه في الووندز خدمات تعين على الربط والمشاركة وسأحاول نذكر ما قمت به من خطوات لعلك تجد فيها بعض الفا ئدة : ((طريقة الربط بين الأجهزة)) عملتها بمجهود ذاتي بالمحاولة والخطأ حتى نجحت ولي عنها مدة فلعلي أتذكر الخطوات جيدا ولا أغفل منها شيئا : الأدوات : ( كيبل شبكة يربط بين الجهازين ) وإن كانت أكثر من جهازين نحتاج إلى مقسم swich نقوم بعمل الخطوات التالي على جميع الأجهزة : من مواضع شبكة الاتصال نقوم بإعداد شبكة اتصال منزلية أومكتب صغير حسب الخطوات التالية : ( ملاحظة : توجد خيارات متعددة في هذا الاعداد تخص الاتصال بالنت لم اطبقها فكل يأخذ ما يناسبه ولكني سأذكر ما قمت بعمله ) . قلنا حسب الخطوات التالية :/ بعد فتح المعالج والتالي / - حدد أحد أساليب الاتصال اختر الأخير ( غير ذلك ) - الخطوة التالية أيضا الخيار الأخير ( لا يوجد اتصال با نترنت ) - التالي ثم التالي تأأكد من وجود اسم الكمبيوتر والوصف فهو اختياري أما اسم مجموعة العمل فيلزم توحيده في جميع الاجهزة - التالي وأشر على تمكين مشاركة الملفات - التالي دع المعالج يعمل مبروك يلزم إعادة التشغيل بقي وضع العناوين IP - نذهب إلى إتصالات شبكة الاتصالات وكليك يمين علىLocal Area Connection نختار خصائص ومن تبويب عام نحدد على (TCP\IP) ثم نختار خصائص - من تبويب عام نأشر على : استخدام عنوان IP التالي - سجل في مربع النص العلوي الرقم التالي 100.100.100.1 مع ملا حظة أن رقم 1 خاص بالجهاز الأول يعني الجهاز الثاني يأخذ رقم 2 وهكذا -سجل في مربع النص الذي يليه الرقم التالي 255.255.255.00 ثم موافق بهذا نكون انتهينا من إعدادات الشبكة وتسطيع أن تطلع على ملفات ومستندات الاجهزة الاخرى شرط أن يكون عمل لها مشاركة بقي كيفية العمل على برنامج واحد من هذه الاجهزة والنفرض أن البرنامج قاعدة بيانلت أكسس ضع القاعدة في مجلد و في المكان الذي تريد والنفرض على C: ولا تنسى ان تدخل إلى خصائص المجلد وتعمل له مشاركة اذهب إلى جهاز الكمبيوتر ثم كليك يمين اختر تعيين محرك أقراص شبكة الاتصال ثم اختر حرفا ومن استعراض اذهب الى مجلدنا المذكور ستجده ضمن مجموعة العمل - في الأجهزة الأخرى من محرك الآقراص اعمل اختصارا للقاعدة على سطح المكتب . أ .هـ هذه شبكة بسيطة للمبتدئين أمثالي مفتوحة الصلاحيات بلا خادم ولا مضيف أرجو أن يكون بها فائدة ونفع وباب إلى التخصص والابداع تقبلوا تحياني ،،، ابو خليل .

السلام عليكم من خصائص مربع النص اذهب الى التبويب : غير ذلك ملاحظة : ( ابدأ من أول مربع في الأعلى ) اكتب في القيمة :فهرس علامات الجدولة الرقم صفر ثم انتقل الى مربع النص الذي اسفل منه والذي تريد ان يقفز اليه المؤشر واكتب في القيمة : 1 ثم الذي اسفل منه : 2 ثم 3 .......... وهكذا يعني ينتقل المؤشر على حسب الترقيم الذي تحدده في القيمة : فهرس علامات الجدولة تحياتي ،،،

انظر الى المثال آمل أن يكون فيه مطلوبك db110.rar

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

من خصائص الجدول اذهب الى تبويب جدول واضغط على الزر المسمى تعيين الموضع سيفتح لك مربع حوار ، انظر في اسفل الى الجهة اليمنى ضع علامة صح على المربع الصغير المسمى تحريك مع النص ثم موافق وموافق ، ودمت سالما ،،، المرفقات : Doc2.doc

الحل أن تستبدل الحدود هذه بحد للصفحة أو بأشكال تلقائية انظر الى الاطار الأوسط في المثال 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 مربع نص يتم فيه ادخال تاريخ النهاية