نجوم المشاركات

حبا وكرامة تفضلوا : على اعتبار اسم الحقل في جميع الجداول = id هذا الاول Dim dbs As Database Dim Table As TableDef 'On Error Resume Next Set dbs = CurrentDb DoCmd.SetWarnings False For Each Table In dbs.TableDefs If Not Table.Name Like "MSys*" Then DoCmd.RunSQL "ALTER TABLE " & Table.Name & " ALTER COLUMN id INTEGER" End If Next DoCmd.SetWarnings True Set dbs = Nothing MsgBox "تم" وهذا الثاني Dim rs As Recordset Dim strSQL As String Dim strTable As String strSQL = "SELECT MSysObjects.Name " & vbCrLf & _ "FROM MSysObjects " & vbCrLf & _ "WHERE (((MSysObjects.Type)=1) AND ((Left([name],4))<>""msys"")) " & vbCrLf & _ "ORDER BY MSysObjects.Name;" Set rs = CurrentDb.OpenRecordset(strSQL) DoCmd.SetWarnings False Do Until rs.EOF strTable = rs!Name DoCmd.RunSQL "ALTER TABLE " & strTable & " ALTER COLUMN id INTEGER" rs.MoveNext Loop DoCmd.SetWarnings True Set rs = Nothing MsgBox "تم" ولكنك قلت انك شغال على المطلوب وكنت مخلص يعني لاهنت نريد الحل الثالث حتى لو فيه توارد خواطر فلن نعدم فائدة

السلام عليكم أخوي ابوخليل كنت اتمنى اخلص "البرنامج" البارحة ، بس للأسف ما قدرت الكود اللي وضعته انت ، هو لُب الموضوع ، بينما انا شغال على برنامج خارجي ، يعطيك اختيار الجداول اللي تريد تغير الحقل فيها ، فهذا يأخذ شوية وقت زيادة السبب اني اتجهت الى هذه الطريقة هي اني اعتقد ان استخدام برنامج خارجي لن يُربك المستخدم وبرنامجه (لا تنسى اني ما اتكلم عن كود فقط ، وانما نموذج ووحدات نمطية) يالله ، ان شاء الله اخلص وارفقه ، لزيادة المعلومة جعفر

كتبت هذا الموضوع لأن أكثر من شخص قد قام بالسؤال حوله وقد تفضل أكثر من أخ بالإجابة عليه وتتلخص الإجابة فى التالى فقط قم بتنسيق الشهادة أو الرسالة التى تريد إرسالها وإضافة حقول الدمج لها وقم بتكرارها فى الصفحة بعدد المرات التى تريد وبين كل رسالة أو شهادة فقط تفضل بإضافة السطر التالى «Next Record» وفى نهاية الصفحة كذلك «Next Record» ثم بعد ذلك إضغط إنهاء ودمج ستجد فى المستند الناتج قد تكررت الشهادة أو الرسالة فى الصفحة الواحدة مع اختلاف المرسل إليه أو اسم صاحب الشهادة إذا استفدت فلا تنسنا من الدعاء لى ولأبى ولأمى ولأمة محمد أجميعن بالرحمة والمغفرة ملحوظة أرفقت مثال لأحد الاخوة كان يسأل عن كيفية عمل مثل هذه الشهادة وتكرار ها وقد قمت بالتعديل عليه سبحان الله.rar

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

حياالله أخوي رمهان

حياك الله السطر الاخير الذي ذكرته انت في الكود ، المفروض ان يرجعنا الى السجل الاول !! جرب وضع السطر الاخير مرتين بدل مرة واحدة!! هل هذا كل الكود ؟ هل استعملت on error resume next ؟ اذا استعملته ، رجاء تزيله ، وتجرب الكود ، وشوف شو الخطأ اللي يعطيك ، مع رقم الخطأ ، وعلى اي سطر . جعفر

الكود سيصبح (مع اضافة تعديلاتي المقترحة السابقة): Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst rc = rst.RecordCount DoCmd.GoToRecord , , acFirst For i = 1 To rc DoCmd.OpenReport "myReport", , , "[id]=" & Me.id DoCmd.GoToRecord , , acNext Next i DoCmd.GoToRecord , , acFirst بس بالطريقة هذه ، ستطبع صفحة لكل سجل جعفر

[$-10A0000]dddd yyYY/mm/dd استعمل هذا التنسيق للخلايا أو هذا [$-10A0000]dddd

اخي ابراهيم جزاكم الله خيرا على المرور و انا ايضا اشتقت للجميع ( إييييييييه أيام زمان لما كنا في الاعدادي ههههههههههههه ) اسأل الله ان يوفقكم و يسدد خطاكم بالمناسبة تقبل الله منا و منكم صالح الاعمال و عيدكم مبارك و كل عام و انتم و كل الاسرة بخير

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

