wael_rafat

السلام عليكم ورحمة الله وبركاته اخواني الكرام بارك الله فيكم جميعا ..... على هذا الموضوع الهام والجديد بعد اذن اساتذنا الكرام.... استاذي الجميل رمهان واستاذى الفاضل ابو عارف استفسارى هو :- كيفية تلافي النقاط التالية : 1 - عدم السماح لادخال رقم " 0 " قبل الرقم بحقل الكمية او حقل المبلغ .... بمعنى عدم سماح كتابة الرقم 01 - 001 2 - عدم السماح لادخال الدوت " . " بحقل المبلغ اكثر من مرة ........ بمعنى عد سماح كتابة مبلغ يحتوي على اكثر من " . " مثل 1.2.3 وهل ممكن تحويل الحقول المذكورة من نوع " نص " الى نوع " رقم " ؟؟؟ وبارك الله فيكم جميعا . صور توضيحية

هههههه معلش كان الله في عونك استاذي الجميل جعفر وبميزان حسناتك ان شاء الله

استاذي الغالي جعفر بارك الله في عمرك من الواضح انني لم استطع توصيل المطلوب كما يجب لو تسمحلي ناخذ مثال . ادخال فاتورة جديدة اي ان السجلات فاغة كويس اريد ان ادخل من الصنف زبيدي العدد 5 ماذا افعل ? اقوم بالضغط على زر الصنف زبيدي ( 5 ضغطات) كويس .. كدا لدينا في الفاتورة الصتف زبيدي عدد 5 ثم تركت زر الصنف زبيدي وانتقلت الي زر صنف اخر وادخلت العدد بنفس الطريقة السابقة . كويس كدا لدينا في الفاتورة الصنف زبيدي عدد 5 وايضا الصنف الاخر بالعدد اياكان كويس ثم رجعت بالضغط مرة اخري علي زر الصنف زبيدي .......هناااااا تظهر رسالة التكرار ولكن في السابق كانت الرساله تظهر بعد الضغطة الاولي علي زر الصنف . اي ان الكود يقوم بالبحث عن كود الصنف نفسه وهل موجود في الفاتورة من عدمه بصرف النظر عن كميته اتمني ان تكون الصورة اتضحت.... وجزاء الله كل خير

للاسف استاذ رمهان.... لم يتم التوصل الي ما اريده كما اسلفت وهو ظهور رسالة التكرار عند الضغط علي الصنف لزيادة الكمية وهذا ما لا اريدة والذي اريدة هو ظهور الرسالة فقط عند اضافة الصنف نفسة مرة اخري على سبيل المثال : عند الضغط على الصنف زبيدي 1-2-3-...... الخ ثم الانتقال الي صنف اخر وعند الضغط مرة اخري على الصنف زبيدي...... ( هنا تظهر رسالة التنــبيه بالتكرار ) وبارك الله فيك ما تقصر ، ومشكور على المتابعة New.rar

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

استاذي الغالي رمهان سامحني غلبتك معي ... ولكن الكود بهذا الشكل اختلف تماما في طريقة الاداء واعتقد ان الطريقة الاولي هي الافضل وهي كود عند الضغط على زر الحفظ وعند وجود تكرار رقم الصنف فى السجلات يقوم بتنبيهي فقط للعلم نفس فكرة الكود لتنبيهي على وجود كميات فارغة وهو Dim i As Integer Dim rs As Recordset Set rs = Me.F_ordersubform.Form.RecordsetClone rs.MoveLast R = rs.RecordCount rs.MoveFirst For i = 1 To R If IsNull(rs!Qty) Then MsgBox " íæÌÏ ÇÕäÇÝ ÈÇáÝÇÊæÑÉ ÈÏæä ßãíÉ ... ÇÏÎá ÇáßãíÉ ÇæáÇ", vbCritical, " ÈÏæä ßãíÉ " Exit Sub End If rs.MoveNext Next rs.close Set rs = Nothing وسامحني مرة اخري وبارك الله فيك

السلام عليكم اخي Yms12 .... من وجهة نظري ان المبرمج لابد من عمل تهيئة ووضع كل المتطلبات التي يحتاجها البرنامج على جهاز العميل قبل وضع البرنامج

للتذكرة فقط

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

http://www.officena.net/ib/topic/64060-التنبيه-بوجود-صنف-مكرر-بسجلات-النموذج-الفرعي/ جرب الطريقة دي وزي ما قولتلك من وجهة نظري اسهل واسرع وايضا تتماشي مع نظام التاتش الفكرة باختصار ... عدد الضغطات علي الصنف هو العدد المراد ادخاله... ويوجد ايضا زر + للزيادة العدد وزر - لنقص العدد جرب ووافيني بالنتيجة بالتوفيق

