jjafferr

بالضبط اخي شفان ، هذه الطريقة اللي اقترحها انا كذلك ، ولك السبق فيها الطريقة هي ان تسمي كل ليبل بمسمى الحقل الذي يرافقه ، هكذا الحقل: m5 الليبل: lbl_m5 فاذا عملنا هذا ، فيمكن استخدام هذا الكود المختصر on error resume next Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl) Then ctl.Visible = False Me("lbl_" & ctl.Name).Visible = False Else ctl.Visible = True End If 'IsNull End If 'ControlType Next ctl جعفر

السلام عليكم هل هذا الكود سيحل المشكلة؟ Private Sub Report_Load() Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl) Then ctl.Visible = False If ctl.Name = "m7" Then Me.Label4.Visible = False If ctl.Name = "m8" Then Me.Label5.Visible = False If ctl.Name = "m9" Then Me.Label6.Visible = False Else ctl.Visible = True End If 'IsNull End If 'ControlType Next ctl End Sub . جعفر

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

وعليكم السلام هنا ننادي الوحدة النمطية ، ونرسل لها القيمة من الحقل . والنتيجة . وهذه هي الوحدة النمطية Function Grading(G) 'G = Grade sent from the Query If G >= 89.5 Then Grading = "ممتاز" ElseIf G >= 79.5 Then Grading = "جيدجدا" ElseIf G >= 69.5 Then Grading = "جيد" ElseIf G >= 59.5 Then Grading = "متوسط" ElseIf G >= 49.5 Then Grading = "مقبول" ElseIf G >= 0 Then Grading = "ضعيف" End If End Function جعفر 544.Evaluation.accdb.zip

وعليكم السلام تفضل Me.SubForm_Name.SetFocus Me.SubForm_Name!item_barcode.Enabled = Not Me.SubForm_Name!item_barcode.Enabled جعفر الزر يفعّل ، ثم يزيل التفعيل ، وهكذا

وتوضيحا لكود أخوي أبوخليل: ولمعرفة الرقم البرمجي (ascii) للزر f10 ، اطلب من الكود ان يخبرك بالرقم ، هكذا: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) msgbox KeyCode 'If KeyCode = 27 Then ' DoCmd.Close 'End If End Sub فعندما تضغط على الزر f10 ، سترى نافذة فيها الرقم ، ولما تعرف الرقم ، استيدله بالرقم 27 (الذي في كود اخوي ابوخليل) ، وافعل ما تشاء جعفر

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

وعليكم السلام ماشاء الله عليك ، اشوفك مستعجل !! طريقتين: 1. لا تضع الشروط على نفس السطر ، ولاحظ تنسيق التاريخ: . والنتيجة: . . 2- ايش رايك في طريقة تبحث فيها في كل الحقول مرة واحدة (ولكنه ابطأ بعض الشئ ، والسبب ان هذا الحقل لن يكون مفهرس): نضيف كل الحقول مع بعض في حقل واحد (لاحظ تنسيق التاريخ) ، ونضع مسافة بين اسماء الحقول: . ثم نضع شرط واحد فقط: . والنتيجة: . جعفر 543.Emp_Data.mdb.zip

شكرا جعفر

مثلا: - سؤال واحد في كل موضوع ، - ولا يجوز استعمالك موضوع لشخص غيرك ، وتسأل فيه سؤال غير الموضوع (وبعض الاوقات لا يجوز ان تأسأل وصاحب السؤال لا يجد اجابته) ، وهذا الذي نفعله الآن جعفر

حياك الله ، وتفضل إسأل ، وان شاء الله يكون عندي الجواب ، ولكن لا تضع سؤالك في هذا الموضوع جعفر

السلام عليكم اخي شفان ايش رايك بهذه الطريقة: جعفر

تفضل يا سيدي Private Sub cmd_Show_PDF_Click() On Error GoTo err_cmd_Show_PDF_Click dim PDF_Name_Path As String PDF_Name_Path = GetWinTemp & "\ImitatePDFPrintingLikeInOracleButFromMsAccess.pdf" Debug.Print PDF_Name_Path 'delete the old file Kill PDF_Name_Path DoCmd.OutputTo acOutputReport, "REEport", acFormatPDF, PDF_Name_Path ' PauseTime = 1 ' Set duration. ' Start = Timer ' Set start time. ' Do While Timer < Start + PauseTime ' DoEvents ' Yield to other processes. ' Loop Application.FollowHyperlink PDF_Name_Path Exit Sub err_cmd_Show_PDF_Click: If Err.Number = 53 Then 'file does not exist Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

السلام عليكم اللي فهمته هو: تعمل البحث في النموذج AS_nataeg_tolap ، ثم تضغط على زر المعاينه ، ونتيجة ، وتريد التقرير يكون فيه كل شئ موجود في النموذج الفرعي (الاستعلام NF_nataeg_tolap ) ، صح ؟ جعفر

هل جربت العمل بهذه الطريقة والتي تكون تلقائيا بكبسة زر واحدة جعفر

وعليكم السلام اللي ممكن نعمله هو: 1. تصدير/طبع التقرير بصيغة pdf : DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, "Your\Desired\Filepath.pdf" 2. ولكن ارسله الى الملف المؤقت للوندوز Temp ، انظر في الكود بعد هذه الجملة في هذا الرابط: 3. ثم تستطيع فتحه بطريقة الكود الاخير في نفس الرابط السابق ، ببالبرنامج الافتراضي في الوندوز لفتح ملفات pdf ، او تستطيع فتحه في الاكسس كما في الرابط التالي (انظر في يسار الصورة الاولى): جعفر

السلام عليكم هل الجداول ثابتة والبيانات اللي تتغير ، يعني اذا عملنا قالب وورد وعملنا فيه جدول فاضي ، ومن الاكسس تتم تعبئته!! اذا كان الجواب نعم ، فيمكن تعبئة الوورد عن طريق الامر Bookmark في الوورد ارفق لي صورة من الجداول اشوفها جعفر

الحمدلله وحياك الله جعفر

نعم ، احذف المائه: الدقائق =((([AccessTotalsminute] / 60) - Int([AccessTotalsminute] / 60)) * 60) جعفر

ولا يهمك ، وحياك الله جعفر

والآن نستطيع ان نجعل حقل المجموع Text34 : =[AccessTotalshour] + Int([AccessTotalsminute] / 60) + ((([AccessTotalsminute] / 60) - Int([AccessTotalsminute] / 60)) * 60) / 100 . بالنسبة لمجموع الساعات والدقائق: الساعات =[AccessTotalshour] + Int([AccessTotalsminute] / 60) الدقائق =((([AccessTotalsminute] / 60) - Int([AccessTotalsminute] / 60)) * 60) / 100

الحمدلله ووالديك ان شاء الله جعفر