علي المصري

جزاك الله خير أستاذ سليم بارك الله فيك جميل جيدا ولكني لم افهم مكونات الدة المستخدمة هل يمكنك توضيح اجزائها وهل يمكن ترتيب الطلاب الحاصل على العلامات من 0 إلى 50 مثلا من الدرجة الأصغر إلى الأكبر هل يمكن تحويل الدلة إلى كود vba متأسف لكثرة الأسئلة ولكن بدون الأسئلة كيف نتعلم شكرا جزيلا

السلام عليكم ورحمة الله وبركاته يمكنك تحويل التقرير إلى pdf ومن ثم عند الطباعة تحدد الطابعة وتحدد حجم الورقة كود التحويل إلى pdf DoCmd.OutputTo acOutputReport, ReportName, acFormatPDF, , True حيث ReportName هو اسم التقرير

مبارك عليك الترقية بالتوفيق ان شاء الله

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

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

شكرا جزيلا على سرعة الرد ولكن عند تخفيض الأمان بالبرنامج اود ان استرجع الامان مرة أخرى بعد غلق البرنامج وهو ما يمكن فعله بالكود ولكن لو استطعنا ان نجعل الكود يعمل عند تشغيل البرنامج وليس فتح او تحميل لنموذج ما اعتقد اننا سوف نتغلب على المشكلة ولكن كيف يمكن عمل ذلك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟!!!!!!!!!!!!!!

السلام عليكم ورحمة الله وبركاته تفضل أعضاء المنتدى بطرح موضوع تخفيض امان الماكر برمجيا ويوجد عدة موضوعات تتحدث عن ذلك ولقد اخترت منها الكود التالي : If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" Then CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" End If ولكن هذا الكود قام بالوظيفة في أول مرة استعمله ولكنه بعد ذلك عند اضافته لبرامج أخرى لم يعمل كما انه على أجهزة أخرى أيضا لا يعمل وأعطى خطأ في RegWrite فهل من تفسير وهل يمكن وضع الكود في موديول جديد وجعله يعمل بمجرد فتح البرنامج أي انه لا يعتمد على نموذج معين؟ هل يختلف هذا الكود في حالة الويندوز 32 بت أو 64 بت أو الاوفيس 32بت او 64 بت

ضع نفس الكود في حدث الحالي للنموذج

تفضل Database2.rar

تفضل الحل osama.rar ---------

ارفق نسخة mdb او accdb لكي يمكن التعامل مع الاكواد --------------

بعد الاذن من اخي عبدالله الحلواني ترقيم الاعمدة في القائمة المنسدلة تبدأ من صفر القائمة المنسدلة التي لديل بها id في العمود الأول وهو يأخذ الرقم 0 في البرمجة وهكذا

