نجوم المشاركات

السلام عليكم ورحمة الله وبركاته تحية طيبة مباركة اساتذتى الكرام واخوانى واحبتى فى الله انقطعت عن المنتدى فترة وادخل متقطعا لظروف عملى ولكن ابحث عند دخولى عن احبابى فى الله واساتذتى الكرام ولكن لا ارهم الاستاذ الجليل والمعلم القدير الاستاذ @jjafferr الاستاذ الجليل والمعلم القدير الاستاذ @رمهان الاستاذ الجليل والمعلم القدير الاستاذ @أبا عمر اسال الله تعالى ان لا يحرمنا جمعهم الطيب وأن لا يكونوا فى كرب وأتنمى على الله تعالى متضرعا له عجزوجل أن يهئ لهم من امرهم رشدا ويردهم الينا سالمين اللهم انى اشهدك واشهد حملة عرشك ان احبهم فيك ولوجهك فاللهم اجمهنى بهم على الخير يارب العالمين اللهم اغفر لهم ولابائهم ووالدى وكل المسلمين يارب العالمين اللهم امين امين امين واتمنى على الله تعالى ان يكون هناك من يكون على تواصل معهم فيمن علينا بالخير ويخبرنا حالهم فكم اشتاقت نفسى للقياهم

استاذ محمد النجار اشكر مشارركتك وتعاونك وجزاك الله كل خير كل احترام وتقدير لك شخصياً وللاستاذ ابو ياسين وللقائمين على هذا المنتدى

:: تفضل ............. مكتب الاندلس (1) (1)up.rar

السلام عليكم قم بوضع مسار الذي يتم حفظ الملفات بين الاقواس الملونة بالكود ادناه Sub PDFActiveSheet() Dim ws As Worksheet Dim strPath As String Dim myFile As Variant Dim strFile As String On Error GoTo errHandler Set ws = ActiveSheet strTime = Format(Now(), "yyyy-mm-dd") strFile = "E:\access\dox" & "\" & ws.Name & "_" & strTime & ".PDF" ws.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=strFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False, _ From:=1, _ To:=2 exitHandler: Exit Sub errHandler: MsgBox "Could not create PDF file" Resume exitHandler End Sub

كل التقدير للاخ ابو ياسين .. :: اعتقد هناك مشكلة في تحميل وفتح الملف ؟! :: عموما يمكن جعل مصدر التحكم لمرع النص : =Nz(IIf([CR]-[DR]<0;"دائن";"مدين");0)

الفكرة ممتازة جدا استاذ رمهان هل يمكن ان يكون اسم الحقل الناقص الذي يظهر بالرسالة بالاسم التوضيحي وليس الاسم الحقيقي بالجدول وهل العدد من 1 : 50 هو لعدد الحقول الموجودة ام ماذا

مكتب الاندلس (1).accdb

لا حرمنا الله من هذا الود في الله وأعاد الله الغائيبين سالمين غانمين فهذا المنتدى بداية انطلاق لكل من يدخله يتعلم فيعمل فيعلم غيره

اشكرك استاذي رمهان عمل رهيب الله يجزيك الخير وحصل الكطلوب ولاكن استاذي في رسالة التحذير كيف يمكن اظهار اسم الحق الفارغ بالعربي وليس اسم الحقل الموجود في الجدول مثلا ( لقد تركت اسم الرسالة فارغ في المعرف رقم 50) *وما المقصود بالفكرة البدائية والشكر موصول لك خاصة وللاخوة المشرفين عامة عفوا استاذي وهل يمكن التحكم بحقول محددة وليس تعبئة كل الحقول

هذه فكرة بدائية Private Sub أمر196_Click() Me.rasael_custmer.SetFocus For i = 1 To 50 If IsNull(Screen.ActiveControl) Then x = MsgBox(Screen.ActiveControl.Name, , Me.rasael_custmer!IDr): Exit For: Me.أمر196.SetFocus SendKeys "{tab}" DoEvents Next End Sub بالتوفيق