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

تقضل اخي الكريم ..هذه اعادة صياغة الكود (احذف الاكواد اللي عندك) Private Sub ComboBox1_Change() Dim Name As String Dim sh As Worksheet Dim myrange As Range Set sh = ThisWorkbook.Worksheets("sheet1") Name = Me.ComboBox1.Value Set myrange = sh.Columns(2).Find(Name, LookIn:=xlValues, lookat:=xlWhole) If Not myrange Is Nothing Then With myrange TextBox1.Value = .Offset(, 1) TextBox2.Value = .Offset(, 2) End With End If End Sub امل انه تم اصلاح كل مشاكلك .

الطريقة السليمة والملائمة هو ادراج كومبوبوكس واظهار فيه الاوراق ثم تختار الورقة وترحل اليها بدل من الليبل الذي خصوصا صمم لكتابة العناوين .

وعليكم السلام ورحمه الله وبركاته اتفضل تم تعديل حقل zday فالجدول لنص ليقبل اسم اليوم Me.Zday = Format(Me.Zdate, "dddd") بالتوفيق تاريخ.accdb

الفكرة ببساطة ..... هو فتح اي برنامج للفوتوشوب او البوربوينت مثلا واكتب ما تريد ثم اجعله مائلا بالدرجة التي تريد ثم احفظ كصورة ..... ثم ادرجها في برنامجك واجعلها في الخلفية أي خلف كل شيئ ... وفقط ... db1 (4).mdb

وماذا ستستفيذ من ذلك اذا كان الكومبوبوكس يقوم بذلك . لا ارى الا ان تصعيب الامور من عندك وبالتالي ان تسال عن شيء لا يشكل اي فرق في ذلك .

نعم أخي الكريم تم حل المشكلة بفضل جهودكم ..بارك الله فيكم ونفع بكم

هنا الاستاذ العزيز احمد قام بتعديل نوع الحقل الى نص والامور تمام طيب لو اردنا بقاء الحقل كماهو تاريخ وقت واظهار اليوم Me.Zday = [Zdate] ثم في خصائص الحقل zday تنسيق نضع dddd الملف مرفق تاريخ.accdb

اذا كانت البيانات من اكثر من جدول وهناك علاقة تم عملها مسبقا بين الجداول مثل راس الفاتورة واطراف الفاتورة فبمجرد اضافة الجدولين للاستعلام يكون الربط وفقا للعلاقة التي تم عملها سابقا. اذا اعتمدنا على طريقة فتح التقرير ثم التصدير ممكن جعل التقرير يفتح في وضع مخفي مثال هذه الطريقة ⬇️ Dim reportName As String Dim fileName As String Dim criteria As String Dim filepath As String reportName = "r_A" fileName = Me.NO & ".pdf" criteria = "[no]=" & Me.NO filepath = "d:\" DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, filepath & fileName DoCmd.Close acReport, reportName, acSaveNo في طريقة التصدير يمكن تصدير تقرير وممكن استعلام وممكن جدول وهنا لا يتم معاينة الكائن اثناء عملية التصدير مثال لتصدير استعلام لعرض السجل الحالي نضع المعيار الذي اشرنا اليه في الاستعلام ثم يكون الامر Dim k As String k = Me.NO & ".pdf" DoCmd.OutputTo acOutputQuery, "q_1", _ acFormatPDF, "d:\" & k فقط حددنا نوع الكائن المراد تصديره بانه استعلام طبعا تصدير التقرير افضل من تصدير استعلام لغرض التنسيق مع كل ماسبق اكسس يعطي خيارات متنوعة لعمليات التصدير وبدون الحاجة لكل ماسبق

كما اشرت لا يشترط فتح التقرير عند التصدير اتحدث هنا عن الطريقة الثانية التي اشرت اليها وهي وضع مصدر السجلات للتقرير استعلام بمعيار من النموذج الذي يحتوي على زر امر التصدير وممكن كتابة الكود على النحو التالي Dim k As String k = Me.NO & ".pdf" DoCmd.OutputTo acOutputReport, "r_A", _ acFormatPDF, "d:\" & k, True في اخر معلمَه في الامر وضعنا true وهنا بمجرد تصديره سيتم فتحه بواسطة البرنامج الافتراضي لملفات pdf واذا اردنا عدم فتح الملف الناتج فقط نحذف المعلمَه Dim k As String k = Me.NO & ".pdf" DoCmd.OutputTo acOutputReport, "r_A", _ acFormatPDF, "d:\" & k وممكن استخدام المعلمات التي اشرت اليها في ردي الاول مثلا تحديد ترميز نصي معين وايضا تحديد جودة الملف الناتج وهنا لدينا قيمتان acExportQualityPrint وقيمتها الافتراضية 0 وهي تساعد على تحسين اخراج الملف للطباعة وهي الافتراضية عند عدم اختيار هذه المعلمَه acExportQualityScreen وقيمتها الافتراضية 1 وهي تساعد على تحسين اخراج للملف للعرض على الشاشة كما يمكن تحديد مكان الحفظ مباشرة او بشكل يدوي وايضا ممكن تحديد الاماكن المطلوبة من خلال قائمة منسدلة الحديث يطول لما يمكن عمله ولكن خير الزاد مابلغك المحل تحياتي

