Shivan Rekany

تم تعديل على مسميات الحقول والمربعات النصية للنموذج De versement وتم اضافة كود عند الدخول انت اعمل تعديلات لاسماء وليبلات نماذج اخرى Database1.rar

Expr1: IIf(Month([date1])=Month(Date());28 & "/" & Month([date1])-1 & "/" & Year([date1]);IIf(Day([date1])>=28;28 & Format(DateAdd("m";1;[date1]);"/mm/yyyy");28 & Format([date1];"/mm/yyyy"))) db1 (1).rar

وعليكم السلام اخي الحبيب ما عليك الا ان تمشي مع الخطوات المشاركتي انا شرحت لك بالتفضيل اولا قم باضافة الموديول جديد واكتب فيها هذا Public UserName As String Public Sub GetUserName(FrmName As String) Forms(FrmName).Caption = UserName End Sub وبعدين عند دخول بواسطة نموذج الدخول اكتب هذا السطر اذاكان ر قم سري صحيح GetUserName.UserName = Nz(DLookup("username", "users", "username = Forms!frmlogin!UName")) غير اسم الجدول و اسم الحقل اذا كان اسم الجدولك و اسم الحقل مختلف وبعدين في بعد اضافة اي سجل اي بعد انسيرت اي سجل اكتب هذا Private Sub Form_AfterInsert() Me.UserNameIns = UserName End Sub UserNameIns غير باسم الحقل للجدول المصدر النموذج

اذا تريد ان يعطيك اي بدل شهر 12 ؟ هل تريد ان يعطيك تاريخ اليوم ؟ اذا نعم اليك هذا Expr1: IIf([date1]>=Date();[date1];IIf(Month([date1])=Month(Date());Format(Date();"dd/mm/") & Year([date1]);IIf(Day([date1])>=28;28 & Format(DateAdd("m";1;[date1]);"/mm/yyyy");28 & Format([date1];"/mm/yyyy")))) والا اشرح لي بالتفصيل ماذا تريد بالامثلة db1 (1).rar

في طرح سؤالك اشوف نموذج وتقرير لكن في القاعدة ليس فيها اي نموذج والتقرير ليس هو اللي في مشاركتك شفان ريكاني

اذن غير الكود الى هذا IIf([date1]>=Date();[date1];IIf(Day([date1])>=28;28 & Format(DateAdd("m";1;[date1]);"/mm/yyyy");28 & Format([date1];"/mm/yyyy"))) db1 (1).rar

اتفضل اليك هذا

الكود صار هكذ Expr1: IIf(Day([date1])>=28;28 & Format(DateAdd("m";1;[date1]);"/mm/yyyy");28 & Format([date1];"/mm/yyyy")) db1.rar

اتفضل تم اضافة حقل اي دي للجدولين وتم الربط بينهما واحد لمتعدد وتم وضع الشرط في مصدر كومبوبوكس الثاني وتم اضافة كود بعد تحديث لكومبوبوكس الاول اليك المرفق الالعاب.rar

بكل تأكيد لكن بتغير بسيط IIf(Day([Text0]) = 28 ; DateAdd("m"; 1; [Text0]) ; 28 & Format([Text0]; "/MM/YYYY")) Text0 هو اسم حقل اللي فيه تاريخ واذا ما عرفت ان تطبق ارفع نسخة من قاعدة بياناتك للتعديل عليه

اتفضل اليك هذا Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDelete Then If MsgBox("åá ÊÑíÏ ÍÐÝ åÐÇ ÇáÓÌá", vbYesNo) = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If End If End Sub Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub

اتفضل اليك هذا الكود Private Sub Text0_AfterUpdate() If Day(Me.Text0) = 28 Then Me.Text2 = DateAdd("m", 1, Me.Text0) Else Me.Text2 = 28 & Format(Me.Text0, "/MM/YYYY") End Sub

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

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

