jjafferr

تفضل 534.Test.mdb.zip

السلام عليكم أخونا العود الظاهر تم استبدال قواربنا مال Bit و Byte ، بسفن اكبر حجما ، ولكننا صامدون ان شاء الله جعفر في هذه الحالة الكود سيصبح: Private Sub cmd_Filled_Fields_Click() Dim rst As DAO.Recordset Dim fld As Field Dim f As String Set rst = CurrentDb.OpenRecordset("Select * From testq") rst.MoveFirst Counter = 0 f = "" For Each fld In rst.Fields If Len(fld.Value & "") <> 0 or fld.Name <> "g" Then Counter = Counter + 1 f = f & ", " & fld.Name End If Next rst.edit rst!g=Counter rst.update rst.close : set rst=nothing MsgBox Counter & vbCrLf & "حقول فيها بيانات، وهي" & vbCrLf & Mid(f, 3) End Sub جعفر

السلام عليكم اختي ، 1. طلبت منك: ولم احصل عليه 2. كل اسم له رقم مختلف ، فهذا معناه انه لا يمكن ان يكون لأي شخص اكثر من غياب واحد فقط ، هذا لأن جدول الغياب به رقم الموظف فقط ، والرابط بينه وبين جدول الاسماء هو الرقم !! رجاء تعديل الجدول/الجداول واضافة بيانات زيادة حتى نستطيع عمل اللازم ، ثم اعطيني مثال منه جعفر

طيب جرب Me.DiscountEndDate = DateSerial(Year(Me.DiscountEndDate), Month(Me.DiscountEndDate)+1, 0) جعفر

وعليكم السلام بعد إذن أخي ابوخليل عملت زر في النموذج ، اسمه cmd_Filled_Fields ، وهذه نتيجة حدث الضغط على الزر: . وهذا كود الحدث: Private Sub cmd_Filled_Fields_Click() Dim rst As DAO.Recordset Dim fld As Field Dim f As String Set rst = CurrentDb.OpenRecordset("Select * From testq") rst.MoveFirst Counter = 0 f = "" For Each fld In rst.Fields If Len(fld.Value & "") <> 0 Then Counter = Counter + 1 f = f & ", " & fld.Name End If Next MsgBox Counter & vbCrLf & "ÍÞæá ÝíåÇ ÈíÇäÇÊ¡ æåí" & vbCrLf & Mid(f, 3) End Sub . جعفر

وعليكم السلام اخي كريمو بدل هذا السطر Me.DiscountEndDate = DateSerial(Year(Me.DiscountEndDate), Month(Me.DiscountEndDate), 1) استعمل Me.DiscountEndDate = DateSerial(Year(Me.DiscountEndDate), Month(Me.DiscountEndDate), 0) . جعفر

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

السلام عليكم رجاء تعطيني مثال واضح من قاعدة بياناتك ، وبالتفصيل جعفر

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

وعليكم السلام أخي سامي شروط المنتدى لا تسمح بوضع أكثر من سؤال في الموضوع. لذا ممكن نتابع السؤال في موضوعك : جعفر

وعليكم السلام اهلا وسهلا بك في المنتدى اذا كان امتداد البرنامج mde او accde ، فلا يمكن التعديل ، اثناء البرنامج مغلق ، امسك مفتاح الشفت انقر على البرنامج مرتين ، واستمر في الضغط على الشفت الى ان يفتح البرنامج ، وسيكون في وضع تستطيع التغيير فيه جعفر

وعليكم السلام بدل ان نعمل الالوان في الكود ، استبدلت مربع النص ، بأحد كائنات الاكسس التي بها الوان ، ولكني تحكمت بالالوان: الجدول اصبح ، ولاحظ اني استعملت الموقف رقم 1 و 11: . النموذج ، والكائن الجديد ، وطريقة اختيار الالوان: . والنتيجة: . جعفر 532.MAP PARING.accdb.zip

وعليكم السلام قيمة الحقل: . ثم مجموع الحقل: . والنتيجة: . جعفر 531.قيمة غير صحيحة.accdb.zip

