jjafferr

أخي عزيز مثلما قال الاستاذ رمهان: فمثلما لاحظت ، تم حل مشكلة الاخ وائل ، بعد ان ارفق برنامجه واخبرنا وين المشكلة ، واتضح انه اصلا ليس بحاجة لكوده. جعفر

وعليكم السلام أخي انا عملت تغيير بسيط في المرفق ، واضفت سجل لموقع آخر ، باسم آخر ، وطلعت النتائج تمام في الصورة اللي ارفقتها بمشاركتك الاخيرة ، انت لا تشير (بالسهم الاحمر) الى حقل الموقع ، وانما تشير الى حقل الوظيفة/المهنة ، بينما المطلوب عمله هو صفحة مستقلة بالتاريخ والموقع جعفر 227.Human Resources DataBase.mdb.zip

وعليكم السلام تم عمل تغيير شامل على برنامجك . اعذرني عن هذه الجزئية ، فانا متخصص في البرمجة والكود وهناك من الشباب في المنتدى تخصصهم الصلاحيات جعفر 224.اصدار التراخيص.mdb.zip

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

وعليكم السلام أخوي عطني شوية وقت ، انا حاليا اشتغل على برنامجك جعفر

حياك الله اخوي وائل الاخ عزيز صاحب الموضوع وينك ، ماسمعنا منك جعفر

لما تكون دقيق في تحديد المشكلة ، تلقانا زي الفريره (على قولة مرسي الزيناتي في مدرسة المشاغبين) اضفت الاسطر التالية: Me.F_ordersubform.SetFocus DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acLast Me.F_ordersubform!Qty.SetFocus في نهاية الوحدة Sub mm(xx) الفكرة هي انك تحفظ السجل بعد كل عملية اضافة/تعديل جعفر 222.KFC.mdb.zip

السلام عليكم أخي محمد للأسف لا يمكن عمل هذا بالاكسس والظاهر ان الاستاذ رمهان سبقني في الاجابة المختصرة واليك الاجابة المفصلة لعمل الحيلة: بس انا افضل النموذج frm_Option_Group والكود حقه: Private Sub Frame10_Click() If Me.Frame10.Value = 1 Then Me.Page1.SetFocus ElseIf Me.Frame10.Value = 2 Then Me.Page2.SetFocus ElseIf Me.Frame10.Value = 3 Then Me.Page3.SetFocus End If End Sub جعفر 228.RTL_Tabs.mdb.zip

واخيرا قدرت اسبقك ، بدقيقة ، حدث تاريخي مهم جعفر

تفضل أخي الكريم رجاء متابعة الكود ، للزر "ترحيل الايام" : رسالة التاكد على انك بالفعل تريد المواصلة ، إضافة اليوم الى الجدول tbl_Available_Days (هذا شئ مؤقت ، الى ان تستخدم انت اسم جدولك) ، تغيير "تم التعويض" الى صح ، عمل سجل جديد وادخال الساعات والدقائق المتبقية اليه ، وسيكون آخر سجل في القائمة Private Sub cmd_Append_Click() '1 'التأكيد على مواصلة العمل Dim Msg, Style, Title, Response Msg = "هل انت متأكد من المواصلة" & vbCrLf & _ "Are you sure you want to continue ?" ' Define message. Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons. Title = "رجاء التأكيد" ' Define title. Response = MsgBox(Msg, Style, Title) If Response = vbNo Then ' User chose Yes. Exit Sub End If 'Ok, lets start Dim rst As DAO.Recordset '2 'add the Days to tbl_Available_Days 'only append if we have days If Val(Me.d) > 0 Then Set rst = CurrentDb.OpenRecordset("Select * From tbl_Available_Days") rst.AddNew rst!Available_Days = Val(d) rst!Pcdigit = Me.Pcdigit rst!iDate = Now rst.Update End If '3 h1 = Me.h m1 = Me.m 'set off to -1 Set rst = Me.tlb_taq_Sub.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!off = 0 Then rst.Edit rst!off = -1 rst.Update End If rst.MoveNext Next i '4 'make a new Record, and copy h:m to it 'only append if h or m are not Zero If Val(h1) > 0 Or Val(m1) > 0 Then rst.AddNew rst!Pcdigit = Me.Pcdigit rst!Tdate = Date rst!off = 0 rst!timeadd2 = h1 & ":" & m1 rst.Update End If 'refresh the totals Form_tlb_taq_Sub.off_AfterUpdate Exit Sub err_off_AfterUpdate: If Err.Number = 3021 Then 'ignor, no records 'Resume Next Exit Sub Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 226.Edf.mdb.zip

وعليكم السلام أخي محمد اعمل صورة من البرنامج ، واخبرني كيف تريده يصير آسف ما فهمت المصطلحات جعفر

وعليكم السلام طيب ، اللي فهمته هو: عمل زر على النموذج الرئيسي ، يأشر "تم التعويض" للسجلات اللي مافيها "تم التعويض" ، عمل سجل جديد بتاريخ اليوم ، فيه المتبقى من الساعات والدقائق. سؤالي: هل تريد تطبع تقرير عن عدد الايام قبل ان نؤشر على "تم التعويض"؟ لانه اذا لم نحتفظ او نطبع هذه الايام ، فلن تستطيع معرفة الايام مرة اخرى ، لأن كل السجلات ستكون "تم تعويضها"!! جعفر

