رمهان

اولا : انا معجب بردودك دائما ثانيا : هل تقصد لغة المفاتيح ام لغة الاوفيس ( الاكسس ) تحياتي

=count(*) تحياتي

مشاركة مع اخواني اتوقع ان طريقة ارسال التقرير بالايميل افضل مع التالي: 1. يتيح لك الاكسس ان تعمل تقرير يومي به البيانات المحددة ! فمثلا بيانات مايخص صاحب البرنامج لاتكون في التقرير المرسل 2. يتيح لك الاكسس تحويل التقرير الى pdf وارسال بريد الكتروني مرفقا به الملف كلها ممكن في خطوة واحدة وبنقرة زر خصوصا وجود الوت لوك عندك يمكنك البحث في المنتدى فبه امثلة كثيرة حول ارسال التقرير بالايميل ! او ارفاق ملف للتطبيق عليه ! بالتوفيق

على كذا تحتاج الى معرفة كم اقصى عدد ممكن للسجلات حسب تصميم تقريرك! ولكي يكون رابط الاستاذ جعفر قابل للتطبيق! فلو كان اكبر عدد سجلات ممكن لتقرير 20 وكان عدد الطلاب 41 فحتما سيكون سجلا واحد بالصفحة الثالثة ! وهنا اتوقع ان معرفة اكبر عدد سجلات للصفحة ومعرفة العدد الكلي للسجلات المطبوعة معطيات ضرورية لخوارزميات الحل ! بالتوفيق

اخي ابراهيم اسمح لي اسولف معاك شويتين مع رجائي باتساع صدرك انصحك بان تدرس الاكسس اولا من خلال كتب وبعضها مجانا من النت ! فسؤالك بالنسبة لاظهار المسج هو بدايات البرمجة في الاكسس ! وخليني نقسم الاكسس اللى ثلاث مراحل تعلم 1. تعلم قواعد البيانات فهو علم مستقل عن الاكسس تتعلم به بنية القاعدة ومنها الجداول والعلاقات لاحظ ان الاكسس مجرد اداة تساعد في بناء قواعد البيانات 2. تعلم الاكسس وكائناته ووظائف هذه الكائنات : مثل الجدوال والنماذج والتقارير والماكرو والاستعلامات ! وماهية كل كائن على حدة ! 3. برمجة الاكسس وهي مرحلة متقدمة هذا ويمكنك اخذ بدائيات من كل مرحلة ومثلا ثلاث كتب تختص بكل مرحلة وتقرا هنا وهنا تارة لكي ينخلق التصور الصحيح لديك اخيرا : لو اعتمدت على ان كل شي تحتاجه في برنامجك او تعلمك يكون من خلال استفسار بالمنتدى فان الوقت سيطول عليك في التعلم ناهيك عن التشتت وعدم التسلسل التعليمي المنطقي الذي يجعلك مبرمجا ناجح ! وعودة لاستفسارك والاستفسار الاول بالتحديد . ضع هذا الامر خلف الزر وعند الحدث عند النقر : MsgBox (text1) ليظهر شكل الامر كاملا في محرر الكود كالتالي : Private Sub d1_Click() MsgBox (text1) End Sub لاحظ انه ليس هناك اسهل من ما طلبت بل هو اول اقل من ان نسميه بدايات البرمجة في الاكسس ! وبالنسبة للاستفسار الثاني : هنا يظهر استفسار : هل ممكن ان يكون للموظف اكثر من وظيفة في نفس الوقت ؟ طبعا المنطقي لا ! فهنا يجب اعادة بناء الجدول ! او تركه كما هو مع الحاجة الى مفاهيم متقدمة في البرمجة؟ فماذا تختار : 1. اعادة بناء الجدول وبذلك وضع عمود واحد باسم الوظيفة ( وهذا ما ذكرته لك في المرحلة الاولى من التعلم وهو انشاء الجداول والعلاقات ) مع حل برمجي سهل وبسيط وهذا يوجد في المرحلة الثالثة؟ 2. ترك الجدول كما هو باربع اعمدة مع حل برمجي متقدم ؟ تنبيه : وجد برنامج الاكسس لانشاء برامج سهلة وبواجهات وتقارير بدون الحاجة الى سطر برمجي واحد ! معناته لو تعلمت الاكسس بالمرحلتين الاولى وهي العلاقات والجدوال ثم الكائنات واهميتها وتعمقت في هاتين المرحلتين لن تحتاج الى سطر برمجي واحد الا نادرا جدا فقد يغني الماكرو لتنفيذ اوامر عدة ! هذا وهذه السوالف ليست لك خاصا بل لكل من يريد ان يستخدم الاكسس ! بالتوفيق

اللهم اشفه وعافه ! وماتشوف شر ان شاء الله الاستاذ ياسر خليل !

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

تفضل عزيزي وبحل مرن : حسب ماتفلتر موظف او عملاء. مثلا لا تريد اعادة جدول لعملاء: يمكن فلترة العملاء حسب القيم الخالية! ممكن عملاء محديين ! وكذلك الموظفين! جرب ان تفلتر 4 عملاء وتفلتر 2 موظفين ! Private Sub أمر2_Click() Set rs_cust = Me.frm_sub_العمظف.Form.RecordsetClone: rs_cust.MoveFirst Set rs_emp = Me.fsub_الموظفين.Form.RecordsetClone: rs_emp.MoveFirst Do While Not rs_cust.EOF rs_cust.Edit If rs_emp.EOF Then rs_emp.MoveFirst rs_cust!id_uder = rs_emp!id rs_cust.Update rs_cust.MoveNext: rs_emp.MoveNext Loop End Sub بالتوفيق واجمل تحية

