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

السلام عليكم نرجو ارفاق مثال للتطبيق عليه

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

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

السلام عليكم جرب هذا المرفق ووافنا بالنتائج Base de données1.rar

السلام عليكم جرب هذا الحل ووافنا بالنتائج Za-EMP7.rar

لا ليست المشكلة هنا أولا - هذا الجدول ومجموعة الجداول التى يبدأ اسمها ب هذه الحروف الأربع (MSys) اسمى هذه الجداول جداول النظام (system tabel) و التى يستخدمها الأكسس دون تدخل منا وأى عبث بها سيؤدى الى تدمير قاعدة البيانات الخاصة بك أو الحاقها بضرر بالغ لا يمكن تداركه بالغالب ثانيا - أعتقد أن مشكلتك بأحد أكواد الدوارات ( For - Next ) أو (Do - Loop) والتى لم تستطع ايقافها أو لم تجعل لها حدا تقف عنده ثالثا- وعلى كل كما ذكر أستاذى وأخى جعفر أعطنا مثالا فليس من رأى كمن سمع

أعتقد أن هذا الذى تريده جرب ووافنا بالنتائج خيارات الترقيم.rar

هذا الذى ندندن حوله - ايش تعنى بترقم متصل أو منفصل للوارد وعلى أى اعتبار سيكون الانفصال أو الاتصال بالترقيم

هذا ما فهمت أوضح لى ان كان صحيحا أم خاطئا ليكن أن القسم الذى لدينا الآن هو قسم استقبال وارسال البريد (مثلا) هناك بريد وارد يتم ترقيمه 1 -2 -3 وهكذا على أى اعتبار تريد تغير الترقيم هل هو المستخدم الخاص بارسال البريد الوارد أم ماذا - وكذلك بالنسبة للبريد الصادر هل هذا الفهم صحيح أم أنك تعنى أن القسم واحد ولكن نوعى البريد لديه (وارد - وتريد له ترقيم خاص-) و(صادر - وتريد له ترقيم خاص) بغض النظر عن المستخدم

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

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

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

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

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

يبدو أنى أطلت باسؤال لدرجة أوصلت لعزوف القراء عنه من أول نظرة وعلى كل هذه محاولة منى للوصول للمطلوب ولكنها ناقصة وبحاجة لتوجيه - لعلى لا أعدم ذلك من أهل الخبرة. هذه المحاولة Private Sub Command0_Click() Dim NAcc As Access.Application MyPath = "C:\Users\ãÍãÏ ÝÑíÏ\Desktop\Test64\2.accdb" convPath = "C:\Users\ãÍãÏ ÝÑíÏ\Desktop\Test64\2.accde" Set NAcc = CreateObject("Access.Application") NAcc.ConvertAccessProject MyPath, convPath, acFileFormatAccess2007 NAcc.DoCmd.RunCommand (AcCommand.acCmdMakeMDEFile) DoEvents NAcc.Quit NAcc = Nothing End Sub وهذه النتيجة

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

السلام عليكم ليست المشكلة بالكود وانا المشكلة باصدار الأكسس 2010 والذى يوجد به تعريفين محجوزين للكائن database < أحدهما من النوع كلاس (Class Module) والأخر من نوع بروجكت (Project) لذا يتعارض دائما االتعريفين لهذا الكائن هذا على حسب ظنى . وعلى كل تم اجراء تعديل بسط انظر المرفق backup.rar

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

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

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

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

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

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