jjafferr

خلينا نستخدم دالة Format ونحل الموضوع بدون الثواني (لاحظ نهاية الاقتراح الثاني) Estime2: IIf(IsNull([ft1]) Or IsNull([ft2]),"00:00",Format(TimeSerial(Hour(Nz([FT1]))-Hour(Nz([Ft2])),Minute(Nz([Ft1]))-Minute(Nz([FT2])),Second(Nz([FT1]))-Second(Nz([FT2]))),"Medium Time")) او Estime3: IIf(IsNull([ft1]) Or IsNull([ft2]),"00:00",Format(TimeSerial(Hour(Nz([FT1]))-Hour(Nz([Ft2])),Minute(Nz([Ft1]))-Minute(Nz([FT2])),Second(Nz([FT1]))-Second(Nz([FT2]))),"hh:mm AMPM")) . آه ، لازم تستبدل ; بدل , (لأني اشتغل على وندوز انجليزي). جعفر

السلام عليكم اخي عمرو ، كل شغلك تمام ، ماعدا شغلة واحدة في الاستعلام: بدل Like "*" & [Forms]![frm_Search]![Text0].[Text] & "*" استعمل Like "*" & [Forms]![frm_Search]![Text0] & "*" جعفر

جرب هاي في حقل مستقل ، وشوف نتيجته Hour(Nz([FT1]))-Hour(Nz([FT2])) & ":" & Minute(Nz([FT1]))-Minute(Nz([FT2])) ونتيجة هاي Estime: IIf(IsNull([FT1]) Or IsNull([FT2]);"00:00";chr(34) & Hour(Nz([FT1]))-Hour(Nz([FT2])) & ":" & Minute(Nz([FT1]))-Minute(Nz([FT2]))) & chr(34) جعفر

شو الهدف؟ 1. بياناتك جداول ، 2. ثم تنقلها للورد!! هناك 3 طرق من تصدير التقرير والتي تحترم تنسيق التقرير ، acFormatHTML ,acFormatSNP, acFormatPDF : 1. acFormatHTML : صيغة HTML ، والتي يمكن للورد فتحها ، 2. acFormatSNP : وهي صورة ، ولا اعتقد ان الورد يستطيع فتحها ، 2. acFormatPDF : صيغة HTML ، والتي يمكن للورد 2013 فما فوق ان يفتحها ، هل ستقوم بتعديل البيانات بعد حفظها في الورد؟ جعفر

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

احذف الدالة كاملا ، هكذا: 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) جعفر