نجوم المشاركات

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

بسم الله نبدأ عامنا الحالي بهذه الموسوعة 1200_Visual_Basic_macro_examples.rar عسى أن ينال إعجابكم

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

السلام عليكم ورحمة الله هذا حل آخر بمعادلات بسيطة مع عمود مساعد... بن علية 333.rar

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

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

السلام عليكم ورحمته الله وبركاته نأمل الاهتمام بهذا الفوروم المميز اضفت بهذا المرفق تكست بوكس ليحتوى على قائمة الاصناف شاكر فضل الجميع **** وجزاكم الله خيرا فوروم بحث مميز+1111.rar

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

تعديل بالمرفقات تصحيح العلاقة بين الجداول plane.rar

السلام عليكم بحثت مطولا عن طريقة ما لحفظ التطبيق بصيغة accde باستخدام الاكواد وقد وجدت هذه الأكواد التى يتم تشغيل بعضها من خلال vb.net وبعضها خاص بالأكسس ولكن للأسف لم تعمل معى بشكل صحيح '1- By Vb.net 'Here's some code I tried (to make this work you need to set a reference to Microsoft Access 11.0 'Object Library) : Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Integer) As Integer Private Sub BuildMDE(ByRef strSource As String, ByRef strDest As String) 'strSource is the mdb file name ioAccess = New Microsoft.Office.Interop.Access.Application ioAccess.Visible = True SetForegroundWindow(ioAccess.hWndAccessApp()) 'Just to make sure Access is the foreground window! Try System.Windows.Forms.SendKeys.Send(strSource & "{Enter}{Enter}") System.Windows.Forms.SendKeys.Send("{Enter}") ioAccess.RunCommand(Microsoft.Office.Interop.Access.AcCommand.acCmdMakeMDEFile) Catch ex As Exception MessageBox.Show(ex.ToString) Finally System.Windows.Forms.Application.DoEvents() ioAccess.Quit() ioAccess = Nothing System.GC.Collect() 'OK we need som serious cleaning up here ...... End Try End Sub ---------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------- '2- By vb.net Function GenerateMDEFile(ByVal MyPath As String) Dim NAcc As Access.Application Dim convPath As String = "C:\convDB.mdb" Try NAcc = CreateObject("Access.Application") NAcc.ConvertAccessProject(MyPath, convPath, AcFileFormat.acFileFormatAccess2002) System.Windows.Forms.SendKeys.SendWait(MyPath & "{Enter}{Enter}") System.Windows.Forms.SendKeys.SendWait(MyPath & "{Enter}") NAcc.DoCmd.RunCommand(AcCommand.acCmdMakeMDEFile) Catch ex As Exception MsgBox("Exception: " & ex.Message & " " & ex.ToString, MsgBoxStyle.Critical) Finally System.Windows.Forms.Application.DoEvents() NAcc.Quit() NAcc = Nothing End Try End Function --------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------- ' On Access Vba Code Public Function MakeACCDESysCmd(InPath As String, OutPath As String) Dim app As New Access.Application app.AutomationSecurity = msoAutomationSecurityLow app.SysCmd 603, InPath, OutPath End Function يحتوى الأكسس على هذا الأمر الجاهز Docmd.RunCommand ACcmdMakeMDEFile ولكننى لم أستطع معرفة طريقة تمرير مسار قاعدة البيانات اليها فهل من مساعدة وجزاكم الله خيرا

لا حرمنا الله منكم وزادكم فضلا وعلما وقد عمل عندى أيضا على 2010 ويبدو أن الخطأ كان بعدم اضافة مرجع access 14.0 object Library ملاحظاتى على الكود: 1- يجب اضافة هذا المرجع access 14.0 object Library 2- يجب أن تكون قاعدة البيانات الهدف قابلة لأخذ نسخة accde / أو Mde وذلك بعمل Compile Database جزاكم الله عنا خيرا - جمعة مباركة عليكم جميعا

وعليكم السلام هذا يابو عبدالله يعمل عندي على الاصدار 2003 جرب وغير امتداد الملفات لعله يعمل عندك Private Sub zer1_Click() CreateMDE End Sub Public Sub CreateMDE() Const strcMDBFullPath As String = "d:\db1.mdb" Const strcMDEFullPath As String = "d:\db1.mde" Dim objACC As Access.Application Set objACC = New Access.Application objACC.SysCmd 603, strcMDBFullPath, strcMDEFullPath objACC.Quit acQuitSaveNone Set objACC = Nothing End Sub main.rar

