alvingenius

السلام عليكم مثل عنوان الموضوع عندي 3 جداول جدول الموظفين / جدول الخبرات / جدول الوظائف السابقة ( مربوطين علاقة عن طريق ID ) عملت فورم اساسي لجدول الموظفين وعملت Navigation Control فيها فورم الخبرات و الوظائف السابقة واخترت الNavigation Control لتصميمها الجذاب ( بدلا عن Tab Control ) المشكلة عندي اني عاوز اربط الفورم الى في ال Navigation Control بتاع الخبرات و الوظائف السابقة برقم الـ ID الخاص بالموظف في الفورم الاساسي بحيث يظهرلي الخبرات الخاصة بالموظف الى انا واقف عليه عاوز اربط خانة الـ Employee_ID من فورم الخبرات السابقة بـ Employee_ID من الفورم الاساسي لبيانات الموظف

الكود مرفق مسبقاً .. بالنسبة للمرفقات الى بالايميل انا بحط بس لينك الملف - Path وهوا بيترفق في الميل - وبياخد وقت على قد مساحة الملف المرفق طبعاً وورسالة تأكيد ارسال الميل بتيجي بعد مايرفع المرفق ويعمل ارسال ... خلال الفترة دة انا عاوز كود يحسب الوقت المتبقي الفعلي ( مثل برامج التحميلات ) ويظهر بار حقيقى يالوقت المتبقي ...!! اختراع يا كوتش :)

السلام عليكم عندي برنامج ارسال بريد الكتروني من خلال VBA باستخدام CDO وليس بالـ Outlookوالكود الى استخدمة Private Sub Command1_Click() Dim Mailto As String 'Mail To Dim mail As Object ' CDO.MESSAGE Dim config As Object ' CDO.Configuration Mailto = InputBox("Enter Mail", "Enter Email Address") If Mailto <> "" Then ' if it not empty MsgBox ("Mail will sent to " & Mailto & " Press OK and wait for confirmation message "), "Sending ..." Else MsgBox "Canceled , or No Mail entered ", vbCritical, "Error" 'Terminate if the cancel or empty value is found button is clicked! End If Set mail = CreateObject("CDO.Message") Set config = CreateObject("CDO.Configuration") config.Fields(cdoSendUsingMethod).Value = cdoSendUsingPort config.Fields(cdoSMTPServer).Value = "xxxx" config.Fields(cdoSMTPServerPort).Value = 465 config.Fields(cdoSMTPUseSSL).Value = "true" config.Fields(cdoSMTPAuthenticate).Value = cdoBasic config.Fields(cdoSendUserName).Value = "xxxxx" config.Fields(cdoSendPassword).Value = "xxxxx" config.Fields.Update Set mail.Configuration = config With mail .To = Mailto .From = "xxxx" .Subject = "Test Sub" .TextBody = "Test Body." .AddAttachment "c:\users\data.bin" .Send End With Set config = Nothing Set mail = Nothing If Err.Number = 0 Then MsgBox "Message Sent Successfully", vbInformation, "Sent" End Sub وعملية الـ المرفقات تاخذ وقت على حسب حجم الملف المرفقومثل ماموجود في الكود في حالة عدم وجود Errors وارسال الملف تيجي رسالة تأكيد الارسالMsgBox "Message Sent Successfully", vbInformation, "Sent"الرسالة دة تظهر بعد وقت مثل ماقلت حسب حجم الملف المرفق اثناء هذه الوقت اريد عمل Progress bar حقيقي يبين المدة المفترض انتظارها ( لارفاق الملف و ارسال الرسالة) حتي تظهر رسالة تأكيد الارسالفلو فية كود يعمل الخاصية دة يبقي كويس وياريت لو الكود متوفر يتضاف على الكود المرفق دة علشان اخدة جاهز وشكراً