علي المصري

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

ايضا اريد تحميل هذه الدروس

شكرا وبارك الله فيك

السلام عليكم ورحمة الله وبركاته سؤالي هو ماذا يعنى استعلام حذف؟وكيف يمكن عمله؟

السلام عليكم ورحمة الله وبركاته اود معرفة كيفية استخدام كود التفقيط باللغة العربية لدرجات الطلاب أرجو التوضيح بالشرح كما ان هناك الكثير من أكواد ادراج صوره في نموذج ولكني استخدمت احدهم صلح مع اكسيس 2010 ولم يصلح مع 2003 فارجو من الاخوة وضع كود خاص بـ 2003 مع الشرح وآخر لاكسيس 2010 مع الشرح وكل عام انتم بخير

شكرا لكم جميعا وان كنت فعلت ذلك فالفضل لله ثم مساعدتكم لي اخي محمد ايمن للأسف استخدمت كثيرا من مظاهر وخواص اكسيس 2010 فعندما حاولت تحويله إلى 2003 لم استطع وعلى حد علمي ان اكسيس 2007 و 2010 لهما نفس الامتداد accdb فاعذرني لم استطع التحويل وجزاكم الله خيرا

مرفق اول برنامج اقوم بعمله وذلك بفضل الله ثم الأخوة الكرام في المنتدى معذرة الملف اكسيس 2010 حاولت احوله إلى 2003 كل مرة تظهر فيها رسالة تفيد ان التنسيقات والماكرو يتطلب التنسيق الحالي 2010 فمعذرة username : ali password: ali TheFinalOk.rar

السلام عليكم ورحمة الله وبركاته بعد التجربة توصلت إلى الآتي : الكود يعمل على الجداول في حالة اوفيس 2003 كالتالي : Private Sub ToExcel_Click() DoCmd.OutputTo acOutputTable, "MainTable", "MicrosoftExcelBiff8(*.xls)", "", False Beep MsgBox "xls has been created", vbInformation, "Export xls" End Sub الكود يعمل على اوفيس 2010 كالتالي 'Function getFilName() As String Private Sub ToExcel_Click() DoCmd.OutputTo acOutputTable, "MainTable", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint 'xlxs تنسيق ملف اكسيل 2010 Beep MsgBox "xlsx has been created", vbInformation, "Export xlsx" End Sub حيث في الاخير يمكن تغيير الامتداد من xlsx ( تنسيق اوفيس 2007 وما بعده ) إلى xls ( تنسيق افيس 2003 وما قبله ) كما انني اشكركم لما قدمتوه لي من نصائح وتوجيهات حيث انني أتتممت البرنامج الذي اعمل عليه ( صيفنا مميز ) ولكني انهيته على أوفيس 2010 لما فيه من أشكال جماليه حين الانتهاء سوف ارفعه لكم لأنه أول مشروع لي وأريد ان آخذ برأيكم وكني سوف ارفعه اكسيس 2010 لانه كلما اردت تحويله تظهر رسالة تفيد ان هناك تنسيقات تحتاج إلى اوفيس 2010 شكرا لكم وان شاء الله سوف ابدأ ببرنامج جديد وهو خاص بعملي كمدرس رياضيات وهو برنامج خاص برصد الدرجات وطباعة شهادات وإخطار لولي الأمر كما اتمنى ان يكون قادرا على عمل احصائية عن الطلاب بالتقديرات ( ممتاز ( A) ، جيد جدا ( B) ، جيد (C ) ، مقبول (D) ، متوسط (E) ، ضعيف (F) ، ضعيف جدا (G) )

اضفت المكتبات ولكنه لا يعمل

-----------------

شكرا اخي ابو خليل هل يمكن استخدام DoCmd.OutputTo مع الجداول أم هي قاصرة على التقارير حيث أن DoCmd.TransferSpreadsheet يمكن استخدامها مع الكل أرجو التوضيح ولكم جزيل الشكر

