mbn

كلمة مأثورة خذوها مني "لقد تعلمت وتعلمت فخولت لنفسي أني قد دخلت إلى خليج ، فزددت علماً فعلمت أني على باب البحر ، فزددت علماً فضربت رأسي ؛ لإني مازلت على شاطئ المحيط"

الف شكر لك مجدداً وإن شاء الله يكون مفيد

الف شكر لكم إخواني على مجهودكم بس مافهمتوا عليي بالضبط أنا أقولكم انا عرفت المكان إلي أحط فيه التعليمات عشان أحط الأمر من خلال نموذج الأخ كمال النحال بس ممكن تشرحلي زياده عن الـفيجوال بسيك المدخل Private Sub DER_Click() On Error GoTo bbc If IsNull(S1) Then Beep S1.SetFocus Exit Sub End If Q.AddNew Q!CustNo = S1 Q!CustNm = S2 Q!Site = S3 Q!Datee = S4 Q!NZONE = COM1 Q!SortNo = COM2 Q!Ret = S5 Q!Reste = S6 Q!Clean = S7 Q!Pris = S8 Q!Ser = S9 Q!SWG = S10 Q!DR1 = S11 Q!R1 = S12 Q!Chassi = S14 Q!CustNmm = S13 Q!Rooms = S15 Q!Str = S16 Q.Update S1 = Null S2 = Null S3 = Null S4 = Null COM1 = Null COM2 = Null S5 = 99999 S6 = 0 S7 = False S8 = False S9 = False S10 = False S11 = Null S12 = 0 S14 = Null S13 = Null S15 = 0 S16 = False S1.SetFocus bbc: S1.SetFocus Exit Sub End Sub Private Sub S1_AfterUpdate() Dim ss As String Dim QRY As String QRY = "SELECT Custs.* FROM Custs;" Set Q = CurrentDb.OpenRecordset(QRY) ss = "custno=" & S1 Q.FindFirst ss If Not Q.NoMatch = True Then Beep MsgBox "åÐÇÇáÓÌá ãæÌæÏ Ýí ãáÝ ÇáãÔÊÑßíä ", , "ÇáãÈÑãÌ" S2.SetFocus S1.SetFocus S1 = "" End If End Sub Private Sub S10_AfterUpdate() If IsNull(S10) Then S10.SetFocus S10 = 0 Exit Sub End If End Sub Private Sub S12_AfterUpdate() If IsNull(S12) Then S12.SetFocus S12 = 0 Exit Sub End If End Sub Private Sub S15_AfterUpdate() If IsNull(S15) Then S15.SetFocus S15 = 0 Exit Sub End If End Sub Private Sub S2_AfterUpdate() S13 = S2 End Sub Private Sub S5_AfterUpdate() If IsNull(S5) Then S5.SetFocus S5 = 99999 Exit Sub End If End Sub Private Sub S6_AfterUpdate() If IsNull(S6) Then S6.SetFocus S6 = 0 Exit Sub End If End Sub Private Sub S7_AfterUpdate() If IsNull(S7) Then S7.SetFocus S7 = 0 Exit Sub End If End Sub Private Sub S8_AfterUpdate() If IsNull(S8) Then S8.SetFocus S8 = 0 Exit Sub End If End Sub Private Sub S9_AfterUpdate() If IsNull(S9) Then S9.SetFocus S9 = 0 Exit Sub End If End Sub Private Sub ZXCV_Click() DoCmd.Close End Sub كل سطر وفائدته إذا مافي كلافه

إخواني أنا ماطلبت نموذج انا طلبت الطريقة اكتبوها كتابة

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

إخواني الأعزاء Plees Help MY

مافي رد؟؟

يا اخي العزيز انا اعرف انه نسوي علاقة عشان كذا كتبت سؤال في العلاقات المشكلة كيف ----؟؟؟

وينكم يا أخوان

طيب هذا هو الملف db1.rar

أخي أنا لم أضع ملفي لأني أريد أن أتعلم الطريقة ولم أطلب منكم المساعدة في عملي بل في تعليمي لك جزيل الشكر

بسم الله الرحمن الرحيم والصلاة والسلام على أشرف الخلق والمرسلين نبينا وسيدنا وحبيبنا محمد وعلى آل بيته الطيبين الطاهرين السلام عليكم ورحمة الله وبركاته أخواني الخبراء أنا عندي نموذج كشف بالعمال والموضفين عندي في الإقامات سويت نموذج حق تجديد الإقامات أبي إذا حطيت نموذج التجديد وأضفت سجل يغير على معلومات العامل تلقائياً بالصور الصورة الاولى هي لنموذج العمال الصورة الثاني هي لنموذج التجديد أبي إذا أضفت سجل وحطيت رقم 1 يعدل على رقم 1 في معلومات العمال وكذالك بالنسبة للرقم 2 لو سمحتوى وإذا تكرمتو أبيه شرح ولو كتابي ما ابي نموذج جاهز قال رسول الله صلى اللّه عليه وسلم : ": من نفس عن مسلم كربة من كرب الدنيا نفس الله عنه كربة من كرب يوم القيامة ومن ستر مسلما ستره الله في الدنيا والآخرة ومن يسر على معسر يسر الله عليه في الدنيا والآخرة والله في عون العبد ما كان العبد في عون أخيه ومن سلك طريقا يلتمس فيه علما سهل الله له به طريقا إلى الجنة وما اجتمع قوم في بيت من بيوت الله يتلون كتاب الله ويتدارسونه بينهم إلا حفتهم الملائكة ونزلت عليهم السكينة وغشيتهم الرحمة وذكرهم الله فيمن عنده ومن أبطأ به عمله لم يسرع به نسبه . أيضاً الدال على الخير كفاعله أرجو المساعدة وفقكم الله لمرضاته

السلام عليكم اخواني الاعزاء طلبي واضح بس مشترط ((طرار ومتشرط)) طبعاً راح يكون التصميم في نموذج 1-الجدول المبيعات - المعلومات هو راح يكون رأس النموذج وابي إذا حطت رقم العميل يطلعلي اسم العميل ، وتاريخ الفاتورة يكون مبرمج على انه يستخدم التاريخ من الجهاز 2-الجدول المبيعات - الاصناف هذا راح يكون في منتصف النموذج وابي عندما احط رقم الصنف يطلعلي الصنف وسعره ويكون في قاعده السعر × الكمية = المجموع 3-الجدول المبيعات - النهائي هنا ابي يجمع في الاجمالي جميع المحموع وينقص من الخصم ويطلع الناتج في الصافي وكتب الناتج تلقائياً في الصافي كتابة ، بعدين عندي الخلية دفع ابي فيها ان يجي فيها الناتج على طول وإذا لم يغير فيها شيء تكون الخلية نوع الفاتورة نقداً وإذا غيرت اي كان الرقم إلي فيها 0 يكون آجل إذا كان في مبلغ وتكون الخلية الباقي فيها ماتبقى من المبلغ اما إذا دفع جزء من المبلغ تطلع في الخلية نوع الفاتورة مبيعات نقداً/آجل هذا ولكم مني جزيل الشكر وإن شاء الله ما ثقلت عليكم بطلباتي النموذج موجود في المرفقات وستنوا الباقي اتمنى ان النموذج مايقفل عشان باقي تعديلات بضيفها ورجعه لكم عشان باقي طلباتي يالله شباب استناكم db2.zip

يعني مافي حل أيأس شوفولي حل تراي فخت

المهم هي افكرة زي الفواتير فممكن تصلحها لي