علي المصري

اضم صوتي إلى s s m لا يوجد أي خطأ والكود يعمل جيدا

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

جربت الكود على الملف المرفق ويعمل جيدا 1111.rar

شكرا لكم وجزاكم الله خيرا وجزا الله خيرا صاحب الموضوع الأصلي

الموضوع منقول من احد المنتديات الان يمكنك تجزئة الاسم الكامل إلى اسم اول - اسم ثاني وهكذا مع مراعاة الاسماء المركبة فواصل الاسم.rar

باستخدام برنامج FlippingBook PDF Publisher جزاك الله خيرا

جزاك الله خيرا ورحم الله ابيك رحمة واسعة إن شاء الله

تفضل لعل المرفق يكون هو المطلوب كشوف المناداة.rar

مساهمة بسيطة الكتاب على شكل كتاب الكتروني

شكر جزيلا جزاكم الله خيرا

الاستاذ الفاضل أبوخليل هل هذه الخاصية لاكسيس 2003 فقط عند تشغيل الملف ظهرت الرسالة التالية

ضع الكود التالي في حدث بعد التحديث للقائمة المنسدلة contry في النموذج frm Private Sub Contry_AfterUpdate() If (Me.Contry.Value = "Jordanians" Or Me.Contry.Value = "Kazakhs" Or _ Me.Contry.Value = "Kenyans" Or Me.Contry.Value = "Koreans") Then Me.DateOfBrith.Enabled = True Me.Age.Enabled = True Else Me.DateOfBrith.Enabled = False Me.Age.Enabled = False End If End Sub

انا استخدمت الكود مع المرفق جرب عند التشغيل الضغط على shift test.rar

لابد من وضع الكود في موديول جديد ثم عمل ماكرو AutoExec RunCode يتم كتابة اسم الدالة RunAtStart() لا تنسى قراءة آخر سطرين في الكود Shift.txt

جربت الكثير من الاكواد لتعطيل أو إلغاء مفتاح Shift ولم يفلح أي منها واخيرا نتيجة البحث وجد الكود التالي Option Compare Database Option Compare Database Public Function RunAtStart() ' KillIt DetermineByPass End Function Public Function KillIt() As Integer If SysCmd(SYSCMD_RUNTIME) = 0 Then MsgBox ("This Application cannot be opened directly with Microsoft Access," & vbCrLf & _ "and can ONLY be opened with the desktop shortcut." & vbCrLf & vbCrLf & _ "Please double click the shortcut on your desktop to open This Application." & vbCrLf & vbCrLf & _ "This application will now close."), vbOKOnly, "My Application Name" Application.Quit End If End Function Public Function DetermineByPass() If Len(Dir(CurrentProject.Path & "\LetMeIn.txt")) = 0 Then SetStartupProperties (False) Else SetStartupProperties (True) End If End Function Public Sub SetStartupProperties(bolParameter As Boolean) ChangeProperty "StartupShowDBWindow", dbBoolean, bolParameter ChangeProperty "AllowBreakIntoCode", dbBoolean, bolParameter ChangeProperty "AllowSpecialKeys", dbBoolean, bolParameter ChangeProperty "AllowBypassKey", dbBoolean, bolParameter ChangeProperty "StartupShowStatusBar", dbBoolean, bolParameter ChangeProperty "AllowBuiltinToolbars", dbBoolean, bolParameter ChangeProperty "AllowFullMenus", dbBoolean, bolParameter ChangeProperty "AllowShortcutMenus", dbBoolean, bolParameter End Sub Public Function ChangeProperty(strPropName As String, varPropType As Variant, _ varPropValue As Variant) As Integer Dim dbs As Database, prp As Property Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ChangeProperty = False Resume Change_Bye End If End Function 'Add an AutoExec and set it to RunCode - RunAtStart() اعمل ماكرو AutoExec واكتب الامر التالي RunCode ثم اكتب RunAtStart() انا جربته على اكسيس 2013

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

أرفق لحضراتكم ملف به التالي تصدير الجداول او التقارير إلى اكسيل أو pdf استيراد بيانات من اكسيل بشرط نفس الترتيب للأعمدة ونفس المسميات للأعمدة إلى جدول في اكسيس مع حذف البيانات القديمة الموجودة به Private Sub Command7_Click() On Error GoTo Err_Command7_Click Dim Filepath As String Filepath = CurrentProject.Path & "\StudentData.xlsx" DoCmd.SetWarnings False DoCmd.OpenQuery "Query1", acViewNormal, acReadOnly DoCmd.TransferSpreadsheet acImport, , "Table1", Filepath, True Exit_Command7_Click: Exit Sub Err_Command7_Click: MsgBox "the file not exist" Resume Exit_Command7_Click DoCmd.SetWarnings True End Sub إذا اردت ان تعمل عملية اضافة فقط مع ابقاء البيانات القديمة احذف السطر التالي من الكود DoCmd.OpenQuery "Query1", acViewNormal, acReadOnly ارجو ان يكون مفيد الرابط التالي على ميديا فير اضغط هنا

مثال لكل الطرق ExportToExcel-Pdf.rar

شكرا للجميع جزاكم الله خيرا

بعد إذن الاستاذ الفاضل أبو خليل يمكن كتابة الكود كما يلي ليظهر لك المربع الحواري يسالك عن المكان الذي تريد حفظ الملف فيه DoCmd.OutputTo acOutputReport, "repClass", acFormatXLS, "", True, , , acExportQualityPrint كما يمكن استخدام الجدول مباشر أو استعلام للحصول على نفس النتيجة فيمكن استخدام الجدول نفسه لحفظه او تصديره إلى اكسيل 2007-2013 بالكود التالي DoCmd.OutputTo acOutputTable, "tblclass", "ExcelWorkbook(*.xlsx)", "", True, "", , acExportQualityPrint أو DoCmd.OutputTo acOutputTable, "tblclass", acFormatXLSX, "", True, , , acExportQualityPrint أو استخدام الكود التالي للحفظ إلى اكسيل 2003 DoCmd.OutputTo acOutputTable, "tblclass", "MicrosoftExcelBiff8(*.xls)", "", True, "", , acExportQualityPrint اما اذا اردت استخدام استعلام فقط استبدل acOutputTable بــــ acOutputQuery مع كتابة اسم الاستعلام بدلان من اسم الجدول

جزاك الله خيرا شكرا

يمكنك اكمال الشرح من المرفق في المشاركة الأولى

لابد من تحميل كافة المرفقات

السلام عليكم ورحمة الله وبركاته إلى الأعضاء الكرام شكرا جزيلا لكل من ساعدني في هذا البرنامج وأخص بالذكر الاستاذ أبو خليل شكرا للجميع وجزاكم الله خيرا اسم المستخدم هو نفسه كلمة المرور الملف مقسم إلى ملفين عند فك الضغط اضغط على الجزء الأول واعمل استخراج وسوف يتم تجميع الملفين إلى ملف واحد شرح البرنامج تجده على الرابط التالي بسم الله توكلت على الله لابد من تحميل كافة المرفقات Follow up V3.part01.rar Follow up V3.part02.rar

نسخة 2003 البرنامج.rar