الاخوة الكرام الكود التالي يسمح بحفظ الجدول او التقرير أو الاستعلام إلى ملف اكسيل On Error GoTo Err_ToExcel_Click Dim stDocName As String Dim theFilePath As String stDocName = "AliElbasry" 'DoCmd.OpenQuery stDocName theFilePath = Application.CurrentProject.Path theFilePath = theFilePath & stDocName & "" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, stDocName, theFilePath, True Exit_ToExcel_Click: Exit Sub Err_ToExcel_Click: MsgBox "Error" Resume Exit_ToExcel_Click End Sub ولكن الكود على حسب المسار المعطى له Application.CurrentProject.Path يقوم بحفظ ملف الاكسيل في نفس مكان قاعدة البيانات يعني اذا كان ملف قاعدة البيانات على سطح المكتب يتم الحفظ على سطح المكتب وخارج المجلد الذي به قاعدة البيانات نريد انه عند الضغط على الزر يظهر مربع حواري نستطيع من خلاله تحديد المكان المراد حفظ الملف فيه أو تعديل بحيث يتم الحفظ مباشرة داخل المجلد الذي يحوي القاعدةة

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

السلام عليكم ورحة الله وبركاته المرفق به نموذج به عدد 2 زر أمر ToExcel ToExcel2 الأول يقوم بتصدير الجدول إلى ملف اكسيل مباشرة بدون ان يعطى اي تنبية ( أة أن تظهر مربع حوار لكي أختار المكان الذب اريد الحفظ فيه ) اما الثاني فععند الضغط يظهر مربع حوار يتختر منه نوع الملف هل هو اكسيل 2000 - 2003 أو تكست او Pdf أو أتش تي ام ال ولكن اريد ان اعل بالزر الول لانه من خلاله استطيع الحفظ بالتنسيقات 2010 أو 2007 أو 2003 ....ولكن اريد التعديل عليه بحيث يتعال مع التقارير ولس الجداول مثل الزر الثاني ToExce2 المرفق به مجموعة من النماذج لادراج ساعة أو تاريخ أو نص متحرك DB123.rar

عند فتح نموذج على الوضع Maximum ألاحظ عدم النتاسق في المحتويات على الشاشة - العناصر م=إما على اليمين أو على اليسار وعند تعديل الارتساء الافقي والراسي يكون نفس الناتج فهل من كود يصحح الأوضاع اي يجع العناصر داخل النموذج في وضع متناسق مرفق نموذج ولقد بحثت فوجدت الكود التالي ولكني لم استطع التعامل معه Option Compare Database Option Explicit Public Sub ResizeControls(Formular As Form, ByVal StartFormularbreite As Long, ByVal StartFormularhöhe As Long) Dim CHANGE_FACTOR As Double Dim CHANGE_CONTROL As Control If Not Formular.WindowWidth = 0 Then CHANGE_FACTOR = Formular.WindowWidth / StartFormularbreite If Not CHANGE_FACTOR = 1 Then On Error Resume Next '*** Nicht ganz die feine Art, ich weiß If CHANGE_FACTOR > 1 Then Formular.Section(0).Height = Formular.Section(0).Height * CHANGE_FACTOR Formular.Section(1).Height = Formular.Section(1).Height * CHANGE_FACTOR Formular.Section(2).Height = Formular.Section(2).Height * CHANGE_FACTOR End If For Each CHANGE_CONTROL In Formular.Controls If CHANGE_CONTROL.ControlType = acSubform Then Dim UFOBREITE As Integer Dim UFOHÖHE As Integer UFOBREITE = CHANGE_CONTROL.Width UFOHÖHE = CHANGE_CONTROL.Height CHANGE_CONTROL.Width = CHANGE_CONTROL.Width * CHANGE_FACTOR CHANGE_CONTROL.Height = CHANGE_CONTROL.Height * CHANGE_FACTOR CHANGE_CONTROL.Top = CHANGE_CONTROL.Top * CHANGE_FACTOR CHANGE_CONTROL.Left = CHANGE_CONTROL.Left * CHANGE_FACTOR ResizeControls CHANGE_CONTROL.Form, UFOBREITE, UFOHÖHE Else CHANGE_CONTROL.Width = CHANGE_CONTROL.Width * CHANGE_FACTOR CHANGE_CONTROL.Height = CHANGE_CONTROL.Height * CHANGE_FACTOR CHANGE_CONTROL.Top = CHANGE_CONTROL.Top * CHANGE_FACTOR CHANGE_CONTROL.Left = CHANGE_CONTROL.Left * CHANGE_FACTOR CHANGE_CONTROL.FontSize = CHANGE_CONTROL.FontSize * CHANGE_FACTOR End If Next If CHANGE_FACTOR < 1 Then Formular.Section(0).Height = Formular.Section(0).Height * CHANGE_FACTOR Formular.Section(1).Height = Formular.Section(1).Height * CHANGE_FACTOR Formular.Section(2).Height = Formular.Section(2).Height * CHANGE_FACTOR End If Formular.Repaint On Error GoTo 0 End If End If End Sub Database41.rar

