البحث في الموقع

كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس باستخدام دالة dateserial دالة mod حلقة التكرار for...next رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfUkt5VjZCejhvNDg/view?usp=sharing الكود Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo 1 Dim i As Integer For i = 1 To 31 Me.Controls("j" & i) = Format(DateSerial([Forms]![mf1]![mmm], 1, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("no" & i) = Format(DateSerial([Forms]![mf1]![mmm], 11, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("de" & i) = Format(DateSerial([Forms]![mf1]![mmm], 12, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("oc" & i) = Format(DateSerial([Forms]![mf1]![mmm], 10, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("se" & i) = Format(DateSerial([Forms]![mf1]![mmm], 9, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 29 Me.Controls("f" & i) = Format(DateSerial([Forms]![mf1]![mmm], 2, Me.Controls("d" & i)), "ddd") Next i Dim ss As Integer ss = [Forms]![mf1]![mmm] Mod 4 Me.f29.Visible = ss = 0 For i = 1 To 31 Me.Controls("ma" & i) = Format(DateSerial([Forms]![mf1]![mmm], 3, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("ap" & i) = Format(DateSerial([Forms]![mf1]![mmm], 4, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("may" & i) = Format(DateSerial([Forms]![mf1]![mmm], 5, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("yo" & i) = Format(DateSerial([Forms]![mf1]![mmm], 6, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("yl" & i) = Format(DateSerial([Forms]![mf1]![mmm], 7, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("og" & i) = Format(DateSerial([Forms]![mf1]![mmm], 8, Me.Controls("d" & i)), "ddd") Next i 1: End Subالفيديو https://www.youtube.com/watch?v=xwpO5KD-8wc

السلام عليكم عندي برنامج ارسال بريد الكتروني من خلال 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 حقيقي يبين المدة المفترض انتظارها ( لارفاق الملف و ارسال الرسالة) حتي تظهر رسالة تأكيد الارسالفلو فية كود يعمل الخاصية دة يبقي كويس وياريت لو الكود متوفر يتضاف على الكود المرفق دة علشان اخدة جاهز وشكراً

السلام عليكم كيف اقدر اعمل جدول داخل الفورم ؟ بحيث اني الداتا بيز عندي فيها admin panel فانا عايز button to add user فالبتالي كيف اعمل فورم بحيث اني لما اضيف عضو يضاف تلقائي الي الجدول ؟ ويكون افضل لو بداخل navigation form

برنامج تسجيل التحاليل الطبية ************************ برنامج مجانى لكل مريض و لكل طبيب يعالج مرضاه بالمجان ************************************************* رابط شرح البرنامج https://www.youtube.com/watch?v=szAFJNL2CEU&feature=youtu.be ************************************************ رابط تحميل Microsoft Access 2010 Runtime https://www.microsoft.com/en-us/download/details.aspx?id=10910 ****************************************************** رابط تحميل برنامج تسجيل التحاليل الطبية http://www.mediafire.com/download/yf7bh9mmiy3f8hr/%D8%AA%D8%B3%D8%AC%D9%8A%D9%84+%D8%A7%D9%84%D8%AA%D8%AD%D8%A7%D9%84%D9%8A%D9%84+++.accdb ****************************************************** اسم المستخدم : الحمد لله كلمة السر : الحمد لله برنامج تسجيل التحاليل الطبية ************************ برنامج مجانى لكل مريض و لكل طبيب يعالج مرضاه بالمجان ************************************************* رابط شرح البرنامج https://www.youtube.com/watch?v=szAFJNL2CEU&feature=youtu.be ************************************************ رابط تحميل Microsoft Access 2010 Runtime https://www.microsoft.com/en-us/download/details.aspx?id=10910 ****************************************************** رابط تحميل برنامج تسجيل التحاليل الطبية http://www.mediafire.com/download/yf7bh9mmiy3f8hr/%D8%AA%D8%B3%D8%AC%D9%8A%D9%84+%D8%A7%D9%84%D8%AA%D8%AD%D8%A7%D9%84%D9%8A%D9%84+++.accdb ****************************************************** اسم المستخدم : الحمد لله كلمة السر : الحمد لله

انا طالب اعمل في مشروع تخرج والدكتور المشرف علي المشروع طلب مني استخدام البيانات الموجودة في الجداول المرفقة ولكن تفاجأت بانها مشفرة فهل من طريقة لفك التشفير ؟ مع العلم ان الدكتور ليس لديه علم بطريقة تشفير هذا الملف !! لينك تحميل الملف http://www.mediafire.com/download/tk52ec2zjbzeob0/DataDb.mdb

السلام عليكم اعاني من مشكله ان الحقول لا تظهر في النموذج كما موضح بالصور المرفقة وشكرا I have problem with MS Access though i created a table n added some data but when i create a form my table's fields do not appear on form view only on design view as it shows on the attachment photos Any one faced this issue before? Best regards

بسم الله الرحمن الرحيم أعزائي أعضاء ومشرفي منتدى أوفيسنا بدأت تعلم البرمجة من هنا ثم انتقلت بين لغات البرمجة وتعمقت في php ولكن أريد عمل برنامج بالأكسس فواجهتني مشكلة وهي: أريد وضع نتيجة استعلام في متغيرات وخاصة في حالة تكون النتيجة أكثر من سجل والسجل أكثر من حقل وهذه في لغة بي اتش بي في منتهى السهولة بدالة تسمى mysql_fetch_array وتقوم هذه الدالة بوضع متغيرات بعدد الصفوف والأعمدة في نتيجة الاستعلام بحيث إذا أردت استعمال الداتا الموجودة في الصف الأول والعمود الأول يكون هذا في متغير وإذا أردت استعمال الداتا الموجودة في الصف الثاني ومثلا العمود الثالث يكون ذلك في متغير آخر فكيف يمكن تنفيذ ذلك في الأكسس؟؟ تحياتي للجميع وكل عام أنتم بخير بمناسبة الشهر المبارك

نظرا لما للبرنامج من أهمية لمنتدى برمجة المواقع أحببت أن أنوه له هنا و يمكنكم قراءة الموضوع في منتدى الأكسس هنــــــــــا

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أواصل معكم سلسلة ما خف وزنه وغلا وأقدم لكم اليوم برنامج مصمم بالأكسس من تصميمي للاستماع للقرآن الكريم بصوت أكثر من ستين قارئ مع قراءة السورة مع القارئ من خلال الفلاش الموجود أسفل البرنامج فقط حدد القارئ ثم حدد السورة ثم حدد السورة في الفلاش واستمع واقرأ القرآن واحصل على الكثير من الثواب ويمكنك تحميل السورة للعلم كل الملفات بصيغة mp3 حجم الملف 95 كب هذه صورة البرنامج http://www6.0zz0.com/2008/01/05/15/47435727.gif ومن هنا يكون التحميل لا ينقصني سوى دعاؤكم وردودكم إن أردتم ذلك أخوكم محمد الصالح