jjafferr

شكرا جعفر

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

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

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

تفضل يا سيدي 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

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

وعليكم السلام طبعا ، اتبع الخطوات وغيُر الى اسم برنامجك جعفر

الخطأ بسبب انك ما غيرت مسار ملف الاكسل الى المسار الصحيح ، بل ظل المسار القديم في الكود الحل: بدل هذا السطر Set wbexcel = appexcel.Workbooks.Open(Application.CurrentProject.Path & "\536.To.xlsx") استعمل Set wbexcel = appexcel.Workbooks.Open("C:\Users\abdullah\Desktop\ABD.xlsx") . ورجاء لا تستخدم الحروف الكبيرة في الكتابة في المنتدى ، فالبعض يعتبرها كانك تتكلم بصوت عال جعفر

انا اعتذر منك ، وحسابي لتحويل الوقت من دقائق كان خطأ جرب هذه الوحدة النمطية: Function Convert_HM(H, M) m1 = M / 60 b = m1 - Int(m1) H = H + Int(M / 60) Convert_HM = H + (b * 60) / 100 End Function جعفر

اين يوجد ملف الاكسل ، وما مساره؟ وما هي رسالة الخطأ التي ظهرت لك؟

كيف؟ 118 / 60 = 1.966 !!

رجاء تجربه على بقية الاجهزة ، القديمة والجديدة ، واخبرنا عن النتيجة جعفر

حياالله أخوي وائل ما فهمت شو اللي تريده ، وكيف تريده جعفر

حياك الله

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

تفضل يا سيدي: Private Sub cmdScan_Click() Dim Ret As Long, PictureFile As String PictureFile = mypathofdb() & "\PIC\" & "pic" & Me.ImageID & ".jpg" 'Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile) Ret = TransferWithoutUI(300, RGB, 0, 0, 8.3, 11.7, PictureFile) If Ret = 0 Then Me.ImagePath = PictureFile Me![ImageFrame].Picture = Me![ImagePath] Else MsgBox "فشلت عملية المسح الضوئي", vbCritical, "تحذير" End If End Sub Private Sub cmdSelect_Click() 'TWAIN_SelectImageSource (Me.hwnd) PopupSelectSourceDialog End Sub . جعفر za-EMP.zip