jjafferr

احذف الدالة كاملا ، هكذا: Estime: IIf(IsNull([FT1]) Or IsNull([FT2]);"00:00";Hour(Nz([FT1]))-Hour(Nz([FT2])) & ":" & Minute(Nz([FT1]))-Minute(Nz([FT2]))) جعفر

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

وعليكم السلام حياالله من يانا لانك تستخدم الدالة TimeSerial ، فما تقدر تحذف الثواني ، وانما تقدر تستبدلهم بـ 00 : Estime: IIf(IsNull([FT1]) Or IsNull([FT2]);"00:00";TimeSerial(Hour(Nz([FT1]))-Hour(Nz([FT2]));Minute(Nz([FT1]))-Minute(Nz([FT2]));"00")) . جعفر

تفضل ، هذا المرفق عملته سابقا لحقلين فقط (وهما في الكود اعلاه ، فيجب عليك نقل الكود الى نموذجك ، واكمال الكود لباقي الحقول. جعفر 536.zip

بعد عمل الوحدة النمطية ، عندك طريقتين لمناداتها: 1. . 2. او في الكود: Private Sub Command3_Click() Call Move_Around(Me.a2) End Sub Function Move_Around(ctl As Control) ctl.SetFocus If ctl.Left = 0 Then ctl.Left = 6 * 1440 Else ctl.Left = 0 End If End Function . جعفر 537.move_control.accdb.zip

أخي علي والله ماني فاهم شو اللي تريده!! ياريت توضح طلبك ، وبالتفصيل. جعفر

تحويل ماذا؟ رجاء توضيح طلبك. جعفر

وعليكم السلام اعمل ctl+A يعني اختار الكل لكل ملف ، والصقه في ملف Text او Excel ، يعني تعمل العملية 5 مرات ، او في الكثير من البرامج المجانية اللي ممكن تعمل لك التحويل ، او ارفق لي احد ملفات الـ pdf علشان نفحصها. جعفر

هلا هلا هلا والله قصدك مثل هاي: http://arabteam2000-forum.com/index.php?/topic/291933-امسك-الحقل-بالفأرة-اليسار-،-وخليه-المكان-اللي-يعجبك-3/ جعفر PCTW_4.zip

ايش رايك بطريقة غير تقليدية ، وعصفورين بحجر واحد جعفر

وهذه طريقة اخرى جعفر

وعليكم السلام كلما ضغطت على زر الامر a2 ، سيتحرك الحقل a2 يمينا ويسارا Private Sub Command3_Click() If Me.a2.Left = 0 Then Me.a2.Left = 6 * 1440 Else Me.a2.Left = 0 End If 'Me.a2.Visible = True 'Me.a1.Visible = False 'Me.a2.SetFocus End Sub جعفر 537.move_control.accdb.zip

وعليكم السلام لا اعرف اذا كان ممكن من ملف pdf مباشرة ، ولكن يمكنك تصدير بيانات pdf الى اكسل او ملف نص txt ، ومن هناك تبدأ سحب البيانات الى جدول الاكسس. جعفر

وعليكم السلام تفضل: Dim appexcel As Object Dim wbexcel As Object Set appexcel = CreateObject("Excel.Application") appexcel.Visible = True 'Set wbexcel = appexcel.Workbooks.Open("C:\Excel.xls") Set wbexcel = appexcel.Workbooks.Open(Application.CurrentProject.Path & "\536.To.xlsx") appexcel.Sheets("النموذج الذي تكون عليه الطباعة").Select appexcel.[B3] = Me.[اليوم] appexcel.[E4] = Me.[الحي] Set xlSheet = Nothing: Set xlBook = Nothing: Set xlApp = Nothing . ولكن ، لماذا لا تعمل التقرير في الاكسس مباشرة ، كون البيانات في الاكسس ، وتقريرك شكله سهل !! جعفر

مخالف ، يُغلق. قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 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) . جعفر

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

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

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