كل الانشطه

طيب بالعودة إلى ملفك وفكرتك ، انت تستعمل مفتاح Tab للإنتقال 5 مرات .. لذا جرب استبدال الأقواس [tab] بهذه الأقواس {tab} .

السلام عليكم ورحمة الله وبركاته جراك الله خيرا أخي الكريم foksh الكود يعمل ولكن لا يرسل رسائل أيضا تأتي هذه الرسائل

ماذا تعنيه بهذا أي Requery تقصد بالضبط

كيف يمكنني عمل برنامج أكسس من مجموعة شيتات أكسيل متفرقة ؟

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

.. ما شاء الله ، فكرة جميلة ونظيفة ولا تشوبها شائبة في التنفيذ . بس استخدام Requery الشيء الجميل في الموضوع هو أنك إذا أردت تغيير المنطق ، ففقط تغيره في مكان واحد وهو الكلاس ، وليس في 50 نموذجاً مثلاً . جزاك الله خيراً لهذه المشاركة الجميلة والقيمة ..

السلام عليكم ورحمة الله وبركاته مرفق ملف به عدد من البيانات كل بيان له تسعة أسطر أريد أن يكون النتاتج تسعة أعمدة وأن يتسع الملف لعدد 500 صف اوفيسنا.xlsx

تم نقل الرد إلى هذا الموضوع المنفرد

العفو أستاذنا الجليل ابو خليل ، لكم ذلك إن شاء الله 😇 . ليتك جربت أولاً الطريقة قبل ردك هذا بهذا الوصف 😇 . وصدقني لو سألت صديقك شات جي بي تي عن مثلاً:- أنا أرى أنه وبجهودك وأفكارك ، يمكن ان يكون ناتج 1+1=3 بطرق تحايلية ، إلا أن صديقي يخالفنا الرأي تماماً. وهذا أزعجني بتشكيكه هذا. وحينها سيأتيك بإجابات من كوكب الغزالين بأنه يمكن تحقيق 1+1=3 وللتجربة ، قمت بإرسال إيميل الى البريدين المسجلين في ملفك المرفق لتجربتك ، فتحقق من وصولهما إذا أردت

كلامك صح وانا حاولت يشتى الطرق حتى مع معظم منصات الذكاء الصناعي ماتوصلنا الا للحل الذي ارسلته لك .

انا جربيتها وجربت طرق أخرى مثل الاوتلوك للاسف كلها طرق فاشلة ... هل جربت الارسال من الجيميل للياهو جرب من الجيميل للجيميل بتوصل الرسالة صح . لكن من الجيميل للياهو الرسالة تم الارسال لكنها لم تصل للياهو .... الى ان توصلت لما ادرجته بمشاركتي السابفة . وهذا كان رد تشات جي بي تي :- 📌 لماذا Gmail يرسل إلى Gmail فقط ولا يرسل إلى Yahoo؟ لأن: Google تحظر الإرسال إلى بعض السيرفرات (مثل Yahoo / Hotmail) إذا كان الإرسال من تطبيقات قديمة (CDO / Access) بدون OAuth. Gmail يعتبرها Less Secure Relay ويقوم بـ رفض التسليم أو إسقاط الرسالة بدون رجوع خطأ واضح. ✅ لماذا نجح إلى Gmail؟ لأن Gmail ↔ Gmail داخل نفس الشبكة ولا يحتاج تحقق إضافي من الطرف الآخر.

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

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

استاذنا الكبير اشكرك على عنايتك و اهتمامك ملفك نجح 100% وكان تحليل الاداء 100% نسخة حرفيا و كان تحليل الاداء يحتاج الى استخدام عاصر اقل بدون تعبك سؤال اخير اذا كانت الاكواد صحيحة ( اظنها كذالك) هل هناك ضرر من تركها بحجمها شكرا

شكرا جزيلا استاذنا .. معلومة جديدة .. وحقيقة ليتك تفرد هذه المشاركة بموضوع وعنوان جديد يخصها لتفردها ومن اجل سهولة البحث والوصول اليها على فكرة الباسوورد 16 حرف هو المتبع الآن في مواقع بوابات رسائل الـــ sms من اجل ربط التطبيقات بالبوابة للارسال من خلالها ويسمونه Token

عفوا .. اقصد ان الدالة تقوم بحماية الحقول بينما هي محمية بالفعل لجعل الحقول قابلة للتحرير اعتقد ستصبح الدالة هكذا Private Sub Add_New_Record() Me.comresearch_01 = Null dateoftrans.Locked = False Me.stat.Locked = False Me.F_DATAILS.Locked = False DoCmd.GoToRecord , , acNewRec End Sub