السلام عليكم بعد اذن استاذنا الجميل جعفر اخي حسين ممكن اعرف طبيعة الاصناف التي تتعامل معها.. بمعني الكميات المراد ادخالها هي اعداد صحيحة ام يوجد كسور ?? بمعني الكميات عبارة عن 1-2-3-4.....الخ لو كانت كذلك ممكن تجرب الطريقة التالية فهي من وجهة نظري اسهل واشيك وايضا مطبقة ببرامج المطاعم

استاذي رمهان اقصد بالاستمرار... اي تجاهل التكرار واضافة الصنف مرة اخري . بارك الله فيك

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

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

السلام عليكم ورحمة الله وبركاته اخوني الكرام استفساري هو كود للبحث والتأكد من عدم تكرار صنف داخل سجلات النموذج الفرعي قبل الحفظ بمعني عند الضغط علي رز الحفظ يقوم بالبحث فى سجلات النموذج الفرعي وعند وجود صنف مكرر يقوم بتنبيهي بذلك وبالتالـي لا يقبل الحفظ وكان لي فى السابق موضوع مشابه بخصوص التاكد من عدم وجود حقل كمية فارغ بسجلات النموذج الفرعي وافادني استاذنا ابو خليل جزاه الله كل خير عن الكود وهو كالتالي Dim i As Integer Dim rs As Recordset Set rs = Me.F_ordersubform.Form.RecordsetClone rs.MoveLast R = rs.RecordCount rs.MoveFirst For i = 1 To R If IsNull(rs!Qty) Then MsgBox " íæÌÏ ÇÕäÇÝ ÈÇáÝÇÊæÑÉ ÈÏæä ßãíÉ ... ÇÏÎá ÇáßãíÉ ÇæáÇ", vbCritical, " ÈÏæä ßãíÉ " Exit Sub End If rs.MoveNext Next rs.close Set rs = Nothing مرفق صورة توضيحية والقاعدة . ولكم جزيل الشكر .,,, KFC.rar

بارك الله فيك

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

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

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

استاذنا الغالي جعفر .... مشكور للمشاركة ..... ولكن للاسف ما ضبط

بارك الله فيك استاذنا الكريم رمهان الفكرة انني عامل كود تحديث للنموذج الفرعي بمعدل كل ثانية ، والغرض منه تحديث الاجمالي بمجرد ادخال الصنف اي لا انتظر الانتقال الي السجل الجديد حتي يتم تحيث الاجمالي ... والموضوع ماشي تمام لكن المشكلة التي اواجهها هو اهتزاز او وميض بالنموذج الفرعي ناتج عن عملية التحديث التي تتم كل ثانية KFC.rar

نقطة هامة واضم صوتي لصوت الاخ عزيز

بارك الله فيك استاذنا ابو خليل اتفضل اخي محمد هذا المثال من استاذنا الجميل جعفر ضع الفولدر Prog والذي يحتوي علي الجداول المرتبطة علي الD كما هو .. ثم قم بفتح البرنامج الاساسي AA وقم بالخروج سوف ينشيء فولدر تلقائي باسم BAk علي الD وبه نسخة من الجداول المرتبطة بالتاريخ والوقت للاسف يوجد مشكلة بالموقع عند تحميل الملفات اتفضل هذا الكود لحين استطيع تحميل المرفقات On Error GoTo err_Form_Close 'make a backup of BE BE_or_FE = "D:\prog" Backup_Folder = "D:\BAK" 'Do a copy from a PC name wael ONLY 'If VBA.Environ("Computername") <> "wael" Then Exit Sub 'Delete the old saved accdb Kill Backup_Folder & "\AA_BE_*.accdb" 'Now lets work on saving the new accdb''Is this PC name = jj' ' BE_Address = BE_or_FE & "\AA_BE.accdb" BK_Address = Backup_Folder & "\AA_BE_" & Format(Date, "dd-mm-yyyy") & "-" & Format(Now(), "Hh-Nn-AMPM") & ".accdb*" 'Debug.Print "xcopy " & Chr(34) & BE_Address & Chr(34) & " " & Chr(34) & BK_Address & Chr(34) Call Shell("xcopy " & Chr(34) & BE_Address & Chr(34) & " " & Chr(34) & BK_Address & Chr(34), vbHide) Exit Sub err_Form_Close: If Err.Number = 2450 Or Err.Number = 53 Then 'ignor Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If

انشاء الله حاضر

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