jjafferr

المعذرة ، كنت اريد فقط ان الفت انتباهكم الى مشاركتي في موضوع آخر ، برجاء اذا ممكن القاء نظرة عليه ، فلم اتوصل الى معرفة الطريقة !! جعفر

وعليكم السلام 🙂 انزلت المرفق ، اوقفت الكود ، ولكني لازلت لا ادري من اين/كيف يتم ادخال البيانات في بقية الحقول !! لما تختار من مربع السرد ، يتم ملئ الحقول بالبيانات صحيحة ، ولكن كما قلت ، لا اعرف كيف تتم نقل البينات الى الحقول !! جعفر 1521.Combobox_AfterUpdate.accdb.zip

اللي قبلك كان اشطر منك (انا في هذه الحالة 🙂) ، استعملتها في البداية ، واذا بالحقل "g1s3" يعرض لي تاريخ مال زمان 30/10/1899 ، فاضطررت ان اصطاد اخطاء الكود واضبط تاريخ الحقل 🙂 فكرة جميلة 🙂 جعفر

اهلا وسهلا بك مرة اخرى

وعليكم السلام 🙂 اجعل اسم الزر cmd_clear_fields ، ثم ضع الكود في حدث النقر على الزر: Private Sub cmd_clear_fields_Click() On Error GoTo err_cmd_clear_fields_Click Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If ctl.Name <> "g1s11" And _ ctl.Name <> "g1s12" And _ ctl.Name <> "g1s13" And _ ctl.Name <> "g1s14" And _ ctl.Name <> "g1s15" Then ctl.Value = "" End If End If Next Exit_cmd_clear_fields_Click: Exit Sub err_cmd_clear_fields_Click: If Err.Number = 2448 Then 'can't change autonumber Resume Next ElseIf Err.Number = 3314 And ctl.Name = "g1s3" Then 'a date must be entered ctl.Value = Date Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_cmd_clear_fields_Click End Sub جعفر up.zip

همممم يعني صدق ناوي تجمع فريق الشباب الشايب في موضوع واحد 😁 استراتيجتي في المشاركات: اذا عندي شيء مفيد ، فأكتب مشاركة ، وإلا فاكون متابع بصمت 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 هذه معادلتك: اذا ممكن تنورنا اكثر ، شو هذه المعادلة ، ومن وين حصلت عليها ، وشو اللي يخليها مختلفة عن غيرها ، وشو اللي يخليها بهذه الدقة؟ جعفر

وعليكم السلام 🙂 كود اخوي موسى ، ولكن بطريقتي 🙂 Sub CopyFile() Dim sPathDeskTop As String sPathDeskTop = Environ("USERPROFILE") & "\Desktop" & "\b\" ' هنا اسم المجلد الذي سيتم انشاؤه في سطح المكتب Dim CopyFrom As String, CopyTo As String CopyFrom = Me.a ' هذا اسم الحقل الذي به رابط الملف المراد نسخه CopyTo = sPathDeskTop & Dir(CopyFrom) If Len(Dir(sPathDeskTop, vbDirectory)) = 0 Then MkDir (sPathDeskTop) If Len(Dir(CopyTo, vbDirectory)) = 0 Then FileCopy CopyFrom, CopyTo Else MsgBox "هذا الملف موجود مسبقا على سطح المكتب", vbOKOnly Exit Sub End If End Sub جعفر

للأسف احي احمد ، ما نقدر نعطيك جواب ، لأنه (والحمدلله) لم تحصل لنا المشكلة فنخبرك عن طريقة الحل ، وإنما نبحث ونقرأ عن الموضوع في الانترنت ، ونخبرك بالنصائح الموجودة ، وعليك التجربة 🙂 في هذه المحاولة ، ادخل مسار الشبكة في الرقم 7 (و اعد تشغيل الكمبيوتر) : .

اخي حامل المسك ، شكرا جزيلا على هذا الاطراء الجميل ، ولك مثل ما دعوت لي ، ومن اهمك امرهم 🙂 جعفر

الله يسلمك ، نتيجة الحقل مثل ما يقول اكسس هو : 2022-2021 وهذا ليس حقل تاريخ ، وانما حقل نص !! جعفر

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

الظاهر حظي فوق النخل اليوم 🙂 ابو عبدالله جاب اسمي مرتين ("هارد لك" اخوي موسى ، مع اننا نعرف انك المقصود بالاسم الاول 🙂 ) جعفر

السلام عليكم 🙂 حسب قرأتي من موقع مايكروسوفت الآن https://techcommunity.microsoft.com/t5/microsoft-365-blog/helping-users-stay-safe-blocking-internet-macros-by-default-in/ba-p/3071805 مايكروسوفت عملت تحديث يقوم بإلغاء التحديث الذي عمل المشكلة اعلاه ، لذا ، رجاء عمل تحديث للكمبيوتر الذي يحتوي على ملف الواجهة والكمبيوتر الذي يحتوي على ملف الجداول ، ورجاء إخبارنا عن النتيجة 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 اخوي موسى اعطاك سمكة ، واليك طريقة اصطياد السمكة بطريقة سهلة 🙂 جعفر

حياك الله اخوي ابو احمد في بيتك الافتراضي وسط اخوتك 🙂 جعفر

وعليكم السلام 🙂 تفضل 🙂 التغييرات اللي عملتها: 1. الوحدة النمطية "جلب الصور" تم تغييرها بالكامل ، 2. مناداة الدالة في الوحدة النمطية اعلاه اصبح : 'figura = GetOpenFile_CLT("c:\windows\desktop\", ".حدد مكان الصورة") figura = GetOpenFile("c:\windows\desktop\", ".حدد مكان الصورة") . وعليه ، فسواء استخدمت طريقتي ، او حذفت الدالة كلها واستخدمت دوال اخي @Moosak فالنتيجة سواء 🙂 جعفر الموظفين.accdb

السلام عليكم 🙂 اخي ابو احمد @AbuuAhmed اسمح لي اكون اول من يُهنّيك على الترقية 🙂 هي مجرد القاب للمحترفين ، وتعريف الباقين بكم 🙂 جعفر

وعليكم السلام 🙂 إذا ما عندك برنامج قراءة pdf على كمبيوترك (مثل Adobe Acrobat Reader او Fox it pdf Reader او ... ) ، فالاكسس لن يعرض ملف الـ pdf في النموذج ، وانما يُخرج لك هذه الرسالة !! تابع هذا الموضوع: فعندك حلين: 1. تنصب احد برامج قراءة pdf على كمبيوترك ، 2. او تفتح ملف pdf باليرنامح الافتراضي والذي قد يكون المتصفح Chrome او Edge. جعفر

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

وعليكم السلام 🙂 وقد قمت بشرح اوسع للدالة هنا : . جعفر

بالعكس ، كنت اتمنى اشوف استعلام يجمعهم كلهم 🙂 جعفر

تفضل 🙂 . جعفر

شكرا اخوي محمد 🙂 الآن عرفنا وين الخطأ !! اخونا الشربيني كان واضع كل كائنات امر الطباعة خطأ 🙄 جعفر

. . جعفر