jjafferr

تفضل يا سيدي الكريم وضعت الكود على الحدث "بعد التحديث" الحقل "تم التعويض" ، وهذا هو الكود: 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

السلام عليكم أخي وائل انت ما محتاج حدث التوقيت ، فرجاء عمل التالي لحل مشكلتك: اطفئ حدث التوقيت ، استعمل الكود التالي ، والذي يحفظ السجل بمجرد انك تٌدخل قيمة في حقل الصنف والكمية (للعلم ، Me.Refresh يعمل نفس الشئ) ، وعليه ، سترى ان المجاميع تغيرت على طول: Private Sub itemcode_AfterUpdate() price = item_sale If Len(Me.Qty & "") <> 0 Then DoCmd.RunCommand acCmdSaveRecord End Sub Private Sub Qty_AfterUpdate() If Len(Me.itemcode & "") <> 0 Then DoCmd.RunCommand acCmdSaveRecord End Sub جعفر

السلام عليكم استاذ علي اعتذر عن التأخير ، ولكن العمل اخذ كل هذا الوقت استخدم هذا النموذج: ثم استخدم التقرير التالي (لم اقم بربط التقرير برمجيا مع اي زر): وعليك ان تعمل التنسيق الشرطي لبقية حقول الشهر (انسخ التنسيق الشرطي من الحقل 1 الى بقية الحقول 8 الى 31 ، مع مراعاة تغيير اسم الحقل). الشئ المهم هو ان المرفق 221.Folow up V.2.accdb.zip يجب تغيير صيغة الملف الى 7z (الموقع لا يقبل ارفاق هذه الصيغة) ، وذلك لأن هذه الصغيه هي الوحيدة التي استطعت من خلالها ضغط قاعدة البيانات لرفعها على الموقع ، واذا لم تملك البرنامج لفك هذه الصيغة ، فيمكنك انزاله مجانا من الموقع www.7-zip.org . العمل اعتمد على الاستعلامات: Absents ، Absents_Crosstab_1-2 ، وتم عمل التقرير على اساس الاستعلام Absents_Crosstab_2-2 جعفر 221.Folow up V.2.accdb.zip واستعمل الطريقة في الرابط التالي ، لتستبدل علامة الصح (لأيام الغياب) بدلا عن الرقم 1: http://allenbrowne.com/ser-52.html

وعليكم السلام أخي حسين تفضل الرابط http://www.officena.net/ib/topic/59612-سؤال-عن-اخفاء-الجداول/?do=findComment&comment=382261 جعفر

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

وعليكم السلام عفوا ، شو قصدك من مؤشر النص؟ جعفر

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

وعليكم السلام ملاحظاتي السابقة ، والتعديلات التي عملتها في النموذج الفرعي ، تنطبق على كون النموذج ورقة بيانات او نموذج مستمر اما اذا كان قصدك انك تريد تغيير النموذج frm_INV100_Unite الى ورقة بيانات ، فنعرف انك لا تستطيع ان تعمل ازرار فيها ، فيمكنك عمل التالي: انسخ كود حدث الزر ok ، عمل حدث "النقر المزدوج" او النقرة الواحدة لأي حقل من الحقول ، ثم الصاق الكود فيها (انا افضل ان تخفي بقية الحقول التي لا تحتاجها في النموذج ، وتعمل حدث النقر المزدوج على الحقول الظاهرة). اما اذا لم افهم قصدك ، فرجاء ان تشرح بإسهاب حتى افهم جعفر

وعليكم السلام كما قال الاخ نور الدين: DoCmd.RunCommand acCmdSaveRecord For i = 1 To 2 اذا كان حقل التعريف ، مثلا ID ، اذا كان رقم: DoCmd.OpenReport "Report Name", , , "myID=" & Me.id اما اذا كان حقل التعريق نص : DoCmd.OpenReport "Report Name", , , "myID='" & Me.id & "'" Next i او اذا كان حقل التعريف ، مثلا ID ، اذا كان رقم: DoCmd.OpenReport "Report Name", acViewPreview, , "myID=" & Me.id, acHidden اما اذا كان حقل التعريق نص : DoCmd.OpenReport "Report Name", acViewPreview, , "myID='" & Me.id & "'", acHidden DoCmd.PrintOut , , , , 2 DoCmd.close acReport, "Report Name" جعفر

وعليكم السلام أخي للأسف ، هذه مشكلة في الاكسس ، في النموذج المستمر ، عندما يأخذ مربع السرد والتحرير قيمته استنادا على حقل آخر الحل هو: اعمل نسخة من SQL استعلام مربع سرد وتحرير حقل الوحدة ، اعمل استعلام جديد ، انا اسميته qry_INV100_Unite ، اعمل النموذج المستمر frm_INV100_Unite ، اللي يأخذ بياناته من الاستعلام qry_INV100_Unite ، في النموذج الفرعي INV100 ، احذف المعيار من حقل الوحدة ، في الحدث "بعد التحديث" للحقل "رمز المادة" ، افتح النموذج frm_INV100_Unite (والذي سيكون مصفى حسب "رمز المادة" ، اضغط على زر Ok للمادة التي تريدها ، وسترى ان القيمة انتقلت لحقل الوحدة في النموذج الفرعي INV100 ، وسيغلق النموذج frm_INV100_Unite سهله هه جعفر 220.البرنامج.accdb.zip

وعليكم السلام أستاذ علي يمكن "تقريبا" عمل كل شئ في الاكسس بس لوسمحت: ارفق قاعدة بيانات فيها بيانات ، واعمل لي سواء بالاكسل او الوورد او بصورة ، النتيجة النهائية اللي تريدها جعفر

السلام عليكم اخي هاني مثل ما تفضل وقال أخي أبوخليل ، وهذا دليل على مقولته: جعفر

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

السلام عليكم الاستاذ علي انا اعتذر منك ، فلم ارى مرفقك إلا الآن والسبب اني لم اره ، هو انك عدلت في مشاركتك ووضعت فيه المرفق ، بعد مشاركتي !!! على كل حال ، فتح واكتشاف كائنات برنامجك كان تحديا اكثر من الحل نفسه في مشاركتي الاخيرة قلت: . وبالفعل هي مشكلة برنامجك !! عندك 42 نموذج ، بهم صورة او اثنتين ، و 23 تقرير ، بهم صورة او اثنتين . . صحيح انك في بعض النماذج والتقارير كنت كاتب الكود الصحيح لربط الصور ، ولكن للأسف ، الصور اصلا كانت مضمنة وليست مرتبطة. غير طريقة عرض الصور من Embedded او Shared الى Linked ، واضغط واصلح البرنامج ، وان شاء الله البرنامج يصغر حجمه جعفر

تفضل ياسيدي نفس النموذج السابق ، وبه خاصية البحث عن ولي امر: . وكما اخبرتك في مشاركتي السابقة: . وهذا نموذج آخر لهذه الطريقة: . جعفر 110.Aziz (2).accdb.zip

عليكم السلام نعم يمكن انظر الرابط التالي والذي بالانجليزي http://www.databasedev.co.uk/report_printing.html الكود اعلاه بسيط ولصفحة واحدة ، واذا اردت عدد غير متساوي ومختلف من صفحة الى اخرى ، فيجب ان تكتب الكود له ، او تعمل جدول تكتب امام حقل رقم الصفحة ، في حقل عدد السجلات لتلك الصفحة جعفر