jjafferr

وعليكم السلام
 
نعمل وحدة نمطية اسمها C_Word :
function C_Word(T as string) as string T=Replace(T,"مصطفي","مصطفى") T=Replace(T,"يحيي","يحيى") T=Replace(T,"مجدي","مجدى") T=Replace(T,"عبد الحميد","عبدالحميد") T=Replace(T,"محمداحمد","محمد احمد") C_Word=T end function  
وتناديها (على افتراض ان اسم الحقل الذي به المعلومة للتصحيح هو test) :
من الاستعلام A:C_Word([test]) من النموذج او التقرير =C_Word([test])  
جعفر

هذا معناه ان الكود لا يستطيع رؤية مسار التخزين في السيرفر ،
فنصيحتي هي عمل مجلد داخل السيرفر ، ولنسمية Temp مثلا ، فيصبح مسار السيرفر:
\\192.168.20.1\Temp\123.mdb .
وللعلم ، فامر Xcopy هو:
Xcopy "Source" "Destination" يعني في الكود حقك المصدر هو \\192.168.20.1\123.mdb ومكان التخزين هو C:\Users\" & Environ("Username") & "\Desktop\123.mdb" Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) .
ان شاء الله ما تكون قالبهم
 
جعفر

وعليكم السلام 🙂
 
هاي الملف لما ما كان فيه طريقة مباشرة للتصدير لملف pdf مباشرة ،
اما الآن ، فيمكنك استعمال كود كالتالي ، ويصبح ملف pdf جاهز:
DoCmd.OutputTo acOutputReport, "Report Name", acFormatPDF, "D:\Temp\abc.pdf", False, , , acExportQualityPrint  
جعفر

تفضل 🙂Encode_Decode.zip

وعليكم السلام 🙂
 
تذكر لما تروح تأخذ سيارتك لتصليح الماكينة ، ولما ترجع يقولون لك تم تصليح السيارة ، ويعطوك علبة مليانه براغي ، يقول لك هذه البراغي كانت زيادة ، فما كان في داعي نرجعها مكانها 🙂
الله يسلمك ، هذا اللي عملته مع النموذج ، كان مليان كود زيادة ، فجعلته كله اسفل النموذج ، واوقفت عمله ، وحذفت صفحة كود التقرير الفاضية 😁
 
تركت التقرير الاصل report1_ORIGINAL ، وعملت تغييرات اكثر من مرة على التقرير الآخر ، وما كان فيه مشكلة ، جرب واخبرنا النتيجة لوسمحت 🙂
 
جعفر
Badges.zip

تفضل ، مجموعة روابط 
.
.
 
 

اها ، يعني طريقة كلمة السر اشتغلت 🙂
 
وهذا رابط ان شاء الله يحل مشكلتك
 
جعفر

وعليكم السلام 🙂
 
قد يكون هذا الحل لك
 
جعفر

تفضل 🙂
1551.Relink.zip

طريقتي لا تعرف اذا كانت الجملة المراد تغيير مكانها "ميت غمر" ، في اي مكان من الحقل ، فهي تحذفها ، ثم تضيفها في البداية ،
فإذا هذه الجملة ممكن ان تكون في اماكن متفرقة من الحقل ، فطريقتي لا تصلح ،
الافضل استعمال هذا الكود ، لأنه يتأكد من وجود الجملة في نهاية الحقل :
Trim(IIf(Right([Title],7)="ميت غمر","ميت غمر " & Left([Title],Len([Title])-Len("ميت غمر")),[Title]))  
جعفر

وعليكم السلام 🙂
 
همممم
ذكرتني بقصة صارت معي:
كنت في مزرعة احد الاهل وكان زارع برتقال ، وقطف واحدة من الشجرة لونها اصفر فاقع اعطاني آكلها ،
اكلتها وقلت له ان البرتقال اللي في السوق اللي لونها برتقالي ، طعمها يختلف ، فرد عليّ بأن هذا طعم البرتقال الاصلي ، بينما الذي في السوق فقد تم قطفه وتجهيزه وتعليبه وتبريده وتسفيره من دوله الى اخرى وبيعه من تاجر الى آخر الى ان وصل عندك ، اي بعد فنره ، فيتغير لونه وطعمه.
اذن البرتقال الطازج بلونه وطعمه ولأننا ما متعودين عليه ، اعتقدت بأنه ليس الافضل !!
 
الاكسس شخصية محترمة تنفذ اوامرك بالضبط 100% ، ولا تلف ولا تضبط الصور إلا بأمرك ، واللي يتم عرضه هو واقعا الصور الحقيقية التي تم تصويرها ،
ولكنك توصلت الى هذا القرار بعد ان فتحت الصور في برامج عرض الصور ، واللي تلقائيا تقوم بتدوير الصور ، من اعدادات البرنامج ، مثلا

.
جعفر

وعليكم السلام 🙂
 
في حدث "On NoData" اكتب
msgbox "لا توجد بيانات" cancel=true  
جعفر

