أمجد جمالي

السلام عليكم ورحمة الله وبركاته

مرفق مثال لفرز البيانات برمجيا بإستخدام 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$

\\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 ما حيظهر الا لما افتح الفورمز اللي بتعمل اكسس على البيانات، لكن في برنامجي انا، اول شاشة هي واجهة مو مبنية على اي فورم وكمان التانية،،، يعني ممكن المستخدم يفتح برنامجه لكن ما يظهر ال ldb تبع القاعدة اللي فيها البيانات الا لمن يدخل الفورمز اللي مبنية على جداول.

تصحيحاً لبعض الأخطاء يظهر الملف 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 لاستدعاء البيانات من الجداول

وسوف اقوم بتعديل المثال الخاص بك