السلام عليكم ورحمة الله وبركاته المرفق هو جزء من قاعدة بيانات خاصة بي ولكن الكود ليس من تأليفي ولكنه لاحد من أعضاء المنتدى ومنتديات اخرى هذه هي الاكواد المستخدمة بالإضافة إلى وحدة نمطية موجود في المرفق Private Sub cmdErasePic_Click() If Not IsNull([ImagePath]) Then If MsgBox("هل تريد بالتأكيد استبدال هذه الصورة ؟", vbYesNo + vbQuestion, "") = vbYes Then [Image48].Picture = "" [ImagePath] = Null SysCmd acSysCmdClearStatus End If End If End Sub Private Sub cmdInsertPic_Click() Dim OFN As OPENFILENAME On Error GoTo Err_cmdInsertPic_Click With OFN .lpstrTitle = "Images" If Not IsNull([ImagePath]) Then .lpstrFile = [ImagePath] .flags = &H1804 .lpstrFilter = MakeFilterString("Image files (*.bmp;*.gif;*.jpg;*.wmf)", "*.bmp;*.gif;*.jpg;*.wmf", _ "All files (*.*)", "*.*") End With If OpenDialog(OFN) Then [ImagePath] = OFN.lpstrFile [Image48].Picture = [ImagePath] SysCmd acSysCmdSetStatus, "Afbeelding: '" & [ImagePath] & "'." End If Exit Sub Err_cmdInsertPic_Click: MsgBox Err.Description, vbExclamation End Sub Private Sub Form_Current() If Not Me.NewRecord Then 13 On Error GoTo HandleErr 14 If Not IsNull([ImagePath]) Then 15 [Image48].Picture = [ImagePath] 16 SysCmd acSysCmdSetStatus, "Image: '" & [ImagePath] & "'." 17 Else 18 [Image48].Picture = "" 19 SysCmd acSysCmdClearStatus 20 End If 21 Exit Sub 22 23 HandleErr: 24 If Err = 2220 Then 25 [Image48].Picture = "" 26 SysCmd acSysCmdSetStatus, "Can't open image: '" & [ImagePath] & "'" 27 Else 28 MsgBox Err.Description, vbExclamation 29 End If End If End Sub Option Compare Database Option Explicit Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (OFN As OPENFILENAME) As Boolean Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _ "GetSaveFileNameA" (OFN As OPENFILENAME) As Boolean Private Const ALLFILES = "All files" Function MakeFilterString(ParamArray varFilt() As Variant) As String Dim strFilter As String Dim intRes As Integer Dim intNum As Integer intNum = UBound(varFilt) If (intNum <> -1) Then For intRes = 0 To intNum strFilter = strFilter & varFilt(intRes) & vbNullChar Next If intNum Mod 2 = 0 Then strFilter = strFilter & "*.*" & vbNullChar End If strFilter = strFilter & vbNullChar End If MakeFilterString = strFilter End Function Private Sub InitOFN(OFN As OPENFILENAME) With OFN .hwndOwner = hWndAccessApp .hInstance = 0 .lpstrCustomFilter = vbNullString .nMaxCustFilter = 0 .lpfnHook = 0 .lpTemplateName = 0 .lCustData = 0 .nMaxFile = 511 .lpstrFileTitle = String(512, vbNullChar) .nMaxFileTitle = 511 .lStructSize = Len(OFN) If .lpstrFilter = "" Then .lpstrFilter = MakeFilterString(ALLFILES) End If .lpstrFile = .lpstrFile & String(512 - Len(.lpstrFile), vbNullChar) End With End Sub Function OpenDialog(OFN As OPENFILENAME) As Boolean Dim intRes As Integer InitOFN OFN intRes = GetOpenFileName(OFN) If intRes Then With OFN .lpstrFile = Left$(.lpstrFile, InStr(.lpstrFile, vbNullChar) - 1) End With End If OpenDialog = intRes End Function AliElmasry.rar

السلام عليكم ورحمة الله وبركاته في الجدول ShippingInfo تجد ان نوع حقل ال ClintName هو Number حوله إلى text 7.rar

السلام عليكم ورحمة الله وبركاته هذه سمات المؤمنين اللهم احفظ الجميع بحفظك الجميل ورد كل غائب كما رددت يوسف لأبيه يعقوب وفك كرب مكروب كما أخرجت يونس من بطن الحوت جزاكم الله خيرا

اعمل تقرير عادي ثم اعمل تجميع وترتيب خسب اسم الموظف ومن الخصائص لتزييل الاسم اعمل فرض صفحة جديدة بعده كما بالمرفق mashro2.rar

ممكن ان شاء الله لكن للأسف لا استطيع العمل على التعديلات حاليا ً في اقرب فرصة ان شاء الله سوف أقوم بالتعديل

ولكن من الأفضل وضع الكود التالي عند اغلاق البرنامج If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "0" Then CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "0", "REG_DWORD" End If لعودة الأمان مرة اخرى

http://www.officena.net/ib/topic/55122-اخيرا-تم-بحمد-الله-برنامج-درجات-التقويم-المستمر/#comment-348647

البرنامج بعد تصحيح بعض الأخطاء التي حصلت عليها عند الاستخدام Marks final Access 2003 - V3.rar

الكود مكتوب بطريقة خطأ التصحيح كالتالي Balance = DFirst("[Balance]", "QBillCr", "[Customername]=" & Forms!search_customer.Customername) الرابط التالي به شرح لهذه الدالة وطريقة استخدامه في كل الحالات الممكنة https://msdn.microsoft.com/en-us/library/office/ff195230.aspx

جرب التعديل التالي فواتيرالمبيعات.rar

السلام عليكم ورحمة الله وبركاته جرب الطريقة الموجودة في الملف المرفق حيث تم إضافة نموذج اسمه SearchMe لعملية البحث وعند الضغط على الاسم أو الرقم يظهر لك نموذج الذي اسمه main به بيانات الاسم الذي تم اختياره اما اذا تم الضغط على زر إضافة جديد سوف تفتح نموذج main به الحقول فارغة وقابلة لاضافة البيانات التي تريدها kkk.rar

برنامج لرصد الدرجات تجده في الموقع أيضا

اخي الكريم kamel2711 مرفك المرفق ما هو غير الملف الخاص بي بدون تعدين وهو يعمل بالكود الذي كتبته ولا يعمل بالماكرو الذي اضفته شكرا