أمجد جمالي

السلام عليكم ورحمة الله وبركاته مرفق مثال لفرز البيانات برمجيا بإستخدام Ado farz.rar

ارفق مثال بسيط لحتى اكتبلك الكود

السلام عليكم ورحمة الله وبركاته ارفق المثال لحتى ساعدك وتقبل تحياتي

كلامك صحيح إذا ماكان المنتج مرخص عندك مارح تقدر تحمل الملفات لكن الملفات موجودة عندي وحجهما تقريباً 8.3 MB واذا كنت محتاج الملف أرفق ايميلك وتكرم عيونك وشكرا

السلام عليكم ورحمة الله وبركاته اخواني الكرام من فترة قريبة واجهت مشكلة وهي الخطاً رقم 2147024770 - نص الخطأ Automation Error The specified module could not be found يظهر هذا الخطأ في بعض الأجهزة حيث يكون اصدار ADO مختلف عن الجهاز الذي تم فيه كتابة الكود لحل المشكلة قم بتحميل MDAC 2.8 من موقع ميكروسوفت http://msdn.microsoft.com/data/mdac/downloads/default.aspx وتقبلو تحياتي

السلام عليكم مارح يتغير شي ابداً لأنه الكود CurrentDb أو CurrentProject تعني الاشارة الى قاعدة البيانات الحالية بغض النظر عن مكان تخزين الDatabase مثال عن ذلك debug.Print currentproject.Connection debug.Print currentproject.name debug.Print currentproject.Path تحياتي

مرحبا لعرض الملف الي انعمل عليه Hidden Share روح على Start ثم Run واكتب \\MyServer\Database$ حيث Myserver تعني اسم الجهاز الموجود عليه الملف DataBase تعني اسم الفولدر $ لأظهار هذا الملف تحياتي

السلام عليكم ورحمة الله وبركاته أخت زهرة اشكرك من كل قلبي على كل ماتقدميه سواء في منتدى أوفيسنا أو غيره عندي معلومة بسيطة بحب ألفت إنتباهكم عليها بس ان شاء الله يكون اني طرحتها في المكان المناسب الطريقة هي اسمها Hidden share كيف تعمل Sharing او مشاركة لملف وتخفيه بحيث مايظهر للمستخدم العادي الطريقة سهلة كتير وهي لما تعمل Sharing لملف ولنفترض أسمه DataBase ضيف فقط إشارة $ الدولار في نهاية Share Name مثلاً Database$ جرب افتح الجهاز او السرفر الي عملنا عليه Hidden share من الشبكة مارح تلاقي الملف و لحتى تتصل بالملف كمان ضيف إشارة $ مثلاً \\MyServer\Database$ فقط ال Administrator Users قادرين الاتصال بال Hidden Share اما Limited Users مارح يقدر يتصل بالملف الطريقة يمكن تجربتها على اي نظام تشغيل من Win2000 Pro وما بعد تحياتي أدعولنا

تفضل Me.TOTAL = Me.AMOUNT * Me.NO تحياتي

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

في وحدة نمطية وهذا المثال فكرة فقط والباقي من اجتهادك تحياتي

اخي الكريم سؤالك غير واضح تقصد هكذا <myname@mydomain.com>

تفضل هذا المثال Function Ap_Reminder(DT As Date) If DT = DateTime.Date Then MsgBox "True" Else MsgBox "False" End If End Function لتجربته Ap_Reminder #11/10/2005# تقبل تحياتي

اللهم صلي على سيدنا محمد وعلى اصحابه اجمعين

أهلا وسهلا لعودتك إلى المنتدى أخ جمال تحياتي لك

تفضل أخي الكريم وانت عليك التعديل حسب أسم الحقل عندك في النموزج Dim ofn As OPENFILENAME ofn.lStructSize = Len(ofn) ofn.lpstrFilter = "Mdb Files (*.mdb)" + Chr$(0) + "*.mdb" + Chr$(0) + "Mde Files " ofn.lpstrFile = Space$(254) ofn.nMaxFile = 255 ofn.lpstrFileTitle = Space$(254) ofn.nMaxFileTitle = 255 ofn.lpstrInitialDir = CurDir ofn.lpstrTitle = " Berwas " ofn.flags = 0 Dim A A = GetOpenFileName(ofn) If (A) Then MsgBox Left$(Trim$(ofn.lpstrFile), InStrRev(Trim$(ofn.lpstrFile), "\")) Else MsgBox "Cancel was pressed" End If Exit Sub CmdBrowseErrHandler: If Err.Number = 32755 Then MsgBox " You did not change the file name ", 64, "Alert Message " ElseIf Err.Number = 20477 Then MsgBox " Invalid file name ", 16, "Alert Message " Else MsgBox Str(Err.Number) + Err.Description End If Exit Sub تحياتي

تفضل ofn.lpstrFilter = "All Files" + Chr$(0) + "" تحياتي

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

قرأت الموضوع الأول وخلاصة الكلام موجود في هذا المثال أرجو ان تلقي نظرة عليه http://download.microsoft.com/download/acc...us/jetutils.exe تحياتي لك

اخي شاهر مع ذلك لم افهم المطلوب بالضبط :d ويفضل لو ترفق اللينك الخاص بموضوع الاخ Zahof تحياتي

حبيب قلبي ذكرت تصحيحاً لبعض الأخطاء يظهر الملف ldb عند الإتصال بالجداول او الإستعلامات مع الطرف الخلفي(Server) وليس النماذج وانت ذكرت بأنه الواجهة الي عندك في الطرف الأمامي(Client) ليست مبنية على اي جدول لذلك مارح يظهر ملف ال ldb في الحالة هي رح نتحايل على اكسيس باهالطريقة عند تشغيل الطرف الأمامي(Client) رح نتصل بأي جدول من الجداول الى في الطرف الخلفي (Server) وطبعاً اكيد رح يظهر ملف ldb ورح يظهر اسم المستخدم وأسم جهازه ورح يتم الشي هاد كله قبل تشغيل الفورمات الي ذكرتها شوف فكر ورد علي لحتى جهزلك الكود تحياتي

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

عند فتح اي قاعدة بيانات Access يظهر ملف بإمتداد ldb ويختفي عند اغلاق قاعدة البيانات يستخدم هذا الملف لعرض قائمة بالمستخدمين واسماء أجهزتهم الموجدين حالياً في قاعدة البيانات ضع هذا الكود للأستاذ ابو هادي في برنامجك Function GetCurrentMachine() As String Dim TextLine As String Dim UserFile As String On Error Resume Next UserFile = Left(CurrentDb.Name, Len(CurrentDb.Name) - 3) & "ldb" Open UserFile For Input As #1 Line Input #1, TextLine Close #1 MsgBox TextLine End Function وقم وباستدعائه GetCurrentMachine والباقي عليك تحياتي

تفضل مرفق المثال المعدل راجع هذا الموضوع للمزيد من المعلومات عن ADO تحياتي db10.rar

انصحك بإستخدام طريقة ADO لاستدعاء البيانات من الجداول وسوف اقوم بتعديل المثال الخاص بك