رمهان

الفكرة صحيحة ولا غبار عليها ! ولكن يجب توظيفها عند الحدث المناسب ! تحياتي

حسب فهمي تمت التجزئة بالقسمة على 2 وكون السؤال حسب فهمي : تقسيم سجل واحد الى سجلين والراتب يقسم على 2 ! ارجو تصحيح فهمي ؟ ثم لو تكرمت ماهو تطبيقها عمليا للفائدة العامة ؟ تحياتي

سؤال جميل الان حسب فهمي انه يتكون من جزئين : 1. البحث بواسطة تغير الحقل وعامل المقارنة ثم القيمة في مربع النص : وهنا يظهر استفسار : ماذا تقصد بالبحث ؟ : هل هو بحث في البيانات الموجودة فقط وبعد اختيار الشركة من اعلى ؟ ام تريد اعادة البحث في الجدول كاملا بغض النظر عن البيانات التي هي ناتج اختيار الشركة والتاريخ ؟!! 2. تريد اظهار التسمية التوضيحيه بدلا من اسم العمود : هنا يوجد طريقة سهلة وهي ان تجعل المصدر استعلام ومعادة تسمية الاعمدة وسيكون هذا الاستعلام مصدرا للسرد وبنفس خاصية مصدر الصف قائمة الحقول ! ولكن هنا نحن نحتاج لاسم الحقل لتطبيق الفقرة رقم 1 وهذا يجعلنا ان نضطر ان يكون القائمة عبارة عن عمودين >> الاول لاسماء الحقول لاستخدامها فعليا كشرط او معيار للفقرة 1 وهذا العمود سيكون مخفي . اما الثاني فسيظهر التسمية ويكون مرئي للمستخدم ! هنا تم تغيير خاصية نوع مصدر الصف=قائمة القيم والتي سنظيفها من الكود ! وكذلك لاحظ خاصيتي عدد الاعمدة وعرض الاعمدة للاخفاء والاظهار كما اسلفت : هذا الكود وهذا الملف ! وبالنسبة للفقرة 1 انتظر اجابتك على الاستفسار ! Private Sub TextServic_GotFocus() TextServic.RowSource = "" For i = 0 To CurrentDb.TableDefs("tblorders").Fields.Count - 1 xs = xs & CurrentDb.TableDefs("tblorders").Fields(i).Name & ";" & CurrentDb.TableDefs("tblorders").Fields(i).Properties("caption") & ";" TextServic.RowSource = xs Next End Sub بالتوفيق QueryByService.rar

عزيزي اولا اسف عالتاخير لانشغالي فجأة ! خذ هذا المسكن على افتراض مربع النص t1 وتنسيق تاريخ عام والحدث قبل التحديث: Private Sub t1_BeforeUpdate(Cancel As Integer) If Len(t1) < 18 Then Cancel = MsgBox("please enter date and time") End Sub تحياتي

سؤال بيشغل البطيخة!

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

لو تلاحظ اخي وجود الرقم صفر في الصنف وهذا رقم صنف غير معرف ! هذا مبدئيا ونظريا والله اعلم !

بعد اذن الاستاذ ابا خليل اتوقع انك تقصد تاريخ ووقت معا !؟ هل هذا صحيح ؟

القاعدة بتنسيق mdb واتوقع انها محولة من تنسيق احدث المشكلة ان لديك ميزات جديدة في النموذج ليست متوافقة تماما عند التحويل . هذه التنسيقات هي وضع التخطيط للعناصر على النموذج ! لحل المشكلة : حدد ايقونة جدول التخطيط وبعد النقر على احد العناصر ! سيتم تحديد جميع العناصر >> اذهب الى ترتيب ثم الخيار ازالة التخطيط! هنا اصبحت العناصر ليس ضمن تخطيط والموجود بالاصدارات الحديثة ! قم بالحفظ واكتب الكود مع التاكد من ان خاصية النموذج "يتضمن وحدة نمطيه"=نعم بالتوفيق

معذرة اخي اخر الارض اﻻن خارج البيت واكتب من الموبايل تحياتي

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

اخي الكريم بالنسبة لموضوع عدم ظهور رقم الاذن عندما لايكون هناك سجلات في النموذج الفرعي : اذهب الى مصدر بيانات النموذج والذي هو عبارة عن جملة الاستعلام >> سيظهر منشئ الاستعلام في حالة التصميم >> من خلال دبل كليك على الخط او الصلة بين جدولي main_form , head_form سيظهر مربع حوار نوع الصلة >> اختر الخيار الثاني : لان الخيار الاول وهو الافتراضي دائما معناته جلب السجلات المتشابهه في كلا الجدولين وهذا لا يتحقق عندما تدخل بيانات في الجدول الاول دون الثاني ! بالنسبة للترقيم في النموذج الفرعي : ضع الكود التالي عند التركيز للعنصر serial وكما بالكود التالي : Private Sub item_code3_GotFocus() If NewRecord Then serial = CurrentRecord End Sub ومعناته عند التركيز على السيريال لادخال صنف ضع قيمة ترتيب السجل الحالي وبشرط ان السجل نوعه جديد ! بالتوفيق

