ناقل

شغلت المرفق اكثر من مرة ولم افهم ما هو المطلوب ؟؟؟ هل المطلوب تغيير لون النموذج الثاني حسب اللون المختار في النموذج الاول ؟؟؟ وضح رجاءا اكثر .

تفضل .... تاريخ .accdb

جرب هذا الكود !!! Private Sub txtEmpNumber_AfterUpdate() Me.txtFullNameAR = DLookup("[FullNameAR]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber & "") Me.txtFullNameEN = DLookup("[FullNameEN]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber & "") Me.txtintUser!D = DLookup("[txtAutoIntPersonID]", "qryPersons", "[txtEmployeeNumber]=" & Me.txtEmpNumber & "") End Sub

لم تجب هل جربت هذه الطريقة ؟؟؟؟؟؟؟؟

ممكن صورة للخطأ الذي يظهر تكرما ....

ما قلنا نزل القاعدة كاملة ,,,, الجزء الخاص بالسؤال .... على العموم ممكن تستخدم .... s2.Caption = DLookup("[edarah1]", "sch_start1")

ممكن ميال بسيط مرفق للتطبيق عليه

استخدم هذا الكود DoCmd.OpenReport "R_RemarksSub", acViewPreview, , "[date_in]=Date()" R_RemarksSub=اسم التقرير

هل ملف PDF متوفر منه ملف word اذا كان نعم فاستخدم دمج البيانات الى ال word ثم حول المدمج الى PDF

لم اشاهد النقص ؟؟؟

الدوران عن طريق الجدول او الاستعلام افضل من النموذج .... والله اعلم

ابحث عن هذا With imsg With imsg .to = StudentEmaile .from = DLookup("settingsUsername", "settings", "settingNO=1") .Subject = "ÔåÇÏÉ" .HTMLBody = Mymsg .AddAttachment (MyAttachment) Set .Configuration = iconf .Send End With واستبدله بهذا ..... With imsg .BodyPart.Charset = "UTF-8" .to = StudentEmaile .from = DLookup("settingsUsername", "settings", "settingNO=1") .Subject = "ÔåÇÏÉ" .HTMLBody = Mymsg .AddAttachment (MyAttachment) Set .Configuration = iconf .Send End With تم اضافة هذا السطر .BodyPart.Charset = "UTF-8"

ادخل على حسابك من خلال الرابط التالي وفعل التطبيقات الاقل امانا ويعمل معك https://www.google.com/settings/security/lesssecureapps

ادخل على المكتبات وطبق الصورة ....

طيب غير الفانكشن الى عندك بهذا الكود .... On Error GoTo Error_Handler Dim MyFile As String Dim db As Database Dim sSQL As String Set db = CurrentDb() If Right(strPath, 1) <> "" Then strPath = strPath & "" If strFilter = "" Then strFilter = "*" MyFile = Dir$(strPath & "*." & strFilter) Do While MyFile <> "" myfile1 = Left([MyFile], InStrRev([MyFile], ".") - 1) sSQL = "INSERT INTO [BASIC_DATE] (crn) VALUES(""" & myfile1 & """)" db.Execute sSQL, dbFailOnError MyFile = Dir$ Loop Error_Handler_Exit: On Error Resume Next Set db = Nothing Exit Function Error_Handler: MsgBox "The following error has occured" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: ImportDirListing" & vbCrLf & _ "Error Description: " & Err.Description, vbCritical, _ "An Error has Occured!" Resume Error_Handler_Exit

هل هذا ماتريد ... ناقل.mdb

تفضل

تقضل .... WhatsApp2003.mdb

تفضل اخي العزيز .... بس رجاءا لا تكرهني .... ههههههه yyyyyyyyyy.accdb

جزاك الله خيرا اخي ازهر ... لاشك وجودنا في هذا المنتدى اساسه الحب لا الكره ... اذن تقصد تكره البرمجه وتشكر من يمد لك يد العون جزى الله خيرا كل من يمد يد العون للجميع بما يمتلك من خبره واسف اخي مره اخرى سامحني ... لان الكلمة اثارتني وخاصه عندما تقال لمن نتعلم منهم الادب قبل البرمجة ... فشكرا لكم جميعا دون استثناء... 🥀

يا اخي ايش اللفظ هذا ...

تفضل .....

ممكن ترفق لمثال للمشكلة لديك

هل تقصد هذه .....

تفضل المرفق ..... استعلام حركة البع والسداد.rar