كيف تمنحه اجازة لسنة قادمة ؟ !! ايضا لا تضاف كاملة بدخول السنة الجديدة ، لانه لا يستحقها كاملة وانما يستحق اجازة مقابل الايام التي عملها خلال هذه السنة امل ان الفكرة واضحة لك كامل الاستحقاق يحتسب : من تاريخ بداية العقد الى تاريخ اليوم الحالي باعتبار استحقاقه الشهري من الايام هو ( 4.16 ) يوم فيصبح استحقاق السنة حوالي 50 يوما كما هو معمول به في بلدك بينما في بلدي الاستحقاق هو (3.75 ) يوم عن كل شهر فيستحق يوما اجازة مقابل 8 ايام عمل و 45 يوما خلال السنة

فكرة ممتازة ولكن ينقصها شيء بالنسبة لإجازة السنة القادمة ومابعدها اين يتم حسابها فهمت تضاف بدخول السنة الجديدة في الإستحقاق

كما يمكن كذلك جعل هوامش خلايا الجدول على الصفر من الجهات الاربع ةالسلام غليكم

جرب هذا الملف تم تغيير اسماء الصفحات لحسن عمل الكود مع اللغة الاجنبية العمل يتم مع الصفحة Sheet1 نتيجة الدور الأول salim.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة البحث عن ورقة بأي حروف من أي جزء بإسم الورقة وتفعيلها تم ارفاق كود الحل من الفاضل/ أبوعبد الله و لا تنسونا من صالح الدعاء تحياتى البحث عن ورقة بأي حروف من أي جزء بإسم الورقة وتفعيلها (1).rar

السلام عليكم الاخوة الكرام انتهت المشكلة بعد ان غيرت اعدادات الصفحةكما في الصورة المرفقة ( ابيض واسود ) رفعت العلامة والحمد لله انتهت المشكلة تحياتي

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة طريقة استدعاء بيانات خلال فترة من.... الى تم ارفاق كود الحل من الافاضل/بن علية حاجي بالمعادلات _ أبو حنــــين _ بالكود و لا تنسونا من صالح الدعاء تحياتى بالمعادلات استخراج كشف بيانات بين تاريخين.rar بالكود استخراج كشف بيانات بين تاريخين.rar

السلام عليكم أعتقد لابد من استخدام VBA لهذا الغرض والأكواد والطرق متنوعة يمكن على سبيل المثال استخدام الكود التالي وهو عند الدخول إلى الصفحة يقوم بإخفاء كل الأعمدة (كامل محتوى الشيت) لحين إدخال الباسورد لو صحيح يقوم بإظهار الخلايا لو خطأ يبقي المحتوي مخفى وتقدر تضعه في كل صفحة أنت تريد حمايتها مع تغيير الباسورد من 123 إلى أي باسورد تفضله Private Sub Worksheet_Activate() Dim strReply As String Dim lReply As Long Cells.Select Selection.EntireColumn.Hidden = True strReply = InputBox("Enter Password", "Sheet Protection") If strReply = "123" Then Sheets("sheet2").Activate Cells.Select Selection.EntireColumn.Hidden = False Range("A1").Select Else: MsgBox "Wrong password" Exit Sub End If End Sub

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

تصميم جميل ورائع وواضح المجهود الذي بذلته حتى خرج على هذه الصورة الملاحظات : المرفق كبير جدا 52 م فقط انزع الصور من النماذج ( ثلاث نماذج ) وقم بضغط واصلاح القاعدة وسترى الفرق المهول في الحجم سيصل الحجم الى اقل من ميجا واحد ومع الضغط سيكون كيلوات قليلة يمكنك عرض الصور داخل البرنامج بجعلها مرتبطة بدلا من التضمين وتضع الصور داخل مجلد البرنامج تم تجريب النسخة 2003 1- لا يتم عمل نسخة mde 2- بالنسبة الى اليوزر الخارجي تصور ما ذا سيحدث لو تم تسريب الباسوورد وفقك الله اخي محمد والى الامام

جرب هذا الشيء UNIQUE EXTRA LIST.rar

السلام عليكم ورحمة الله في المرفق تجد ملف فيه تطبيق لما ذكرته في ردي السابق... وهو إنشاء قوائم منسدلة ديناميكية (مطاطية) دون تكرارات (ودون فراغات) باستعمال المعادلات... في شيت Feuil1 تم إنشاء القائمة List1 بمعادلة صفيف وفي شيت Feuil2 تم إنشاء القائمة List2 بمعادلات عادية مع عمود إضافي... أرجو أن يكون الحل مفهوما ويفي بالغرض المطلوب... ويبقى استعمال التسميتين List1 و List2 في خاصية "التحقق من الصحة" Validation في أي خلية كانت من الملف... بطبيعة الحال يمكن أيضا استعمال الأكواد في هذا، مثل الكود الذي اقترحه أخي الكريم الجموعي من موضوع "المشروع الكبير للأكواد" جازاه الله خيرا وكل القائمين والمشاركين في هذا المشروع... أخوك بن علية الملف المرفق : قوائم منسدلة دون تكرار ودون فراغات.rar

تفضل أخي: كود مميز لتعبئة اليست بوكس أو الكمبو بكس من عمود بدون تكرار من مشاركة الأستاذ القدير شوقي ربيع في: المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد http://www.officena.net/ib/index.php?showtopic=57935&p=370430

أخى الفاضل جرب هذا الكود show_calc.rar

السلام عليكم تفضل اخي الحاسبة.rar