عزيزي لا يوجد اي سطر في صفحة البرمجة الخاصة بنموذج اضافة دورات جديدة اعتقد انك تقصد هذا الامر DoCmd.GoToRecord , , acNewRec حيث يوجد عند حدث عند التحميل لنماذج اخرى ! فلتطبيق نفس الفكرة : اذهب الى خصائص نموذج اضافة الدورات >> تاكد ان صفحة الخصائص خاصة لهذا النموذج >> اختر حدث ثم الحدث عند التحميل واختر من القائمة اجراء حدث ثم انقر على النقاط سيفتح حدث عند التحميل والصق الكود السابق ليظهر شكل الحدث كاملا : Private Sub Form_Load() DoCmd.GoToRecord , , acNewRec End Sub وهناك طريقة اخرى : لوذهبت الى الكود خلف زر اضافة دورات ستجد هذا السطر: DoCmd.OpenForm stDocName, , , stLinkCriteria استبدله بالتالي: DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd وتلاحظ اضافة الجزء acFormAdd وهو عبارة عن ايعاز بفتح النموذج لادخال بيانات جديدة تنبيه : الطريقة الاولى انسب اذا كنت تحتاج الى تصفح سجلات قديمة عن طريق ازرار التنقل اما الطريقة الثانية تستعرض البيانات الجديدة اللحظية! تنبيه : الطريقة الثانية مكافئة لعملية تغيير خاصية "ادخال بيانات" للنموذج وبالقيمة = نعم ! بالتوفيق

بعد اذن اخي نور الدين انت تحاول ان تعديل حقل مصدره استعلام غير قابل للتحديث بناء على الربط الموجود ! تفضل هذا الكود : Private Sub pur_price1_AfterUpdate() '[pur_price] = [pur_price1] DoCmd.RunSQL "update items set pur_price=" & pur_price1 & " where item_code=" & item_code1 End Sub بالتوفيق

مرحبا اعزائي تفضل اخ محمد مع ملاحظة: 1. تم الغاء بعض الحقول حيث الاخر محسوب 2. هناك دالة وتنسيق شرطي تشيك فقط على صحة المسار متمنيا ان اثرينا الموضوع مع الاستاذ جعفر وحصلة الفائدة للجميع وكتب الله اجر الجميع Private Sub أمر12_Click() FileDialog(msoFileDialogFolderPicker).InitialFileName = CurrentProject.Path If FileDialog(msoFileDialogFolderPicker).Show = -1 Then pate = FileDialog(msoFileDialogFolderPicker).SelectedItems(1) End Sub Private Sub أمر12_LostFocus() If pate.OldValue <> pate.Value Then If MsgBox("تم تغيير المجلد .. وسيتم اضافة ملفات جديدة???", vbOKCancel) = vbOK Then DoCmd.SetWarnings False DoCmd.RunSQL "delete * from tbl_emp_wared where emp_id=" & id_m xp = Dir(pate & "\") Do While xp <> "" DoCmd.RunSQL "insert into [tbl_emp_wared]([emp_id],[file_s]) values(" & id_m & ",'" & xp & "')" xp = Dir Loop DoCmd.SetWarnings True Me.tbl_emp_wared_نموذج_فرعي.Requery Else Undo End If End If End Sub تحياتي m.salama.rar

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

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

اسف لم انتبه الى الطلاب حسب المجموعة فيمكنك فقط وضع مصدر النموذج استعلام وحسب المجموعه ويكون الكود كالتالي : Private Sub Form_Load() Me.Recordset.MoveFirst For I = 1 To Me.Recordset.RecordCount Me("code" & I) = Me.Recordset(0): Me.Recordset.MoveNext Next End Sub بالتوفيق

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

تفضل وفي حدث عند التحميل للنموذج و بعد ان تضع مصدر سجلات للنموذج : Private Sub Form_Load() For I = 1 To 120 Me("code" & I) = Me.Recordset(0): Me.Recordset.MoveNext Next End Sub بالتوفيق

جميل جدا استاذ غسان لي ملاحظة وهو طلب فضلا وليس امرا : نريد البيانات المدخلة بيانات حقيقية ! الاهداف - الانشطة وغيرها ! لو بمثال سابق لديك هذا ولك كل الشكر

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

Private Sub حقل1_Change() 'رمهان اوفيسنا x = حقل1.Text حقل1 = x Me.حقل1.SelStart = Len(x) End Sub

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

اسمحو لي هنا ان ابدي رأيي وخصوصا للاخ عبدالله لم نجد التسلسل التدريجي التعليمي لبرنامج مخازن ! فنلاحظ انه برنامج جاهز ويرفع منه اجزاء بالتقسيط ! قد يكون بلغة اخرى والهدف تحويله الى اكسس هناك ملاحظات ومشاركات لم تؤخذ في الحسبان وخصوصا من الاخ الفاضل ابو عمر كان المفروض النقاش حول الجداول والحقول فنرى ملفا بالجداول فقط ! ثم حول النماذج ومرفقا به النماذج والجداول فقط ! ومع الشرح ! ولكن الى ألان البرنامج به اكواد ربط ونسخ وشروط وضع البرنامج بمجلدات خاصة ! وهنا سيصعب على المبتدئين فهم البرنامج ! حيث البرنامج واخر مرفق يحوي اكوادا لا تمت للمخازن بصلة ومع وشك وصول عدد الصفحات الى 4 هذا وهذه نصائح : 1. نظام المخزون لا يخرج عن شيئين لا ثالث لهما : اذونات اضافة - اذونات صرف . والباقي تحسينات وافكار من برنامج لاخر 2.-- تم حذف هذا البند-- 3. اعجبني الرابط التالي في الطريقة والسهولة http://www.3rbco.com/vb/t5655.html 4. انصح واجري على الله ان لا يضيع الوقت مع الاكسس ناسين التركيز في وظيفتي وعملي والتخصص المهني 5. يجب ان نعلم لكي ان يكون البرنامج قابل للتطبيق العملي والتجاري بالتحديد انه ليس سهلا عمله ولا بد من فريق عمل ومن اكثر من تخصص هذا وهذه في الاخير وجهة نظر شخصية ان كان بها فائدة فاجري على الله وان كان غير ذلك فخطأ ومن نفسي والنتائج ستكون الفيصل والميزان تحيات رمهان