وعليكم السلام . هل مخترفى الاكسس على وزن المخرفين الاجابة بالصور من التقرير: لا يوجد عندك تذييل لقسم sit: . فعملنا التذييل ، وغيرنا في اعداداته: . والنتيجة: جعفر 227.Human Resources DataBase.mdb.zip

وعليكم السلام الاجمالي كان يتغير اول من تُدخل العدد في خانة العدد او تغير العدد ، وبما اني لا اعرف برنامجك ، فلم الاحظ اشارة الزيادة والنقصان (واعتقد بانك جربتها ولم يتغير الاجمالي) ، لذا ، غيرت في الكود ليشمل هذين الزرين كذلك رجاء تجربة المرفق الان ، واذا في مشكلة ، رجاء تخبرني بالضبط ماذا فعلت وماهي المشكلة جعفر 222.KFC.mdb.zip

وعليكم السلام أخي الكريم وحيا الله أخوي رمهان . وانت وجميع المسلمين المتمسكين بحبل الله بخير إن شاء الله انا لم انتبه لهذه الملاحظة هناك عدة طرق لحل هذه الاشكالية ، ولكني أرتأيت ان احل الموضوع من اصله ، من نوع الحقل في الجدول. نوع الحقل في الجدول هو تاريخ ، لذلك 00:25 معناه 25 دقيقة بعد منتصف الليل ، اي 12:25 ، لذلك ، قمت بتغيير نوع الحقل في الجدول الى نص ، حيث انه يحتفظ بالمطلوب ، وبدون ان يضيف على البيانات اية معلومات اخرى (مثل12 ، و AM ، والثواني) ، ولعمل هذا ، قمت بعمل حقل اضافي اسميته timeadd2 ، وضبطت كل شئ على اساسه (الان يمكنك ان تحذف الحقل timeadd من الجدول). والان عندما تغير من اسم/سجل الى آخر ، ستجد المجاميع محسوبة وجاهزة وحياك الله جعفر 226.Edf.mdb.zip

تفضل يا سيدي الكريم وضعت الكود على الحدث "بعد التحديث" الحقل "تم التعويض" ، وهذا هو الكود: Private Sub off_AfterUpdate() On Error GoTo err_off_AfterUpdate Dim rst As DAO.Recordset Dim x() As String Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'save the last edited record DoCmd.RunCommand acCmdSaveRecord For i = 1 To RC If rst!off = 0 Then 'split the time into hours and minutes x = Split(rst!timeadd, ":") h = h + Val(x(0)) 'add the hours m = m + Val(x(1)) 'add the minutes End If rst.MoveNext Next i '1day = 7 hours = ? minutes d1 = 7 * 60 'convert everything to minutes m = m + (h * 60) 'Debug.Print "m=" & m d = Int(m / d1) h = Int((m - (d * 7 * 60)) / 60) m = m - (d * 7 * 60) - (h * 60) 'Debug.Print d & vbTab & h & vbTab & m Me.Parent.d = d Me.Parent.h = h Me.Parent.m = m Exit Sub err_off_AfterUpdate: If Err.Number = 3021 Then 'ignor, no records 'Resume Next Exit Sub Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 226.Edf.mdb.zip

هل ممكن ان ترفق التقرير لوسمحت!! جعفر

موجودة وانت الصادق ، ولكن استعمل acViewPreview بدل عن acPreview جعفر

انا اعطيتك طريقتين ، فهل جربت كل طريقة على حدة ؟

بس لوسمحت النقر في حقل النص ، لكنا نستطيع ان نعرف اين النقر عن طريق SelStart ، وبعدها نواصل المسير جعفر

وعليكم السلام الظاهر ان نموذج تسجيل الدخول او النموذج الذي المفروض يفتح بعده ، معطوب حاول استخدام الضغط والاصلاح ، واذا لم ينفع ، فاعمل النموذجين من الصفر (لا تنسخ اي كائن ، فلا نعرف اي منهم المعطوب) جعفر

حيا الله أخوي رمهان ، ومحاولة حلوة وحياك الله أخوي led بس حاولت ان اغيّر/اكتب حرف بين الكلمات ، فلم استطع!! هذا معناه ، ان طريقة الاستاذ رمهان جيدة فقط للكتابة المستمرة جعفر

تفضل مثالك المعدّل 222.KFC.mdb.zip

وعليكم السلام أخي حسين استخدم هذا الكود في الحدث "بعد التحديث": Private Sub cmb_Items_AfterUpdate() 'method ONE: 'to use this moethod, you have to select: 'Tools > References > Microsoft Excel xx.x Object Library ' Dim objXL As New Excel.Application ' objXL.Application.Speech.Speak Me.cmb_Items ' Set objXL = Nothing 'methos TWO: 'SAPI commands: https://msdn.microsoft.com/en-us/library/ms723627(v=vs.85) Dim objSpeech As Object Dim intPitch As Integer Set objSpeech = CreateObject("SAPI.SpVoice") intPitch = 2 objSpeech.Speak "<pitch middle = '" & intPitch & "'/>" & Me.cmb_Items Set objSpeech = Nothing End Sub جعفر 223.textTOspeech.mdb.zip