بالنسبة للدالة فمكانها الفورم نفسه .. لأنك تطبق على حقول موجودة فعلا في الفورم انظر التعديل .. الامر يسير يمكنك صنع اي دالة تحمل اجراءات محددة تتكرر في اكثر من موقع على النموذج Private Sub Add_New_Record() Me.comresearch_01 = Null dateoftrans.Locked = True Me.stat.Locked = True Me.F_DATAILS.Locked = True DoCmd.GoToRecord , , acNewRec End Sub 'نناديها هكذا : 'Call Add_New_Record علما لا اعلم ما فائدة تمكين الحقول في الدالة لأنها ممكنة فعلا .. الا اذا كانت في الأصل عندك غير ممكنة في المثال المرفق طبقت الدالة خلف زر جديد مشروع خليفة2.rar

عمنا و استاذنا الكبير سامحنى ان اخطأ القصد عمنا الكبير ساعدنى فى اهم طلب بخصوص شاشة تكويد الحسابات و لكن هناك F_HEAD يوجد به اكواد كبيرة و ان كانت صحيحة و كانت نصحتك لية تقليل عناصر التحكم و كنت فى بداية المشروع و عندما انتهيت من المشروع عملت تحليل اداء و هناك تذكرت نصيحتك و حاولة عمل وحدة نمطية و ابحث عن الاكواد المكررة داخل النموذج و استبدالها باستدعاءها ( دى كان تفكرى و ان صح ) لتقليل الاكواد الكبيرة اعتذر على الاطالة و اشكرك على الاهتمام و العناية

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

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

لاصحاب العلم و الفضل حاولت ان اعمل وحدة نمطية NewFORM و عند استدعاء ها لم ينجح الامر نصحنى قبل تحليل الاداء عمنا و استاذنا ابو خليل بتقليل عناصر التحكم بعد ما انتهى من طلباتى حاولت و لم اوفق المرفق لمن يجد عنده الوقت و الصبر انا عارف ان الموضوع كبير و محتاج وقت ارجو تعديل زر جديد الى Private Sub comnew_Click() DoCmd.GoToRecord , , acNewRec DoCmd.GoToControl "dateoftrans" Me.comresearch_01 = Null Me.dateoftrans.Locked = False Me.stat.Locked = False Me.F_DATAILS.Locked = False Me.comsave.Enabled = True 'xxxxxxxx Me.comexit.Enabled = False End Sub ACC.rar