وعليكم السلام ..جرب هذا كيفية نقل البيانات من العمود (الأعمدة) إلى الصف (الصفوف) أو العكس في Excel؟

الامر DoCmd.OutputTo له ثمانية معلمات او Parameters هذه المعلمات ليس منها ما يخص الفلترة وبالتالي لن نستطيع اضافة شرط الفلترة ضمن الامر نفسه ولكن هناك طرق للتحقيق المطلوب وسوف اتحدث عن طريقتين ولكن بشكل مختصر وضع الشرط في امر فتح التقرير كما في اجابتك التي اشرت اليها بانها الاجابة الافضل هنا ☝️ الشرط عن طريق متغير وبالتالي فهذه الطريقة لا تختلف عن طريقتك في بداية الموضوع واختيارك لها كافضل اجابة خيارك الشخصي ولكنه بالنسبة لمبرمج قديم امر غير منطقي الا اذا كنت تراجعت عن شرطك الاساسي الطريقة الثانية وبدون الحاجة الى امر فتح للتقرير عن طريق وضع مصدر السجلات للتقرير استعلام بمعيار رقم الفاتورة [forms]![kkk]![id] وبالتالي سيتم تصدير الفاتورة الحالية فقط وبدون الحاجة الى امر فتح التقرير اخيرا ما سبق وجهة نظر وليس الهدف النقد لاختياراتك تحياتي

السلام عليكم ورحمة الله اخى الكريم الكود يقوم بمسح البيانات حتى الصف رقم 49 ..سيتم رفع الملف بعد التعديلات لصعوبة تطبيقها بنفسك قوائم.xlsm

وعليكم السلام 🙂 تفضل: . وهذا يحدث بهذا الكود: Private Sub Form_Current() Dim rst As DAO.Recordset Dim strFile As String Set rst = Me.tabl2.Form.RecordsetClone rst.MoveFirst Me.lst_Files.RowSource = "" Do Until rst.EOF Debug.Print rst!noid Me.lst_Files.AddItem ">" & rst!noid 'Now lets find how many files we have strFile = Dir(Application.CurrentProject.Path & "\Datapdfx\*" & rst!noid & "*.pdf") Do Until strFile = "" Debug.Print strFile Me.lst_Files.AddItem strFile strFile = Dir() Loop Me.lst_Files.AddItem "" rst.MoveNext Loop End Sub Private Sub lst_Files_DblClick(Cancel As Integer) Dim pdfPath As String If Left(Me.lst_Files, 1) = ">" Then Exit Sub pdfPath = CurrentProject.Path & "\Datapdfx\" & Me.lst_Files Shell "explorer.exe " & pdfPath, vbNormalFocus End Sub جعفر dataPdf.zip

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي بعد تحميل الملف المضغوط سوف تجد مجلد باسم DATA C قم بنسخه الى القرص ثم افتح ملف سجل القيد وقم باستدعاء البيانات عادي الكود المستخدم Sub MH_data() Application.ScreenUpdating = False Set currentworkbook = ThisWorkbook Set sourceworkbook = Workbooks.Open("C:\DATA\Sheet1.xlsx") sourceworkbook.Worksheets("Sheet1").Range("a2:d500").Copy currentworkbook.Activate currentworkbook.Worksheets("Sheet1").Activate lastcell = Cells(Rows.Count, 2).End(xlUp).Row + 1 currentworkbook.Worksheets("Sheet1").Cells(lastcell, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False sourceworkbook.Close Set sourceworkbook = Nothing Set currentworkbook = Nothing ThisWorkbook.Activate Worksheets("Sheet1").Activate Worksheets("Sheet1").Range("A4").Select Application.ScreenUpdating = True End Sub ملاحظة: يمكنك تغيير مسار الملف من هنا في حالة عدم توفر جهازك على قرص باسم C Set sourceworkbook = Workbooks.Open("C:\DATA\Sheet1.xlsx") سجل القيد_MH.rar

وعليكم السلام جرب الان و وافينا بالنتيجة بالتوفيق Database1 .accdb

السلام عليكم عارف انه موضوع قديم ولكن يوجد معادلة بسيطة بدون Macro =TEXT(EOMONTH(A1;0);"dd") الدالة EOMONTH: لايجاد اخر يوم في الشهر لاي تاريخ الدالة TEXT: بالتنسيق dd : لايجاد اليوم الاخير بالشهر تقبلوا تحياتي 🙂 ايجاد عدد ايام الشهر.rar

تمام أخي بن علية لم أنتبه لأني في الإكسل كثيراُ ما نستخدم null في الأكسس ولأن المتغير من نوع integer فإذا كان فارغاً تكون قيمته صفر فتصبح الدالة Function MonthDays(myMonth As Integer, Optional myYear As Integer) As Integer MonthDays = Day(DateSerial(IIf(myYear =0, Year(Date), myYear), myMonth + 1, 0)) End Function والسلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله أخي الكريم، لحساب عدد أيام شهر معين في سنة معينة يمكن استعمال المعادلة التالية: =DATE(C1;C2+1;0)-DATE(C1;C2;0) حيث الخلية C1 تحوي السنة (مثال 2011) والخلية C2 تحوي رقم الشهر (مثال 8) أخوك بن علية