اخي ابراهيم لا وجود للاكسل ابدا في مثال الاستاذ ابا خليل السابق ولكن هذه فكرة ولاثراء المنتدى Private Sub العبارة_Change() Me.عدد_الأحرف = Len(Replace(العبارة.Text, " ", "")) Me.عدد_الكلمات = UBound(Split(Trim(Replace(العبارة.Text, Chr(13) & Chr(10), " ")) & " ", " ")) End Sub بالتوفيق عدد الحروف والكلمات 1.rar

جزاكم الله خيرا جميعا ياغالين باذن الله ابشركم قريبا،،

الرابط السابق ! اكسس ! ولما طلبت بالكمال والتمام !

اخي عابر سبيل لم افهم تماما المشكلة ! ولكن حسب فهمي تستطيع التاشير على ركن المربع السفلي والسحب لاعلى لتقليل الارتفاع وبهذا تقل المسافات ! تم الحل او اشرح اكثر لفهم المشكلة ! تحياتي

جزاك الله خيرا ! كم احتاجها خصوصا يوم جمعه ومقبل على موضوع اعتبره منعطف في حياتي !

http://www.officena.net/ib/topic/63165-طلب-كود-عد-الحروف-والكلمات/

جميل جدا ان لديك الخلفية في ذلك عندما تقوم بالدمج فانه يظهر السجل الاول فقط اي الاسم الاول يوجد ايقونة في شريط دمج المراسلات باسم "انهاء ودمج" وتحدد تحرير مستند او طباعة سيتم فصل السجلات كل في صفحة هذا واتوقع ان مكان المشاركة قسم الوورد والله اعلم بالتوفيق

اخي عابر سبيل للوصول لما تريد هو عن طريق الوورد نفسه ! فيتم كتابة النص الثابت مثلا " عزيزي /" ويتم جلب الاسم من الاكسس ! وهنا يظهر استفسار : هل لديك الخلفية في دمج المراسلات التي بالوورد ؟ بالتوفيق

اعتقد تقصد الاستاذ جعفر ! لانني لم ارى ماكتبت لك ! بالتوفيق

تفضل عزيزي لعله ماطلبت Private Sub أمر2_Click() Set rs = Me.frm_sub_العمظف.Form.RecordsetClone: rs.MoveFirst Do While Not rs.EOF rs.Edit rs!id_uder = Me.frm_sub_العمظف.Form!id_uder.ItemData(x) rs.Update rs.MoveNext x = IIf(x = Me.frm_sub_العمظف.Form!id_uder.ListCount - 1, 0, x + 1) Loop End Sub تنبيه : لم استخدم النموذج الفرعي للموظفين فيمكن حذفه ! تعاملت مع مربع السرد! تحياتي

حسب فهمي فانه سكون تصميم الجداول لديك كالتالي 1. جدول اللحامين ( رقم اللحام بفتح الللام > مفتاح اساسي) 2. جدول اللحامات ( بكسر اللام)( رقم اللحام مفتاح اساسي) : هنا سيكون مثلا لحام1 - لحام 2 - لحام3 - لحام 4 3.جدول يربط بين اللحامات واللحامين : سيحتوي معرف للسجل - رقم اللحام للربط مع 1 - رقم اللحام (بكسر اللام) للربط مع 2 - وتضيف اعمدة اخرى مثل تاريخ اللحام - وقت البدء - وقت الانتهاء وهكذا . وهنا لو اشترك اربع لحامين في لحام واحد سيتكرر رقم اللحام بكسر اللام اربع مرات لاربع لحامين مختلفين هناك تحليل اخر باضافة جدول نسميه مثلا العمليات او العمل يتم ربطه مع اللحامات بكسر اللام يعرف به العملية وليكن لحام1 ثم يربط بجدول اسناد العمل هذا لللحامين ! ويمكن الاستغناء عن هذا الجدول باضافة اللحامين كحقل متعدد القيم في جدول العمليات ! حاول انشاء الجداول والعلاقات واعادة الرفع بالتوفيق

عزيزي نور الدين اتوقع تظهر عند محاولة فتح الجدول مباشرة من نافذة الاكسس ! ولكن لاتظهر عندما تفتح البرنامج طبيعيا وعلى احد النماذج ؟ ام انها تظهر دائما ؟ او اين اذا كانت في احداث معينة ؟ بالتوفيق

اخي ابوبلال هل اطلعت على المرفق الذي بالرابط الموجود بالرد رقم 10 ؟ وماهي ملاحظتك عليه او التعديلات عليه ؟؟ بالتوفيق

لم افهم تماما المطلوب. هل ممكن تشرح اكثر تحياتي

تفضل Data4545.rar

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

تفضل هذه المحاولة وكما ترى الحدث عند مفتاح اسفل لمربع النص حصر جزئي : Private Sub حصر_جزئي_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 111 Then SendKeys "{BACKSPACE}": SendKeys "{HOME}": SendKeys "{/}": SendKeys "{HOME}" End Sub جرب لعله تمام ! او جربه عند مفتاح لاعلى بالتوفيق