عندما استخدمت هذا الكود في اكسيس 2010 لم يعمل فما الحل ؟

شكرا لك استاذ : أحمد خلف ولكني قمت بالتعديل كما بالمرفق على حد ما تعلمته في الايام السابقة من هذا المنتدى عند فتح المرفق تجد نموذجين مرقمين بالرقمين 1 و 2 رقم 1 يعتمد على الاستعلام AliElbasryQ ورقم 2 يعتمد على الاستعلام AliElbasryQ2 وهو في الاصل لا يأخذ منه اي بيانات واريد منكم تعديل الكود حتى لا يعتمد على استعلام فقط يعمل على حسب البيانات المدرجة في رقم 2 NA_InformationBar.rar

السلام عليكم ورحمة الله وبركاته هل يمكن عمل عنوان النموذج بشكل يتحرك من اليمين إلى اليسار أو العكس أو هل يمكن عمل ذلك في تذييل النموذج

شكرا أخي الكريم

هل سيكون الكود في الشكل التالي صحيح 100% أم به شيئ خاطئ Private Sub CloseMe_Click() On Error GoTo Err_CloseMe_Click If MsgBox("هل تريد اغلاق النموذج", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "اغلاق") = vbNo Then Exit Sub Else DoCmd.Close Exit_CloseMe_Click: Exit Sub Err_CloseMe_Click: MsgBox Err.Description Resume Exit_CloseMe_Click End If End Sub

السلام عليكم ورحمة الله وبركاته اريد أن اعمل زر خروج ( غلق ) نموذج ولكن مع رسالة تحذيرية تنبه على هل تريد بالفعل الخروج من الشاشة الحالية مثلا وتشمل زري امر Ok , Cancle لدي الكود التالي Private Sub CloseMe_Click() On Error GoTo Err_CloseMe_Click If Me.Dirty Then Me.Dirty = False MsgBox "هل تريد الخروج من شاشة ادخال بيانات الطلاب", vbInformation, "صيفنا مميز 2012" DoCmd.close Exit_CloseMe_Click: Exit Sub Err_CloseMe_Click: MsgBox Err.Description Resume Exit_CloseMe_Click End Sub ولكن لا يوجد به زر Cancel مما لا يمكنني من الرجوع إلى الفورم أي انها تغلق ولا بد من فتحها من جديد فهل من تعديل

ممتازة الفكرة وتكون هي الافضل لو اكنملت بموضوع الايميل

آسف ولكني لم اجربه مع الاكسيس قبل ذلك وانا ذكرت هذا في الرد السابق اعذروني وسامحوني اردت ان اساعد فقط بالنسبة للكود هو نفس الكود ( على فكرة الكود اخذته من مشاركة موجودة في المنتدى ) هو يعمل جيدا معي على اكسيس 2010 ولكن عند تحويل الملف إلى أكسيس 2003 لا يعمل وتكون الرسالة كما بالصورة الموضحة كل اللي ما عملته من عندي انني غيرت قيمة filterIndex من القيمة 3 إلى القيمة 1 ليظهر جميع الملفات All file وليست Jpg فقط أو bmp فقط نشكر الاخوة على الاهتمام بالموضوع وعلى روح الحب المتعارف عليها في المنتدى الكريم

شكرا لك وجاري التجربة

عند تحويل الملف إلى اكسيس 2003 لا يعمل الكود الخاص بإدراج الصورة ويعطي خطأ في التالي Application.FileDialog(msoFileDialogFilePicker) فهل من تصحيح