User user

اشكرك على تعبك اخى الكريم @د.كاف يار محتاج عند فتح الفورم يظهر الملفات المرتبطة برقم العميل الموجوده فى مسار محدد على برتيشن فى الهارد ويظهر الناتج فى Listbox

لدي مثلا عميل رقم الID الخاصة به 1000 وكل التقارير الخاصة به تحمل الID محتاج يظهر ملفات العميل ده فقط فى Listbox وفقا لId الموجود له فى الفورم الخاصة بالارسال ارجوا ان تكون الامور واضحه

لدى فولدر موجود فى برتيشن على الجهاز محتاج اعرض الملفات الموجود فيه فى ليست بوكس بشرط كود العميل لارسالها فى رسالة ايميل كمثال التالى 13-10-2021 - اسم العميل - رقم العميل D:\ED\Reports\1000 وهذا كود لـــ @د.كاف يار بيعرض المسار فى رسالة Dim fso As Object Dim oFSO As Object Dim oFolder As Object Dim oFile As Object Dim i As Integer Dim FilePath As String Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder("مسار المجلد") For Each oFile In oFolder.Files FilePath = FilePath & vbNewLine & oFile.Name Next oFile MsgBox FilePath

للاسف لم تفلح الطريقه الترتيب بيظهر غير اللى المحدد فى الفورم لاحظ الصور

المفروض التقرير بيجمع بحقل Group وبيفرز بحقل No للاسف مش بيعمل كده بيظهر الترتيب متلغبط test1.rar

ازاى نغير الشعار ده

@د.كاف يار

من فضلكم محتاج اعمل تقرير بنفس طريقه التقرير دى وهو خاص بزيارات المرضى السابقة لاحظ الفيديو عن الضغط على اسم التست يضاف فى الجدول فى الحقل المسمى ب column بترتيب الاختيار ويظهر كل تواريخ الزيارات السابقه والنتائج الخاصه بها مثلا صورة التقرير المرفق صورته Video 2021-11-27 at 8.21.54 AM (1).rar

للاسف تظهر كما هى فى ويندوز 8 الى ما فوق ذلك

يكمل عادى من غير مايحذف مثلا لو جدول asrt_tbl موجود يتجاهله ويكمل الباقى عادى

لو جدول من الجداول المكتوبه فى الكود موجودة فى قاعدة البيانات بتظهر الخطا ده ازاى نخليه يتجاهل الموجود بنفس الاسم ويضيف الباقى

اشكرك على تعبك @د.كاف يار من فضلك لو المستخدم له فترة راحه كيف نحسب الفرق بين الحضور والانصراف والراحه والحضور مره اخر والانصراف مثلا لدينا موظف هيحضر الساعه 8 ص الى 2 م وهياخد راحه من 2 الى 4م وهيحضر من 4 م وهينصرف 8 م ارجوا ان تكون وضح المقصود

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

محتاج كود لتحكم فى لون وحجم ونوع الخط من خلال المستخدم من خلال نموذج بحيث اتحكم فى كل عنصر بشكل منفصل عن الاخر مثلا لو لدى Test 1 ده مثلا لونه احمر ونوع الخط تيم نيو وبولد Test 2 ده مثلا لونه ازرق ونوع الخط كايرو وبولد Test 3 ده مثلا لونه اخضر ونوع الخط تهوما وبولد Test 4 ده مثلا لونه اصفر ونوع الخط اريل وبولد وهكذا ارجوا انت تكون وصل المطلوب وهذا كود لاستاذنا الفاضل @jjafferr من فضلك لو تتكرم وتبلغنا ننفذ المطلوب كيف ؟ Function Convert_img_Embed_to_Link() Dim frm As AccessObject Dim rpt As AccessObject Dim dbs As Object Dim frm1 As Access.Form Dim rpt1 As Access.Report Dim ctl As Access.Control Set dbs = Application.CurrentProject For Each frm In dbs.AllForms DoCmd.OpenForm frm.Name, acDesign Set frm1 = Forms(frm.Name) For Each ctl In frm1.Controls If ctl.ControlType = acComboBox Or _ ctl.ControlType = acCommandButton Or _ ctl.ControlType = acLabel Or _ ctl.ControlType = acListBox Or _ ctl.ControlType = acOptionButton Or _ ctl.ControlType = acTextBox Then Debug.Print frm.Name & " > " & ctl.ControlType & " > " & ctl.Name ctl.FontName = "Cairo" If frm1.DefaultView = 2 Then frm1.DatasheetFontName = "Cairo" 'DataSheetForms End If End If Next ctl DoCmd.Close acForm, frm.Name, acSaveYes Next frm Exit Function For Each rpt In dbs.AllReports DoCmd.OpenReport rpt.Name, acDesign Set rpt1 = Reports(rpt.Name) For Each ctl In rpt1.Controls If ctl.ControlType = acComboBox Or _ ctl.ControlType = acCommandButton Or _ ctl.ControlType = acLabel Or _ ctl.ControlType = acListBox Or _ ctl.ControlType = acOptionButton Or _ ctl.ControlType = acTextBox Then Debug.Print rpt.Name & " > " & ctl.ControlType & " > " & ctl.Name ctl.FontName = "Cairo" If rpt1.DefaultView = 2 Then frm1.DatasheetFontName = "Cairo" End If End If Next ctl DoCmd.Close acReport, rpt.Name, acSaveYes Next rpt End Function

من فضلك ممكن المثال

بينفذ اول امر فقط

لدى 10 جداول محتاج انشائهم بالكود فى قاعدة بيانات خارجيه وكل جداول له بيانات مختلفة Dim strSQL3 As String Dim B As New Access.Application Set B = CreateObject("Access.Application") B.OpenCurrentDatabase "D:\New folder (2)\Database.accdb" strSQL1 = "CREATE TABLE asrt_tbl " _ & "(Code INTEGER , cosmotic CHAR(50), available BIT , " _ & "supplier CHAR(50),Unit CHAR(30), unitprice Double ,Quantity CHAR(30) , " _ & "CONSTRAINT asrt_tblConstraint UNIQUE " _ & "(Code, cosmotic, available, supplier, Unit, unitprice, Quantity ));" B.DoCmd.RunSQL strSQL3 هذا الكود لانشاء جدول واحد

من فضلك ممكن يحسب عدد الساعات بالايام مثلا الموظف سجل حضور بتاريخ 22-11-2021 الساعه 10.30am وسجل انصراف بتاريخ 25 - 11-2021 الساعه 10.30am

جزاك الله خيرا استاذنا الفاضل @jjafferr من فضلك ممكن تعدلها على المثال المرفق وفقا للنموذج المستمر testbar.rar

السلام عليكم محتاج فى تقرير التجميع المرفق فى المثال اظهار الاختبارات اللى امامها true فقط هذا الكود للاستاذ @jjafferr testbar.rar

حضرتك ان مش محتاج QR CODE خالص يافندم كل اللى انا محتاجه ان لما اختار اى تست من خلال BARD يجمع كل Test فى حقل الstr_Text فقط هذا المطلوب وشكرا لسعه صدرك

المطلوب تنفيذ مثل الصورة المحددة على المرفق فى نموذج مستمر تطبيق نفس الفكرة فقط مش محتاج Qr code TESTCH.rar

@ابا جودى

اشكرك على تعبك انا مش محتاج qr code محتاج اعمل نفس الفكرة فقط الموجودة هنا ان اى ايتم من اللى موجودين فى النموذج المستمر لما يكون true جمهم فى حقل مع بعض فقط

TESTCH.rar