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

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

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

لأن لكل عميل صفحة خاصة وليس محدد معنا كم صفحة لأن العملاء كثيرون يوجد حاليا حوالي10 كتب لكل كتاب مايوازي 50عميل ولازال في زدياد المصنع يعمل من25 سنة ولانزال نحفظ العملاء السابقون لأنه أكبر مصنع وأول مصنع في المنطقة أي أن العميل من الممكن أن يتردد للمصنع مرة أخرى

رقم واحد الأسم حسين وفي الصورة رقم 2 الأسم علي والبيانات حق حسين

لدي نموذج وضعت به جدول أريد في هذه الحالة لكل عميل جدول مالحل؟؟؟؟؟؟وهذا الملف المرفق أوضح : لدي نموذج في هذا المرفقفيه نموذج فرعي أنا أبي إذا أغير الأسم في النموذج الغير فرعي يتغير النموذج الفرعي من العميل الذي كنت أكتب في نموذجه ألى العميل الجديد وإذا بغيتوا رسمات تفهيم أجيب وياليت فهمتوني وبسرررررررررررررررررررررعة ولي ماشاف التحميل من هنا

ياجماعة نزلت الموضوع مرة ثانية لأنه تجاوز الصفحتين خلصوني عاد أبي مساعدة في تصميم صفحة نموذج على حسب الشكل التالي والمعلومات كلها موجودة بس بسرعة الجزء الأول: http://www.officena.net/ib/index.php?act=A...pe=post&id=2701 الجزء الثاني: http://www.officena.net/ib/index.php?act=A...pe=post&id=2702 ألحين خلونا نشوف طيف و zahof و التقني بس في مشكلة للتقني وهي أني أبي أعدل فيه ماهو يسكره ومن هنا التحميل الباقي مالت المؤسسات إلي في الصورة الثانية مع تحويل الأرقام إلى عدد داخل إجمالي الفواتير هذا رد الأخ التقني بالنسبة لتحويل المبلغ الرقمي الى نصي فهذا يسمى التفقيط ويمكنك عمل ذلك من خلال هذا الكود : CODEهذا الكود يقوم بتحويل الأرقام إلى نصوص ويفيد خاصة من يعملون في مجال المحاسبة التي تتطلب منهم كتابة المبالغ الماليه رقماً وكتابة فمع هذا الكود ما عليه سوى كتابة الرقم فقط 0وأحببت أن أضعه هنا للفائدة Public Function Horof(X) Ma = " ريال" Mi = " هللة" N = Int(X) B = Val(Right(Format(X, "000000000000.00"), 2)) R = SHorof(N) If R <> "" And B > 0 Then Result = R & Ma & " و " & B & Mi If R <> "" And B = 0 Then Result = R & Ma If R = "" And B <> 0 Then Result = B & Mi Horof = Result End Function Private Function SHorof(X) N = Int(X) C = Format(N, "000000000000") C1 = Val(Mid(C, 12, 1)) Select Case C1 Case Is = 1: Letter1 = "واحد" Case Is = 2: Letter1 = "اثنان" Case Is = 3: Letter1 = "ثلاثة" Case Is = 4: Letter1 = "اربعة" Case Is = 5: Letter1 = "خمسة" Case Is = 6: Letter1 = "ستة" Case Is = 7: Letter1 = "سبعة" Case Is = 8: Letter1 = "ثمانية" Case Is = 9: Letter1 = "تسعة" End Select C2 = Val(Mid(C, 11, 1)) Select Case C2 Case Is = 1: Letter2 = "عشر" Case Is = 2: Letter2 = "عشرون" Case Is = 3: Letter2 = "ثلاثون" Case Is = 4: Letter2 = "اربعون" Case Is = 5: Letter2 = "خمسون" Case Is = 6: Letter2 = "ستون" Case Is = 7: Letter2 = "سبعون" Case Is = 8: Letter2 = "ثمانون" Case Is = 9: Letter2 = "تسعون" End Select If Letter1 <> "" And C2 > 1 Then Letter2 = Letter1 + " و" + Letter2 If Letter2 = "" Then Letter2 = Letter1 If C1 = 0 And C2 = 1 Then Letter2 = Letter2 + "ة" If C1 = 1 And C2 = 1 Then Letter2 = "احدى عشر" If C1 = 2 And C2 = 1 Then Letter2 = "اثنى عشر" If C1 > 2 And C2 = 1 Then Letter2 = Letter1 + " " + Letter2 C3 = Val(Mid(C, 10, 1)) Select Case C3 Case Is = 1: Letter3 = "مائة" Case Is = 2: Letter3 = "مئتان" Case Is > 2: Letter3 = Left(SHorof(C3), Len(SHorof(C3)) - 1) + "مائة" End Select If Letter3 <> "" And Letter2 <> "" Then Letter3 = Letter3 + " و" + Letter2 If Letter3 = "" Then Letter3 = Letter2 C4 = Val(Mid(C, 7, 3)) Select Case C4 Case Is = 1: Letter4 = "الف" Case Is = 2: Letter4 = "الفان" Case 3 To 10: Letter4 = SHorof(C4) + " آلاف" Case Is > 10: Letter4 = SHorof(C4) + " الف" End Select If Letter4 <> "" And Letter3 <> "" Then Letter4 = Letter4 + " و" + Letter3 If Letter4 = "" Then Letter4 = Letter3 C5 = Val(Mid(C, 4, 3)) Select Case C5 Case Is = 1: Letter5 = "مليون" Case Is = 2: Letter5 = "مليونان" Case 3 To 10: Letter5 = SHorof(C5) + " ملايين" Case Is > 10: Letter5 = SHorof(C5) + " مليون" End Select If Letter5 <> "" And Letter4 <> "" Then Letter5 = Letter5 + " و" + Letter4 If Letter5 = "" Then Letter5 = Letter4 C6 = Val(Mid(C, 1, 3)) Select Case C6 Case Is = 1: Letter6 = "مليار" Case Is = 2: Letter6 = "ملياران" Case Is > 2: Letter6 = SHorof(C6) + " مليار" End Select If Letter6 <> "" And Letter5 <> "" Then Letter6 = Letter6 + " و" + Letter5 If Letter6 = "" Then Letter6 = Letter5 SHorof = Letter6 End Function ضع هذا الكود في وحدة نمطيه عامة ثم على نموذج ضع مربع نصين الأول سمه مقدار_الراتب_رقماً والثاني مقدار_الراتب_نصاً0 وفي حدث بعد التحديث لمربع النص المسمى مقدار_الراتب_رقماً أكتب الكود التالي: strN = Horof(مقدار_الراتب_رقماً) مقدار_الراتب_نصاً = strN فعندما تكتب الرقم 4552 في الحقل المسمى مقدار_الراتب_رقماً يكون حقل مقدار الراتب نصاً كالتالي اربعة الآف وخمسمائة وإثنان وخمسون ريال نفذها لي على المجلد إلي يتحمل من هنا وفي رابط ثاني فوق

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

مافهمت شي أنا مبتدأ أتعلم من نيوهورايوزن وفاتني نص الدروس لأني سافرت أنا ماعرف وش أسوي عندي مشاكل واجد أكتب أسئلتها هنا ويالله بعد كم أسبوع يجي الجواب أتمنى منك المساعدة وتدخيل البيانات جزاك الله خير أبوي واعدني بشي إذا أتمم البرنامج وترى هذي أجزاء من أجزاء بعدين إذا أروح المصنع أسوي إستيراد

ومن هنا التحميل الباقي مالت المؤسسات إلي في الصورة الثانية مع تحويل الأرقام إلى عدد داخل إجمالي الفواتير

طيب أنا بجهز إلي أقدر عليه والباقي ساعدوني

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

بحاول في وقت الفرغ