ابوخليل

الأمر يسير سوف اعمل على تعديل المرفق

الموضوع تم طرحه قبل سنتين واكثر وصاحب الموضوع يسأل عن الترقيم فقط يمكنك كتابة موضوع جديد بما تريد يغلق ،،،،

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

تمام شكرا لك استاذ حمدي والشكر موصول للاستاذ موسى

لم اتمكن من ارسال اي بريد علما اني املك عدد 2 من البريد يبدوا ان الخدمة حجبت او الجي ميل الخاص بي بحاجة الى اعدادات خاصة ننتظر آراء الاخوة الاعزاء

اعانك الله اخي حمدي انصحك تركز على جزء واحد فقط يا ايميل يا واتساب الواتساب لايحتاج الى ايميل وباسوورد

عليكم السلام DoCmd.RunSQL "DELETE tbl1.*, tbl1.n FROM tbl1 WHERE (((tbl1.n)=[forms]![FORM1]![n]))"

اخي حمدي اتوقع اعرف ما تفكر به وهو ارسال التقرير لكل طالب حسب درجاته انظر الى المرفقات اعلاه لعلك تستفيد منها وسوف اعمل ان شاء الله ان تيسر الوقت على مساعدتك

اكيد ممكن تفضل استاذنا العزيز واعتقد انها ضمن الروابط التي تفضل بها حبيبنا ابو جودي Send Email.rar Course certificates -Mohd+Moosa.zip

السلام عليكم لم اجد في المثال ايميل المرسل ولا حقل للباسوورد هل تستخدم اوتلوك للارسال ؟ اذا نعم : فسوف ارفق لك مثالا للاستاذ القدير يوسف احمد مشابه تماما لمطلوبك اذا لا : سوف ارفق لك مثالا وعملا مشتركا للاستاذ موسى وآخرين كان اخر تعديل لـ د كاف يار ... وهو ايضا مشابه لطلبك ولكن يجب اولا حفظ الشهادات على الكمبيوتر ثم ارسالها لاحقا بالبريد

السلام عليكم شرح وافي استاذ خليفة وجميل ، جزيت خيرا احب اضيف للاخ السائل طريقة فتح قاعدة BE بعد اضافة كلمة المرور لها من خلال الواجهات افتح الواجهات ثم اعمل اعادة ارتباط بالجداول من خلال : بيانات خارجية / اختر اكسس ثم اختر ارتباط عند اختيارك للقاعدة BE سوف يطالبك اكسس بادخال كلمة المرور بكذا تم تحقيق طلبك

عليكم السلام فقط نضع معيارا في الاستعلام مصدر بيانات التقرير test2.accdb

مثلك تماما انا استخدم ويندوز 7 32 بت اوفيس 2010 علما ان الاوفيس ليس له دخل في ذلك حيث اننا نتعامل مع مجلدات وندوز

اظهره لي وندوز من خيارات المجلدات انظر الصورة :

عليكم السلام هذه محتويات المجلد

السلام عليكم تم تعديل المرفق كالتالي 1- تعطيل عمل الزر .. 2- تطبيق مطلوبك على مربع السرد النصف الاول بمعنى انه سوف يتم ارسال التقرير حسب الاسم في مربع السرد يمكنك اكمال العملية وارى انك تجمع تقاريرك كلها في مربع تحرير واحد ويكون الفرق في تسمية التقارير مثلا : دراسات1 ، دراسات2 وهكذا ... تجربة2.rar

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

بالنسبة لانكماش التقرير من الخصائص / لسان التبويب : تنسيق قم بتغيير خاصية .. تغيير حجم تلقائي الى : ( لا ) بدلا من نعم

تأكد من مكتباتك .. خاصة ما لون بالازرق

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

افتح النموذج الفرعي سداد على التصميم افتح الخصائص / لسان التبويب : بيانات غير الخاصية : ادخال بيانات من (لا) الى (نعم) ... واحفظ

السبب هو كبر حجم الملفات حيث تم اعداد الكود للتعامل مع الملفات والصور التي احجامها بالكيلوبايت ، فلا باس هنا ان يتعامل مع كامل حجم الملف اما اذا كانت الملفات كبيرة فيلزم تطبيق التشفير على جزء من الملف تجد ادناه انه تم تعديل الكود ليتناسب مع اي حجم حيث يتم التطبيق على جزء من الملف ، حسب ما يقتضيه الحال لاحظ الرقم 5 فهو بيت القصيد ايضا لاحظ اني جعلت وظيفته عامه ليتم مناداته من اي مكان في البرنامج لذا اجعله في وحدة نمطية عامة Public Function EcryptDcryptImage(sFileSpec As String) Dim iFle As Long Dim iByteCount As Long Dim i As Long Dim ii As Byte iFle = FreeFile Open sFileSpec For Binary As iFle iByteCount = LOF(iFle) For i = 1 To Mid(iByteCount, 5) Get iFle, i, ii ii = ii Xor &HFF Put iFle, i, ii Next i Close iFle End Function

وعليكم السلام ورحمة الله وبركاته هذه الوظيفة تشفر الصورة بنقرة ، وبالنقرة الثانية تفك التشفير يمكنك ادراجها عند جلب الصور وكذلك عند عرضها المهم ان تضعها في مكانها المناسب Private Sub zer1_Click() EcryptDcryptImage ([CurrentProject].[Path] & "\image1" & ".jpg") End Sub Public Sub EcryptDcryptImage(sFileSpec As String) Dim iFle As Long Dim iByteCount As Long Dim i As Long Dim ii As Byte iFle = FreeFile Open sFileSpec For Binary As iFle iByteCount = LOF(iFle) For i = 1 To iByteCount Get iFle, i, ii ii = ii Xor &HFF Put iFle, i, ii Next i Close iFle If UCase$(Right$(sFileSpec, 1)) = "." Then Name sFileSpec As Left$(sFileSpec, Len(sFileSpec) - 1) Else Name sFileSpec As sFileSpec & "." End If End Sub

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

افضل طريقة وهي الاسهل بعد تقسيم قاعدة البيانات الى واجهات و جداول خلفية ، يتم آليا اخذ نسخة احتياطية من الجداول عند كل اغلاق للقاعدة او للنموذج الرئيسي