محمد أبوعبدالله

ما شاء الله لا قوة الا بالله مبدع يا بشمهندس ربنا يزيك

موضوع مفيد جداً

يجب ان تكون في نفسار البرنامج وهي منفصلة عن البرنامج وليست مضمنة له تحياتي

برجاء ارفاق ملف للتعديل عليه تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل =DateAdd("m";[Text1];[Text3]) [Text1] = الرقم المراد اضافته [Text3] = التاريخ الذي تريد الاضافة عليه تحياتي

ضع الكود التالي في وحدة نمطية Function AddAppProperty(strName As String, _ varType As Variant, varValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddProp_Err dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function Function Xicon() Dim intX As Integer Const DB_Text As Long = 10 ' AppTitle intX = AddAppProperty("AppTitle", DB_Text, "عنوان البرنامج") ' AppIcon intX = AddAppProperty("AppIcon", DB_Text, CurrentProject.Path & "\N.ico") CurrentDb.Properties("UseAppIconForFrmRpt") = 1 End Function ثم استدعي الدالة في النموذج الرئيسي للبرنامج Private Sub Form_Load() Call Xicon End Sub او عن طريق ماكرو والافضل تسميته autoexec ليبدأ مع عمل البرنامج RunCode ثم اسم الدالة Xicon() تحياتي

جرب المرفق هل ترى الاكواد كلمة السر = 11111 db.accdb

ضع علامة صح كما بالصورة الثانية

افضل طريقة لحماية الاكواد هي تحويل الملف الى mde في نسخة 2003 وتحويل الملف الى accde بدءاً من نسخة 2007 فاعلى تحياتي

ضع الكود الخاص بعرض الملف بين هذا الكود On Error GoTo Err_Xpath Exit_Xpath: Exit Function Err_Xpath: Resume ExitXpath تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل هذا الموضوع سيفيدك جدا ان شاء الله تحياتي

تفضل Q.accdb تحياتي

هل تقصد هذا https://www.officena.net/ib/topic/87214-طريقة-في-عمل-ارسال-اشعارات-من-جهاز-الى-جهاز https://www.officena.net/ib/topic/62544-نظام-مراسلة-واشعارات-شبيه-بالفيس-بوك/

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

وعليكم السلام ورحمة الله وبركاته حالياً لا يتم عرض شىء ولا تبقى اخر صورة استبدل الكود التالي Private Sub Form_Current() On Error GoTo HandleErr On Error Resume Next Dim rs As Object If Not IsNull([PicFile]) Then [imgPicture].Picture = [PicFile] SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'." Else [imgPicture].Picture = "" SysCmd acSysCmdClearStatus End If Exit Sub HandleErr: If Err = 2220 Then [imgPicture].Picture = "" SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'" Else MsgBox Err.Description, vbExclamation End If End Sub بالكود التالي Private Sub Form_Current() On Error GoTo HandleErr On Error Resume Next Dim rs As Object If Not IsNull([PicFile]) Then [imgPicture].Picture = [PicFile] SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'." Else [imgPicture].Picture = "C:\Users\mohamed\OneDrive\Desktop\matrix.jpg" SysCmd acSysCmdClearStatus End If Exit Sub HandleErr: If Err = 2220 Then [imgPicture].Picture = "C:\Users\mohamed\OneDrive\Desktop\matrix.jpg" SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'" Else MsgBox Err.Description, vbExclamation End If End Sub مع تغيير مسار الصورة C:\Users\mohamed\OneDrive\Desktop\matrix.jpg تحياتي

ضع الكود التالي في التقرير Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize End Sub تحياتي عذراً استاذب الفاضل ابو عارف لم انتبه لمشاركتك الكريمة تحياتي

تفضل استعلام + نموذج tp.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم NewName: [Text1] & "" & [Text2] & "" & [Text3] & "" & [Text4] تحياتي

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

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

فضلاً جرب المرفق m.rar تحياتي

بالاضافة الى ما تفضل به استاذنا الفاضل qathi انشىء جدول باسم الدورات ( Courses) وضع به Id الطالب كحقل غريب وقم بعمل علاقة بين جدول الطلاب وبينه ( رأس الى اطراف ) ثم ضعه هذا الجدول في النموذج الذي تعمل عليه تحياتي

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

بعد اذن استاذنا الفاضل أبو خليل انسخ الملف الى المسار التالي C:\WINDOWS\SYSWOW64 ثم افتح Command كمدير للنظام ( Run as administrator) ثم اضف الامر التالي regsvr32 C:\Windows\SysWOW64\MSCOMCTL.OCX تحياتي