Eng.Qassim

هل تقصد مثل هذا الشكل

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

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

شيء من هذا القبيل... Private Sub opGender_Click() If Me.opGender = 1 Then Me.txtGender.Value = "Male" ElseIf Me.opGender = 2 Then Me.txtGender.Value = "FeMale" End If End Sub txtGender هو اسم الحقل في النموذج والمربوط بالجدول

اسم حقل البحث عندك في النموذج ..واسم الجدول .. واسم حقل البطاقة في الجدول على التوالي txtSearch Customers cardN

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

وعليكم السلام.. دوال المجال لاتعمل هكذا.. 11.rar

للبحث من نموذج ثاني ..هكذا الفكرة لدي وربما هناك الافضل انسخ الكود التالي خلف النموذج frm_RD مع مربع نص صغير txt1 Public Sub search() Dim rst As Recordset Dim strSearch As String strSearch = txt1 Set rst = Me.RecordsetClone rst.FindFirst "report_No= " & strSearch If Not rst.NoMatch Then Me.Bookmark = rst.Bookmark Else MsgBox " الرقم غير موجود!" End If rst.Close Set rst = Nothing End Sub وفي زر البحث في نموذج البحث Private Sub cmdSearch_Click() Forms![frm_RD]![txt1] = txtSearch Call Forms.frm_RD.search End Sub

عذرا اخي ابو منتظر لقد اخطأت UPDATE Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID SET Table2.DName = [Table1].[DName], Table2.Age = [Table1].[Age];

نعم اخي بعد التحديث ..ولاتنسى تغيير اسم الجدول لديك واسماء الحقول الاخرى الموجودة عندك

بالتوفيق.. واذا اردت التحديث عن طريق استعلام ..استخدم الجملة التالية لعمل الاستعلام UPDATE Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID SET Table1.DName = [Table2].[DName], Table1.Age = [Table2].[Age];

😂كلنا في الهوا سوا

وعليكم السلام.. حولت المعرف الى رقم للسهولة...ويجب ان يكون مفهرس حتى لايتكرر Update a record.rar

استغفر الله .. فانت استاذي ...استاذ برناوي

بالتوفيق يارب ...ودعواكم لنا يا أهل المملكة المشرفة

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

وعليكم السلا.. طيب هو رقم الاصدار واحد ولا ايه ...على العموم ..استخدم هذه الدالة حسب الجدول لديك في حدث عند التحميل للنموذج ..طبعا جعلت المعرف=1 لاني مش عارف حاجة 100% Me.Caption = DLookup("[رقم الاصدار]", "[جدول الاصدار]", "[ID]=1")

وعليكم السلام .. اعتقد ...تحتاج مع كل حقل تعمل هذا ..انا عملته مع حقل واحد ..اعمله مع التسعة البقية ويجب اضافة هذا الحقل ايضا ID_Time الى النموذج واجعله مخفي Private Sub day1_AfterUpdate() DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE table_BAIN SET day1 = " & Me.day1 & " WHERE ID_Time = " & Me.ID_Time DoCmd.SetWarnings True Me.Requery End Sub

وعليكم السلام.. لدي ربما ملاحظتين..الاولى ان جدول العملاء لايربط مع ذيل الفاتورة وانما براس الفاتورة ثانيا فاتورة المرتجع مربوطة بجدول المبيعات فكيف تريد بدون كميات ..وكيف ستعرف الكميات المباعة من الكمية المرتجعة عملت لك مربعي تحرير باسم العميل ورقم الفاتورة InvoiceSale_10-1.rar

فيك البركة يا غالي..فكرة جميلة جدا ..عاشت الايادي

هل تم تحديث نسخة الوندوز عند المستخدمين؟

في مربع البحث ضع هذا الكود ..اعتما على علامة الصح والرقم الوظيفي ستظهر رسالة تنبيه ويمكن استخدام دالة dlookup ايضا Dim cardN As Long cardN = Val(Me.txtSearch.Value) If cardN > 0 Then Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM Customers WHERE cardN=" & cardN & " AND ISaCTIVE=True;") If Not rs.EOF Then MsgBox "الموظف مستقيل" End If rs.Close End If

فعلا اذا حظر الماء يبطل التيمم مثلما يقولون..احسنت استاذ @ابوخليل كنت افكر بعمل جدول للاوزان حسب العمر واعمل موديول يفر على السجلات ويعمل مقارنة لكن للاسف لم استطع كتابة الجدول ..لان كل وزن يجب كتابته حسب العمر والطول مرفق ملف لمن اراد الفائدة W.rar

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

انا عيوني زغللت وانا اكتب الكود ...طبعا لم اجربه لحد الان وربما فيه خطأ...لكني احب مشاركة بقية الاخوة للتصحيح عملت موديول لتمرير العمر والطول ...عسى احد الاخوة يساعدنا ... لاني بجد قفلت ...يعني نعست 🥱 Function GetIdealWeight(age As Integer, height As Integer) As Double Select Case True Case age <= 24 Select Case height Case Is <= 150 GetIdealWeight = 57 Case Is <= 160 GetIdealWeight = 60 Case Else GetIdealWeight = 63 End Select Case age <= 29 Select Case height Case Is <= 150 GetIdealWeight = 60 Case Is <= 160 GetIdealWeight = 63 Case Else GetIdealWeight = 66 End Select Case age <= 39 Select Case height Case Is <= 150 GetIdealWeight = 61 Case Is <= 160 GetIdealWeight = 64 Case Else GetIdealWeight = 68 End Select Case age <= 49 Select Case height Case Is <= 150 GetIdealWeight = 64 Case Is <= 160 GetIdealWeight = 67 Case Else GetIdealWeight = 71 End Select Case Else 'age >= 50 لاكثر من 50 سنة Select Case height Case Is <= 150 GetIdealWeight = 67 Case Is <= 160 GetIdealWeight = 70 Case Else GetIdealWeight = 74 End Select End Select End Function