السلام عليكم هذا الاستعلام ألالحاقي Edit2Query ، الحقول في المربع الاحمر موجودة في الجدول tblEdits2 (الزامي) بينما الحقول في المربع الازرق ليس الزاميا ان تكون من الجدول Transactions ، . وبالنظر الى الحقول في المربع الازرق ، ارى انك تأخذ البيانات من النموذج الفرعي مباشرة ، لهذا السبب يجب عليك حذف الجدول Transactions من الاستعلام (وهذا سبب مشكلتك) عدد السجلات التي يتم الحاقها هو عدد السجلات الموجودة في الجدول Transactions والطريقة الاخرى : . جعفر

.

وعليكم السلام اولا ، يجب ان نأخذ القيمة المختارة من الحقل مباشرة بعد اختيارها ، وقبل الذهاب الى اي كائن آخر ، ويمكننا عمل هذا بعد رفع الفأرة من الحقل الذي تم اختيار النص فيه ، اسم الحقل الذي فيه الجزء المختار من النص هو fName ، ونريد نسخه الى الحقل Copied ، هناك طريقتين: 1. نسخ مباشر الى الحقل التالي ، 2. نسخ الى حافظة الوندوز ، والصاقها في اي مكان آخر Option Compare Database Public Selected_Text Private Sub fName_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next '1 Selected_Text = Me.fName.SelText '2 ' DoCmd.RunCommand acCmdCopy End Sub Private Sub cmd_Copy_Click() '1 Me.Copied = Selected_Text '2 ' Me.Copied.SetFocus ' DoCmd.RunCommand acCmdPaste End Sub . جعفر 530.Copy_Selecter_Partial.mdb.zip

وعليكم السلام اي جدول كان مرتبط؟ وماذا يجب ان نعمل لنرى الذي رأيته انت؟ جعفر

وعليكم السلام تفضل جعفر

المعذرة أستاذ علي ، هل لازلت تريد ان نواصل العمل من حيث توقفنا ، وما الذي تريده الان؟ جعفر

. هذا الرابط لجميع الاصدارات ، ولكن فكرة العمل هي كما شرحها الاستاذ صالح ، بتغيير بسيط: . جعفر

وعليكم السلام 1. اعطنا مثال على طلبك ، وبالتفصيل ، 2. ثم ماذا تريد ان تفعل بالجزء الذي تم نسخه؟ جعفر

السلام عليكم اذا فهمت قصدك صح ، فأنتي تريدين اضافة زر ليحدد الثلاثة اشهر على تاريخ البدء !! طريقة العمل: اذا اخترتي زر 3 اشهر ، فتلقائيا يضيف 3 اشهر على "من تاريخ" ويضع النتيجة في "الى تاريخ" ، اذا كانت خانت 3 اشهر فيها صح ، وتم تغيير "من تاريخ" ، فتلقائيا سيتغير "الى تاريخ" بثلاثة اشهر ، اذا غيرتي في "الى تاريخ" ، فسيزيل على الصح من زر 3 اشهر: . هذه اكواد 1 و 2 و 3 اعلاه: Private Sub chk_3_months_Click() '1 If Me.chk_3_months = -1 And Len(Me.Date_From & "") <> 0 Then Me.Date_To = DateAdd("m", 3, Me.Date_From) End If End Sub Private Sub Date_From_AfterUpdate() '2 If Me.chk_3_months = -1 And Len(Me.Date_From & "") <> 0 Then Me.Date_To = DateAdd("m", 3, Me.Date_From) End If End Sub Private Sub Date_To_AfterUpdate() '3 If Len(Me.Date_To & "") <> 0 Then Me.chk_3_months = 0 End If End Sub والنموذج يعمل كما كان سابقا جعفر 527.1.مثال 5.accdb.zip

عفوا ما فهمت اعملي التغيير على المرفق ، واعطيني مثال من البرنامج جعفر

جربي المرفق واخبرينا عن النتائج جعفر

تفضل الكود على حدث نقر زر "تفعيل خانة الاختيار في النموذج الفرعي": Dim rst As DAO.Recordset Set rst = Me.ORDER.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount What_Was_The_First_Selection = rst!Do For i = 1 To RC rst.Edit rst!Do = Not What_Was_The_First_Selection rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing جعفر 528.CHECK BOX.accdb.zip