jjafferr

مخالف ، يُغلق. قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

وعليكم السلام اسمح لي اشرح التالي ، عن حقل الاسم fName : اذا جعلت شرط الاسم: 1. وكتبت في بحث النموذج جم ، فهذا سيعطيك الاسماء التي بها الحروف جم ، مثل (جمال ، جميل ، جميله ، جمعه ، اجمل ... ) ، والاسوأ اذا تبحث في الحقل ID عن الرقم 1 ، فهذا سيعطيك الارقام التي بها الرقم 1 ، مثل (1 ، 11 ، 120 ، 213 ، 115265 .... ) ، 2. واذا في النموذج عندك مربع سرد وتحرير ، وفيه اسماء الاشخاص ، وعندك اختيار باسم All ، ولما تريد اختيار All فانك تريد اعطائك جميع الاسماء ، 3. بينما اذا اردت اختيار اسم معين ، فالطريقة هكذا ، 4. بينما اذا اردت ترك حقل الاسم فاضي ، فالطريقة هذه تعطيك جميع الاسماء: 1 Like "*" & [forms]![frm_Main]![fName] & "*" Like "*" & [forms]![frm_Main]![ID] & "*" 2 Like IIf([forms]![frm_Main]![fName]='All',"*","*" & [forms]![frm_Main]![fName] & "*") 3 [forms]![frm_Main]![fName] 4 iif(len([forms]![frm_Main]![fName] & '')=0,[fName],[forms]![frm_Main]![fName]) . جعفر

تفضل 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

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