Moosak

وعليكم السلام ورحمة الله وبركاته 🙂 ربما تحتاج لتعديل تنسيق ( Format ) حقل التاريخ في النموذج بهذه الصورة : dd/mm/yyyy

وعليكم السلام ورحمة الله وبركاته أخي مصطفى 🙂 موضوعك مشابه لهذا الموضوع :

وعليكم السلام ورحمة الله وبركاته أخي حسين 🙂 تفضل الحل : وهذا أمر الترقيم ( في حال لم تضع الرقم ، سيبدأ تلقائيا من الرقم 1 ) : Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim x As Double x = Nz(StartNumTxt.Value, 1) Set dbs = CurrentDb Set rst = dbs.OpenRecordset("tabol_1") ' بين القوسين اسم الجدول/ الاستعلام أو جملة السيكول rst.MoveLast rst.MoveFirst Do Until rst.EOF rst.Edit rst!id_1 = x rst.Update rst.MoveNext x = x + 1 Loop Me.Requery rst.Close Set dbs = Nothing Set rst = Nothing ترقيم تلقائي يبدأ من رقم محدد.rar

وضعت هذه الفكرة في الحسبان في التحديث القادم إن شاء الله .. وكذلك إمكانية استقبال عدد لا محدود من المعايير في الدالة .. كل هذه مجرد أفكار لا أعلم كيفية تطبيقها بعد 😅 وإذا كانت لديك أفكار إضافية ياريت تتحفني بها أخي العزيز @ابو البشر 😊

والعذر منك أخي @biskra لم أر ردك إلا لاحقا 🙂🌹

نعم ممكن 🙂 ويمكن عمل ذلك بكل سهولة بأربعة معايير مختلفة .. ومختلف أنواع البيانات عن طريق الأداة التالية :

وبالنسبة لطلبك الثاني ضع هذا الكود في زر فتح ال PDF : Dim DesktopPath As String DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") DoCmd.OpenReport "t1", acViewReport DoCmd.OutputTo acOutputReport, "t1", "*.pdf", DesktopPath & "\t1.pdf", True, , , acExportQualityPrint