عن تجربتي الشخصية سأتحدث . حيث قمت سابقاً بتنفيذ الفكرة لمشروع آخر ليرسل الإيميلات من بريده في Gmail إلى أي ايميل تريده ؛ دون إدخال أي وسيط أو موقع خارجي . حيث سيكون تعاملك مع خدمات جوجل مباشرة قمت بإنشاء جدول جديد باسم tbl_EmailSettings . ويحتوي الحقول التالية :- IDMail = حقل ترقيم تلقائي . SenderEmail = حقل نصي ، ويمثل أيميلك الذي تريد استخدامه كإيميل مرسل . SMTPServer = حقل نصي ، ويمثل الخدمة المستخدمة في Gmail لإرسال البريد الإلكتروني . وتكون عادة = smtp.gmail.com SMTPPort = حقل رقمي ، ويمثل المنفذ الذي سنستخدمه للإيميلات الصادرة . وهو عادة لـ Gmail يكون 465 . SMTPPassword = حقل نصي ، وهو الحقل المهم جداً هنا والذي ستكون قيمته كلمة مرور التطبيق الذي سنقوم بإنشائه من خلال بريدك الإلكتروني الذي سجلت به في الحقل SenderEmail . أما كيف نحصل عليه فسيكون الشرح تالياً . UseSSL = حقل من نوع Yes/No . وهو مهم إلى حد ما . والسبب أنه جميع خدمات البريد الحديثة (Gmail, Yahoo, Hotmail) تشترط وجود تشفير SSL . لذا فقيمته بالنسبة لك ستكون دائماً True . الآن كيف نحصل على SMTPPassword المقدم من Gmail ؟ إليك الطريقة خطوة بخطوة ببساطة . في متصفحك ، ادخل إلى ( إعدادات حساب Google ) . تحقق أولاً وقبل كل شيء من تفعيل ميزة ( التحقق بخطوتين ) أو ( 2-Step Verification ) في حسابك . ابحث في خانة البحث عن ( كلمة مرور التطبيق ) أو ( كلمات مرور التطبيقات )، او ( App Password ) ، حسب لغة الموقع لديك . ادخل كلمة المرور الخاصة بالإيميل الذي تريد استخدامه كإيميل مرسل . في خانة ( اسم التطبيق ) أو ( App Name ) ، أدخل اسم للتطبيق ، مثلاً ( SenderMailer ) . ثم انقر زر ( إنشاء أو Creat ) . الآن سيزودك الموقع بكلمة من 16 حرف ، انسخها والصقها في الحقل SMTPPassword . الآن في الجدول المخصص للأعدادات ، سيكون لديك الحقول المهمة وقيمها كالتالي :- SMTPServer = عنوان الخادم وهو smtp.gmail.com SMTPPort وهو المنفذ = 465 SMTPPassword = كلمة المرور التي حصلنا عليها من 16 حرف ( يفضل بدون مسافات ) UseSSL = نعم أو علامة صح SenderEmail = إيميلك الذي سجلت به والذي ستستخدمه للإرسال الآن في زر الإرسال المخصص لكل ايميل بشكل فردي ، سنستخدم الكود البسيط التالي :- Dim result As String Dim strRecipient As String Dim strMessageBody As String strRecipient = Trim(Nz(Me.B2.Value, "")) strMessageBody = Nz(Me.Fonda.Value, "") If strRecipient = "" Then MsgBox "يرجى إدخال إيميل المستلم أولاً", vbExclamation + vbMsgBoxRight, "" Me.B2.SetFocus Exit Sub End If result = SendSmartEmail(strRecipient, "رسالة تجريبية", strMessageBody) If result = "Success" Then MsgBox "تم الإرسال بنجاح", vbInformation + vbMsgBoxRight, "" Else MsgBox "فشل في الإرسال", vbCritical + vbMsgBoxRight, "خطأ" End If وفي زر الإرسال الجماعي ، سنستخدم الكود التالي :- Dim rs As DAO.Recordset Dim result As String Dim counter As Integer Dim strTo As String Dim strMsg As String Set rs = Me.RecordsetClone If rs.RecordCount = 0 Then MsgBox "لا توجد سجلات للإرسال إليها في هذا النموذج", vbInformation + vbMsgBoxRight, "" Exit Sub End If If MsgBox("هل أنت متأكد من إرسال إيميلات لجميع السجلات الحالية؟", vbQuestion + vbYesNo + vbMsgBoxRight, "تأكيد الإرسال") = vbNo Then Exit Sub counter = 0 rs.MoveFirst Do Until rs.EOF strTo = Nz(rs!Gmail, "") strMsg = Nz(rs!Fonda, "") If strTo <> "" Then result = SendSmartEmail(strTo, "تنبيه بريدي", strMsg) If result = "Success" Then counter = counter + 1 End If End If rs.MoveNext Loop MsgBox "تمت عملية الإرسال بنجاح" & vbCrLf & _ "عدد الإيميلات المرسلة: " & counter, vbInformation + vbMsgBoxRight, "" Set rs = Nothing وملاحظة بسيطة ، وهي تستطيع تغيير موضوع عنوان البريد الذي سيصل لأي شخص ترسل له ( بشكل منفرد ) بتغيير قيمة "رسالة تجريبية" داخل زر الإرسال . أو من خلال الزر المخصص للإرسال الجماعي بتغيير قيمة "تنبيه بريدي" ليكون هو العنوان لموضوع البريد . وهذا ملفك بعد الإضافات التي ذكرتها . املأ الجدول بالإيميل و كلمة المرور التي من 16 حرف فقط . Nouveau.zip الفكرة و المشاركة كانت تتبع الموضوع التالي هنا ، وتم فصلها لإفرادها وكي تعم الفائدة على من يمر باحثاً عن فكرة إرسال بريد من آكسيس دون قيود .

استاذ @بلال بلال طبعاً الموضوع صعب جداً فلازم تنتبه بكل التفاصيل ... أولا كان ممكن الارسال عبر الايميل والباسوورد العادي . اما الان فللامان والخصوصية الباس الحين يأتي من مزود الخدمة . وبما ان بريد جوجل يتعامل فقط مع بريد جووجل ولايتعامل مع الياهو غيرها . فسنستخدم (Zaho) . لازم نسجل به كما بالشرح بملفين الوورد المرفقين واحد بالعربي والثاني بالفرنسي . كي نأتي يالتالي . 1- ايميللك بــ Zaho بعد تسجيلك به ووضعه بجدول اعدادات المرسل (tbl_MailSender) بالحقل (EmailSenderAddress) . 2- الباسوورد كما بالشرح ذو 12 حرف ووضعه بالحقل (AppPassword) . 3- اليك المرفق محتوياته وجرب انا معك باي استفسار . ووافني بالرد . Nouveau_Bilal_Yamen.rar