السلام عليكم 🙂
 
استعمل هذا الكود للتحديث:
CDate(Replace([تاريخ شهاده التسجيل],Chr(254),"")) .
هكذا

.
وجئت بالرقم 254 من هنا

 
جعفر

وعليكم السلام 🙂
 
فيه 3 طرق تجي على بالي ، ولكن يجب عرض التقرير في وضع معاينة الطباعة Print Preview :
1. اعد ترتيب الحقول ، واستعمل خط اكبر ، وبعدين ، والاهم ، انك توسع قسم "التفصيل" Detail ، بأنك تنزل ذيل الصفحة قدر حاجتك (شوف الاسهم) ،
بحيث توسع شوي ، وتعرض التقرير في وضع معاينة الطباعة ، وتشوف اذا محتاج تزحفه اكثر واكثر .
ملاحظة تقدر تستخدم Page Breaker كما سيتم شرحه في رقم 3 ، او طريقة رقم 2 ، بحيث لا تحتاج معها الى توسيع قسم "التفصيل"

.
 
2. تنقر على قسم "التفصيل" Detail ، ثم من الاعدادادت تختار : اضافة صفحة بعد القسم

.
 
3. استعمل Page Breaker تحت الحقول في قسم "التفصيل" Detail 

.
جعفر
 
1549.تقرير لموظف واحد.accdb.zip

تفضل
Private Sub JO_AfterUpdate() If Me.JO = "0" Then Me.nNAME = "ahmed" Me.fNAME = "ali" ElseIf Me.JO = "00" Then Me.nNAME = "khaled" Me.fNAME = "hassan" End If End Sub  
جعفر

اخوي مصطفى 🙂
 
رجاء لا تنقر على "ارسل تقرير" ، إلا اذا عندك مشكلة مع عضو او مشاركة غير مناسبة من عضو ، فالتقرير يذهب الى ادارة الموقع 🙂

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

وعليكم السلام ورحمة الله وبركاته 🙂
 
سيدي الفاضل ، يجب الاشارة الى اسم النموذج الفرعي الذي به البيانات "email5" ، فيصبح كود الحقل "sub" :
=" شهادة " & " الطالب / " & [email5]![toname] & " بالصف / " & [email5]![الصف] & " رقم الملف / " & [email5]![id]  
جعفر

وعليكم السلام 🙂
 
الاسهل استخدام المسار الكامل :
rs.FindFirst "[bookname] = '" & Forms!fbookmain!fbooksub!stry & "'"  
جعفر

شوف نتائج الاستعلام 3 ، ان شاء الله تكون مرادك ، وإلا ، فمحتاج معلومات ومثال من بياناتك لوسمحت 🙂
 
جعفر
1540.1.A.accdb.zip

السلام عليكم 🙂
 
على قدر السؤال تأتي الاجابة 🙂
هل تريد التقرير هكذا:

.

.

.
جعفر
1538.Two_Column_Report.accdb.zip

عفوا يا جماعة ، الخطأ مني 😪
 
استعملوا هذا السطر 
Source_File_Path = Me.Parent!pate & "\" & Me.name_morfke .
يعني كودي في اول مشاركة يصبح بعد التعديل :
Private Sub name_morfke_Click() Dim Source_File_Path As String, Destination_File_Path As String Source_File_Path = me.parent!pate & "\" & Me.name_morfke Destination_File_Path = Environ("Temp") & "\" & Me.name_morfke FileCopy Source_File_Path, Destination_File_Path Application.FollowHyperlink (Destination_File_Path) EcryptDcryptImage (Destination_File_Path) End Sub Private Sub Form_Close() On Error Resume Next Dim Srst As DAO.Recordset Set Srst = Me.RecordsetClone Do Until Srst.EOF Kill Environ("Temp") & "\" & Srst!name_morfke Srst.MoveNext Loop End Sub .
واليكم المرفق وبه التعديلات السابقة والاخيرة والجديدة 🙂
 
جعفر
Archiving_Encripted_Attachment.zip

وعليكم السلام 🙂
 
هي بالفعل في اعدادات الوندوز ،
عملها يدويا :
 
.
وبرمجيا :
 
 
جعفر

يا هلا ومرحبا jo 🙂
 
الخطوتين:
1. الالتزام بالقائمة: نعم ،
2. حدث "عند عدم الوجود في القائمة" ، وتضع هذا الكود
Private Sub Combo0_NotInList(NewData As String, Response As Integer) MsgBox "لابد من الاختيار من القائمة" Response = acDataErrContinue Me.Combo0.Undo End Sub .
وتستطيع الحصول على هذا الكود وغيره من مساعد الاكسس:

.
جعفر

وعليكم السلام 🙂
 
هناك عدة محاولات هنا
 
 
جعفر

وعليكم السلام ابو ماجد 🙂
 
نصيحة ، لو ما حصلت على اجابة خلال يومين ، اكتب تفاصيل اكثر 🙂
 
جعفر
compobox.zip