كل الانشطه

لاصحاب العلم و الفضل حاولت ان اعمل وحدة نمطية 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

مع الاعتذار ، فانا مسافر من يوم غد 🙂

اعتقد الجواب موجود في اصل الموضوع :

العفو يا صديقي .. يبقى خليني أحاول أمتعك بالتجربة بنفسك إنت والأصدقاء والأخوة ، والتي تم دعمها بالتأثيرات الصوتية أيضاً .. الإصدار المتوافق مع 64 :- Connect 4 - 64.zip الإصدار المتوافق مع 32 :- Connect 4 - 32.zip

بالفعل ، وأعلم هذا .. ولكن كنوع من الجرأة كما سميتها تطرقت لهذه الفكرة من باب التجربة ليس إلا 😉 وبالفعل رسائل الخطأ غير واضحة ، لأن الرسالة الإنجليزية متأصلة في آكسيس ولم أتمكن من ضبطها وتعديلها داخلياً إلا من خلال استعمال حدث النموذج عند الخطأ .. ولم أقم بإدراج إجابتي لأنها خارجة عن الشروط 😜 هذا سيكون عليك في الشهر القادم إن شاء المولى عز وجل .. ( ما رأيك؟ 👀 ) أنت هنا يا صديقي ، قمت بزرع الشروط جميعها داخل خصائص الجدول ، وكذلك رسالة الرد العامة حتى لو كان حقلاً واحداً مخالفاً .. الدمج بين الطريقتين فكرة جميلة أيضاً .. ملاحظتي ، وهي أن السادة الأخوة والأصدقاء الخبراء والموهوبين في المنتدى يبدو أنهم لم يتشجعوا للمشاركة في هذا الموضوع الصغير 😎

ولماذا لا نجمع بين مزايا كل حل كما بالمرفق هنا؟ ولكن لاأدري إذا ما كان ماكرو البيانات يندرج ضمن المحضورات المذكورة في التحدي Challange_01_03.accdb

المعذرة اخي الفاضل ، كان لازم اكتب توضيح لتعجبي 🙏 برمجيا ، مرفقك يؤدي الغرض من هذا التحدي ، بإستثناء : اين الخطأ في هذا السجل : . غير معروف مكان الخطأ ، مما يضطر المستخدم الى البحث يدويا في كل حقل !!

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

شكرا تم الحل ج مساعدة.xlsm

حلو قوى و عجبتنى جدا نكهتك الفوكشية

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة احترافية في ترجمة بحوث باللغة الإنجليزية وفق معايير أكاديمية دقيقة تراعي الدقة اللغوية والمصطلحات التخصصية، نُساعد الباحثين في إعداد وصياغة أبحاث علمية بالإنجليزية بأسلوب أكاديمي رصين يتوافق مع متطلبات الجامعات والمجلات العلمية المحكمة، كما نوفر دعمًا متكاملًا لترجمة وصياغة بحوث باللغة الإنجليزية مع مراجعة لغوية وعلمية شاملة، بما يُسهم في رفع جودة البحث وتعزيز فرص قبوله ونشره وتميّزه الأكاديمي.

بسيطة بدون خصائص الحقول ولو من الجدول فقط يكون Table Validation Rule كالتالى : (DateDiff("yyyy",[DOB],Date())>=18 Or [DOB] Is Null) And ([HireDate]>=#1/1/2020# And [HireDate]<=Date() Or [HireDate] Is Null) And ([JobGrade] In ("A","B","C") Or [JobGrade] Is Null) And ([JobGrade]="A" And [Salary]<=10000 Or [JobGrade]="B" And [Salary]<=7000 Or [JobGrade]="C" And [Salary]<=5000 Or [Salary] Is Null) يكون Table Validation Text كالتالى : خطأ في الحفظ: - العمر <18 سنة - HireDate قبل 1/1/2020 أو مستقبلي - Salary > حد الدرجة (A:10000 B:7000 C:5000)

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمات احترافية في الترجمة البحثية والترجمة العلمية تُلبّي احتياجات الباحثين وطلبة الدراسات العليا بدقة أكاديمية عالية، نُوفّر ترجمة نصوص علمية وبحثية تراعي المصطلحات التخصصية والأسلوب الأكاديمي المعتمد، مع مراجعة لغوية وعلمية شاملة لضمان سلامة المعنى وجودة الصياغة، بما يُسهم في رفع مستوى الأعمال البحثية وتعزيز فرص قبولها ونشرها أكاديميًا.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة الترجمة البحثية والعلمية المتخصصة وفق معايير أكاديمية دقيقة تضمن سلامة المعنى ودقة المصطلحات العلمية، نُوفّر ترجمة علمية من اللغة العربية إلى الإنجليزية بأسلوب احترافي يحافظ على المنهجية العلمية وصياغة الرسائل والأبحاث الجامعية، كما نُساعد الباحثين في تحويل الرسائل من اللغة العربية إلى الإنجليزية مع مراجعة لغوية وعلمية شاملة، بما يُسهم في رفع جودة العمل البحثي وتعزيز فرص قبوله ونشره في الجامعات والمجلات العلمية الدولية.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمات احترافية في ترجمة النصوص العلمية وترجمة البحوث العلمية وفق أعلى المعايير الأكاديمية، مع الالتزام بالدقة اللغوية والمصطلحات التخصصية المعتمدة، ويُعد موقع مكتبتك موقعًا للترجمة الأكاديمية موثوقًا يخدم الباحثين وطلبة الدراسات العليا؛ حيث يجمع بين الترجمة المتخصصة والمراجعة العلمية لضمان سلامة المعنى وجودة الصياغة، بما يُسهم في رفع مستوى البحث وتعزيز فرص قبوله ونشره في الجامعات والمجلات العلمية.

تُقدّم شركة مكتبتك – شبكة المعلومات العربية خدمة احترافية يقودها أفضل مترجم للنصوص الأكاديمية، بخبرة متخصصة في مختلف المجالات العلمية، نُوفّر ترجمة بحث علمي بدقة عالية تراعي المصطلحات التخصصية والأسلوب الأكاديمي المعتمد في الجامعات والمجلات العلمية المحكمة، كما نضع بين يدي الباحثين مترجم بحوث جامعية قادرًا على نقل المعنى العلمي بسلاسة واحتراف، مع مراجعة لغوية وعلمية شاملة، بما يُسهم في رفع جودة البحث وزيادة فرص قبوله ونشره وتميّزه الأكاديمي.

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

وعليكم السلام ورحمة الله وبركاته هناك امر لم استوعبه في ملفك هل المعادلة في N1 تتعامل مع الحلية C2 فقط ام مع كل العمود C2:C اذا كانت مع كل العمود فيفضل كتابتها في N2 ثم تسحب الى اسقل حتى تتعامل كل حلية في C مع ما يقابلها في N اما اذا كانت المعاملة محدودة C2 مع N1 فقط جرب الملف المرفق ج مساعدة.xlsm

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

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

لا تنسوا أن الأفكار قد تكون كثيرة ، والحلول لم تنتهي بعد 😉

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

استاذ الفاضل جازاك الله كل خير على المساعدة