ناقل

تفضل ..... Expr1: [name] & " " & [date] & " " & [salary]

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

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

احسن الله اليك ... ممكن لاحظ .... تاريخ .accdb

واياك ... لكن هل هو المطلوب

هههههه .... لان بعض كتاب المواضيع يظن ان الكل يعرف عن برنامجه .... فيضع السؤال ظانا ان الجميع يعرف كيف يعمل البرنامج او حتى تشعبات البرنامج فالمفروض اعطي شرح كامل لفكرة برنامجي ( وليس باقساط ميسرة ... ههههه ....) .... ثم اطرح السؤال ايضا بشكل واضح على العموم ... بارك الله فيك ...

جرب المرفق ... nnn.accdb

اجاباتك ... اقساط ؟؟؟؟

تمام هذه مفهومة ... ولكن ملالذي يحدث هل هو بيانات أم لون أم ماذا ؟

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

تفضل .... تاريخ .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