لهذه الفقرة انت تحتاج هذا Private Sub كود_الصنف_AfterUpdate() Me.اسم_الصنف = Me.كود_الصنف.Column(1) End Sub وبدل حقل خليت المربع الاجمالي في اسفل النموذج الفرعي واضفت مربع نص اخر في نموذج رئيسي و مصدره صار مربع المجموع في نموذج الفرعي =[بيع اصناف نموذج فرعي].[Form]![MySum] سنستخدم دالة DSum مع الشروط لكي نعرف حساب اجمال لكل عميل لكن هناك نحن نحتاج جدول اخر لتسديد الديون و تاريخ الدفع وهذا خليت لك لكي تعمله انت واذا احتاجت شيء نحن هنا Database2.zip

اريد اعرف ماذا تريد بالضبط ... اي هدف وراء هذه العملية

على خاطرك انا قمت بالتجربة مرة اخرى و طبعت وما فيه اي مشكلة ... بيطبع كما يظهر في وضع المعايينة

حسب ما ورد في مثالك انك تريد ان يعطيك يوم 28 من نفس الشهر ونفس السنة الا اذا كان يوم تاريخ المخزن بيكون 28 تريد ان يعطيك 28 للشهر بعده هل انا فهمت من طلبك ام تريد شيء اخر

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

اتفضل تم عمل جدول جديد للمحاولات بحقول اسم المستخدم و رقم سري المستخدمة و وقت المحاولة الدخول واستخدمت هذا الكود Private Sub commond5_Click() Dim X If IsNull(Text0) Or IsNull(Text2) Then MsgBox "احد الحقول فارغ" Exit Sub Else X = DLookup("[id]", "user", "[UserName] =[Text0] And [Passwd] = [Text2]") End If If Not IsNull(X) Then DoCmd.Close DoCmd.OpenForm "namozag1" Else MsgBox " اسم المستخدم او كلمه المرور خطاء راجع مسؤول البرنامج", vbOKOnly, "تاكيد صلاحيات الدخول" DoCmd.SetWarnings False DoCmd.RunSQL ("INSERT INTO TblMihawlatLogIn ( UserN, PassN, TimeForE ) SELECT [Forms]![SignInNamozag]![Text0] AS Expr1," & _ "[Forms]![SignInNamozag]![Text2] AS Expr2, Now() AS Expr3;") DoCmd.SetWarnings True DoCmd.CancelEvent End If End Sub تصيد المتلاعب.rar

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

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

فعلا ... حين قرأت مشاركة استاذنا @أبو إبراهيم الغامدي قلت لنفسي بكل هدوء ... لا ارى اي مشاركته بدون فائدة ... دائما عنده شيء جديد ... دائما اتعلم منه شيئا جديدا الله يحفظكم وانا ايضا اطلب كما طلبت استاذ عبدالفتاح وايضا اطلب لاستاذ عبدالفتاح ان يرفق قاعدة تجربته هنا لكي نستفيد منها اكثر تحيات لكم

ههههههه سؤال صعب انا اسمي شفان باللغة الكردية اي بالعربي يعني ( راعي ) كلكم راعي وكلكم مسؤل عن رعيته

السلام عليكم ورحمة الله وبركاته اتفضل اخي الكريم تم استخدام هذا الكود للجمع و Public Sub التربية_الخاصة_فردي_AfterUpdate() Me.عدد_الجلسات = Nz(Me.التربية_الخاصة_فردي, 0) + Nz(Me.علاج_النطق, 0) + Nz(Me.العلاج_الوظيفي, 0) + Nz(Me.العلاج_الطبيعي, 0) + Nz(Me.تعديل_السلوك, 0) + Nz(Me.تأهيل_مهني, 0) Me.اجمالي_المبلغ_الشهري = Me.عدد_الجلسات * 30 End Sub وفي حدث بعد تحديث لكل مربع تم استدعاء هذا الامر هكذا Private Sub العلاج_الطبيعي_AfterUpdate() التربية_الخاصة_فردي_AfterUpdate End Sub اليك القاعدة بعد تعديل فاتورة.rar