أبو عبدالله الحلوانى

السلام عليكم بحثت مطولا عن طريقة ما لحفظ التطبيق بصيغة 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 ولكننى لم أستطع معرفة طريقة تمرير مسار قاعدة البيانات اليها فهل من مساعدة وجزاكم الله خيرا

مبارك يالغالى والى مزيد من التقدم

جزاك الله خيرا , ولكننى كنت أقصد بعد التحويل الى صيغة accde - وأيضا قد أفدت من الرابط كثيرا أحسن الله اليكم والى أستاذينا الحبيبين جعفر ورمهان بارك الله لنا بكم أحسن الله اليك ( دائما تأتينا بالحل الصعب , ولكن الحل الجذرى أيضا ) - وقد أطمعنا كرمكم بطلب المزيد - هلا أوضحتم لنا مزيدا من التفصيل حول طريقة الاتصال والتنفيذ عن بعد ... و.... لتعم الفائدة ... و .... جزاكم الله خيرا الفكرة ممتازة جدا وفتحت الى أفقا بعيدا - وطبعا أبعد من اقليم الصعيد الذى لم أتعداه الا قليلا اذا فسنحتاج الى دليل والله المستعان ).

السلام عليكم بعد تحويل البرنامج الى صيغة accde بنسخة أكسس 32 بت لم يعمل على نسخة أكسس 64 بت وتظهر رسالة مفادها أن بيئة العمل مختلفة فهل من حل لهذه المشكلة غير تغير نسخة الأكسس وجزاكم الله خيرا

السلام عليكم جرب الآن تشغيل الكود وأخبرنا بالنتائج expire_date.rar

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

السلام عليكم جربى هذا الحل لعله يفى بالغرض AgeQuery.rar

تابع هذه الروابط لعلها تفيدك https://www.youtube.com/watch?v=hER2QSbuS8Q https://www.youtube.com/watch?v=5V6mQ7CtuKM http://www.access-programmers.co.uk/forums/showthread.php?t=221317 وبامكانك متابعت البحث على جوجل لتجد المزيد ان شاء الله تابع هذه الروابط لعلها تفيدك https://www.youtube.com/watch?v=hER2QSbuS8Q https://www.youtube.com/watch?v=5V6mQ7CtuKM http://www.access-programmers.co.uk/forums/showthread.php?t=221317 وبامكانك متابعت البحث على جوجل لتجد المزيد ان شاء الله تابع هذه الروابط لعلها تفيدك https://www.youtube.com/watch?v=hER2QSbuS8Q https://www.youtube.com/watch?v=5V6mQ7CtuKM http://www.access-programmers.co.uk/forums/showthread.php?t=221317 وبامكانك متابعت البحث على جوجل لتجد المزيد ان شاء الله

السلام عليكم جرب هذا لعله يوافى مرادك 1mdb.zip

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

أولا - أشكر الأستاذ محمد ايمن جزاك الله خيرا , ولى استفسار كيف تم وضع الأرقام التوضيحية فوق الأعمدة ثانيا - أما عن طريقة صنع المخطط وفقا للرابط الأول - طريقة سهلة للغاية تعجبت من صنعها وجزا الله صانعها خيرا 1- نقوم بانشاء نموذج بأى طريقة من طرق التصميم ونربطه بأحد الجداول أو الاستعلامات لتكون مصدرا لسجلاته ( ويا حبذا لوكان استعلاما لكونه يشتمل على معاير التصفية التى نريدها). 2- من خصائص النموذج تبويب (تنسيق - format) نضبط خاصية (العرض الافتراضى - Default View ) الى (مخطط - PivotChart) هذا كل شىء - (افتحى النموذج وشاهدى تابة مهام جديدة تم فتحها معه لتحديد الخصائص شكل المخطط المراد)

السلام عليكم شاهد هذا الموضوع لعله يفيدك وشاهد هذا الرابط أيضا وبه زيادة فائدة بشرح طريقة العمل http://www.arabmoheet.net/aspnetforum/amf/cba887c2-476b-4fe1-806f-7836e6341fd2.aspx?pageno=2

السلام عليكم تفضل لعل هذا مطلبك ولكن ليش ها الضحكة الطويلة - ولا لأن اسمك فرحان d.zip

انظر الصورة المرفقة طريقة سريعة لاعداد التقارير

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

تفضل ولا تنسانا من صالح الدعوات وضعية الموظف.zip

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

جرب المرفق التالى لعله يوافى مطلبك forminfrst.zip

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

جزاك الله خيرا النهل من علمكم خير بكثير من الجوجل - على الأقل لن يقول لى جوجل أحسن الله اليك

وماذا تعنى بالارتساء أخى الكريم

تفضل تم تحويل كود أستاذنا أبو خليل الى وحدة نمطية (موديل) والتطبيق على المرفق الأخير QUS2.rar

السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا أستاذنا أبو خليل - اسمحلى باستفسار مناسب للموضوع ان سمح لنا صاحب الموضوع أيضا جزاه الله خيرا - فلطالما وددت معرفة وظيفة كل من ( Split - InStr) والفارق بينهما أحسن الله اليكم جميعا وجزاكم عنا خيرا

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

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