بالإضافة إلى ما قاله أخي محمد البرناوي 🙂 ضع هذه الإعدادات للتقرير : ثم ضع هذين السطرين عند الفتح : DoCmd.Maximize DoCmd.Restore جرب الآن فتح التقرير .. سيظهر عندك بهذه الصورة : قم بتغيير حجمه بالطريقة التي تريده أن يظهر بها .. ثم اضغط على ( Ctrl + S ) من الكيبورد ( أي حفظ الوضعية التي عليها الآن : بعدها سوف يظهر لك التقرير دائما بهذه الصورة 🙂☝

تفضل( مع العلم أن الملف ليس لي ، وأضنه من إبداعات أحد أعضاء المنتدى ) 🙂 : حالة الاتصال بالنت.accdb

هذا المرفق فيه مثال مشابه 🙂 حالة الاتصال بالنت.rar

وعليكم السلام ورحمة الله وبركاته أخي المهندس أحمد 🙂🌹 هذي بركات درجة الخبير ما شاء الله تبارك الرحمن .. 😄 للأسف ما وجدت فرصة أجرب الأداة مع توقعي للنتيجة بأن تكون رائعة كروعتك 🙂 إن شاء الله تكون لنا مراجعة لهذا الموضوع لاحقا .. وأن يأخذ هذا الموضوع حقه من الاهتمام وتسليط الضوء 👍🏼😉

شكرا جزيلا على المشاركة 🙂🌷

شكرا لك دكتور .. ربي يبارك فيك ويجزيك خير الجزاء 😊🌹🌷

إذا القضية تكمن في آلية تصميم الجداول وربطها مع بعضها بالعلاقات المناسبة .. ولن تحتاج إلى فعل ذلك بالأكواد .. 🙂 وهذا الأمر هو من أساسيات عمل قواعد البيانات .. لا يتم تكرار البيانات في الجداول بل يتم اختصارها وتنظيمها وربطها بعلاقات .. ضع أنت المثال كمرفق وسيتم التعامل معه من قبل الشباب المبدعين إن شاء الله.. 🙂🌹

أعتقد أن الأخ فؤاد يقصد أن تكون هناك نسختان من الجداول : جداجداول محلية وجداول مرتبطة بالقاعدة الأخرى ( الاحتياطية ) .. فما يتم تسجيله في الجداول المحلية يتم نسخه تلقائيا في الجداول المرتبطة ..

وعليكم السلام ورحمة الله وبركاته أخي رضوان 🙂 ما فهمته هو أنك تريد بعد إدخال بيانات المركبات أن تجري العديد من العمليات المتعلقة بهذه المركبات .. وكل مركبة لها عدة عمليات .. لذلك تريد نسخ بيانات المركبة لكل سجل من هذه العمليات ..هل هذا صحيح ؟

هذي النقطة أعتقد ليس لها علاقة بالكود وإنما بتضبيطات بريد الياهو عندك .. فقد حصلت معي سابقا .. ****************************************************************************************** هذا السطر الذي ذكرته لك ( أزل الرمز ( ' ) من أمامه) : وبعد التفعيل تم ارسال المرفق بنجاح : ****************************************************************************************** وبالنسبة لفحص الاتصال بالانترنت استخدم هذا الكود (يوضع في موديول عام) : #If VBA7 Then Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" _ (ByRef dwFlags As Long, _ ByVal dwReserved As Long) As Boolean #Else Private Declare Function InternetGetConnectedState Lib "wininet.dll" _ (ByRef dwFlags As Long, _ ByVal dwReserved As Long) As Boolean #End If Function Is_Connected() As Boolean Dim IEStat As Long Is_Connected = (InternetGetConnectedState(IEStat, 0&) <> 0) End Function Public Sub TestInternetConnection() If Is_Connected() = True Then MsgBox "Connected" Else MsgBox "Not Connected" End If End Sub ثم يتم استدعاء أحد الدالتين التاليتين : Connected() هذه تعطيك نتيجة نعم/ لا على الإتصال TestInternetConnection() وهذه تظهر لك رسالة تخبرك إن كان متصل أم لا ****************************************************************************************** وأنا أريدك أن تتعلم كيفية التعامل مع الأكواد أخي @حمدى الظابط 🙂

شكرا لك أخي حمدي 🙂 بالنسبة للمرفقات .. تم تعطيل سطر ادراج المرفق .. فقط فعله وسوف يعمل عندك إن شاء الله .. وبالنسبة للطلبات الجديدة .. سيكون باب الاجتهاد والمشاركة متاح للجميع .. لتتنوع الأفكار والإبداعات 🙂🌹

اللهم آمين .. وإياك أخي العزيز 🙂🤲

مبارك عليك مرة أخرى أخي أحمد @Ahmed.IQ 🙂 وعسى التوفيق حليفك دائما وأبدا 😊🌹

وعليكم السلام ورحمة الله وبركاته 🙂 ضع هذا السطر على زر الأمر : CurrentDb.Execute "Update Tbl_re1 set w = 0" Msgbox "تم الاستبدال"

تحصل بين فترة وفترة ..

تحية طيبة وتهنئة حارة للإخوة الأعزاء @ابو البشر و @kkhalifa1960 و @Ahmed.IQ 🙂 🌹 وجعلكم الله خير معين .. وزادكم الله من واسع فضله ..

شوف هذا الموضوع أخي محمد 🙂

أستاذ حمدي مرفق لك البرنامج بعد التعديل 🙂 ،،، إرسال رسائل البريد الإلكتروني.rar وبالنسبة لسؤالك : فقد ذكرت لك : وهنا سأحاول باختصار شرح عمل تضبيطات الجيميل Gmail قبل استخدامه في الأكسس : (1) أولا تذهب لاعدادات حسابك : (2) إعدادات الأمان : (3) تفعل التحقق بخطوتين ( اتبع الخطوات التي يعطيك إياها المتصفح ) : (4) تعود لا عدادات الأمان وتختار ( كلمات مرور التطبيقات ) : (5) سيطلب منك إعادة إدخال كلمة المرور لبريدك الإلكتروني .. (6) تضع نفس هذه الخيارات بالترتيب : (7) الخطوة الأخيرة .. ستعطيك جوجل كلمة مرور جديدة ( وهذه ستكون كلمة المرور التي ستستخدمها في برنامج الأكسس بدل كلمة المرور الحقيقية للإيميل ) : ملاحظة أخيرة مهمة : ضروووووري جدا أن تحتفظ بالرقم الجديد عندك في أي مكان ، لأن جوجل لن تتيح لك الرجوع إليه مرة أخرة . 🙂