أخي الكريم علي المصري إثراءً للموضوع وإضافة للحل الرائع المقدم من أخونا المتميز سليم إليك حل بالأكواد مع الشرح بالتفصيل ..لتستطيع التعديل بما يتناسب مع ملفك الأصلي Sub FilterMarks() 'تعريف المتغيرات Dim Counter As Integer, LR As Integer, I As Integer 'إلغاء تحديث الشاشة لتسريع الكود Application.ScreenUpdating = False 'بدء التعامل مع ورقة العمل النشطة With ActiveSheet 'مسح النطاق الذي ستوضع فيه النتائج .Range("J10:M1000").ClearContents 'حلقة تكرارية من 1 إلى 3 حسب عدد الأعمدة التي سيتم التعامل معها 'فالأعمدة التي سيتم التعامل معها وفلترتها هي العمود ف1 و ف2 و ف3 For Counter = 1 To 3 'إلغاء الفلترة في ورقة العمل قبل البدء في عمليات الفلترة .AutoFilterMode = False 'فلترة النطاق حسب الحقل رقم 2 في الحلقة الأولى ورقم 3 في الحلقة الثانية ورقم 4 في الحلقة الثالثة 'لنستطيع التعامل مع الثلاثة حقول ف1 و ف2 وف3 [Counter] وهنا استخدمنا المتغير المسمى 'وشرط الفلترة أكبر من الدرجة صفر وأقل من أو يساوي الدرجة 50 .Range("B2:E2").AutoFilter Field:=Counter + 1, Criteria1:=">0", Operator:=xlAnd, Criteria2:="<=50" 'نسخ النطاق الذي يحتوي الأسماء ويكون النسخ للخلايا الظاهرة فقط والتي تطابق الشروط .Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy 'لصق الأسماء في العمود المناسب حيث يكون اللصق في أول حلقة في العمود رقم 11 'وفي الحلقة الثانية في العمود رقم 12 وفي الحلقة الثالثة في العمود رقم 13 'اللصق يكون للقيم فقط بحيث نحافظ على التنسيقات الموجودة في نطاق النتائج .Cells(10, Counter + 10).PasteSpecial xlPasteValues 'تحديد أول خلية في ورقة العمل .Range("A1").Select 'الانتقال للحلقة التالية Next Counter 'إلغاء الفلترة في ورقة العمل .AutoFilterMode = False 'تحديد آخر صف في نطاق النتائج من خلال معرفة عدد صفوف النطاق الحالي مضافاً إليها 7 'يمثل الرقم 7 عدد الصفوف السابقة للنطاق الحالي أي نطاق النتائج LR = .Range("K9").CurrentRegion.Rows.Count + 7 'حلقة تكرارية من الصف رقم 10 إلى آخر صف في النطاق الحالي For I = 10 To LR 'الخلية في العمود العاشر تساوي قيمة العداد مطروح منه 9 ليعطي تسلسل للنتائج .Cells(I, "J") = I - 9 'الانتقال للحلقة التالية Next I 'انتهاء التعامل مع ورقة العمل الحالية End With 'إلغاء خاصية القص واللصق بعد عمليات النسخ Application.CutCopyMode = False 'إعادة تفعيل تحديث الشاشة Application.ScreenUpdating = True End Sub تقبل تحياتي Filter & AutoFilter Tutorial YasserKhalil.rar

بسم الله الرحمن الرحيم ...... قمت بعونه تعالى بعمل برنامج لتحليل الشخصية من خلال الاجابة على مجموعة من الاسئلة حيث ان لكل سوال عدة اجابات لكل اجابة درجة معينة وفي المحصلة تحصل على شخصيتك وفقاً لدرجاتك .. ارجو من الاعضاء ابداء ارائهم بالبرنامج . منتظر ردودكم وملاحظاتكم . وشكرا اخوكم احصائي النت _____________.rar

المواضيع المشابهة 1) 24/02/2005 بعد الكتابة في حقل ينتقل الى حقل اخر 2) 13/02/2005 مشكلة في استخدام قاعدة التحقق من الصحة ؟ 3) 28/01/2005 كيف احضر قيمة حقل من نموذج لنموذج اخر 4) 24/10/2004 قيمة حقل من حقل ثاني 5) 16/07/2004 حقل نص ارغب في ترحيله