• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

mrnooo2000

المشرفون
  • عدد المشاركات

    3,000
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة mrnooo2000

  1. تفضل أخى الميزانية اضافة.accdb
  2. تفضل أخى xlx.mdb
  3. الامر ليس بهذه البساطة  اولا لا يمكنك عمل ذلك من نفس قاعدة البيانات و لكن سيتوجب عليك استخدام قاعدة بيانات خارجية   ثانيا يجب أن تتأكد من عدم وجود أخطأ بأكواد قاعدة البيانات لأن اى خطأ سيمنع عملية التحويل      ثالثا سنقوم باستخدام  Undocumented SysCmd Function                                             SysCmd 603 Dim objAccess As Object 'Create the Access Automation object Set objAccess = CreateObject("Access.Application") 'Now call the undocumented function... objAccess.SysCmd 603, strPathSourceMdb, strPathOutputMde Set objAccess = Nothing
  4. اخوانى الكرام نظرا لتعدد الاسئلة عن طريقة ربط الاكسس بقاعدة بيانات MYSQL فرأيت ان اضع هذا الموضوع بالتأكيد هناك مميزات كثيرة لاستخدام قاعدة بيانات MYSQL بدلا من الاكسس و لسنا هنا لسرد تلك الميزات 1- الادوات المطلوبة :- اولا نحتاج الى MYSQL DRIVER ,SERVER,MYSQL CONNECTOR بالنسبة للسيرفر و الدريفر احث اصدارات MYSQL هو الاصدار 5.1 و يمكن الحصول عليه من الموقع الرسمى مجانا http://www.mysql.com/downloads/mysql/ و نحتاج الى سيرفر محلى و الاشهر هو APACHE و يمكن الحصول على اخر اصداراته من http://httpd.apache.org/download.cgi و بدلا من ذلك فالافضل هو استخدام برنامج WAMP SERVER فهو يضم MYSQL DRIVER ,APACHE SERVER بالاضافة الى PHP http://www.wampserver.com/en/download.php قم بتثبيت البرنامج و بالنسبة لل CONNECTOR يمكنك الحصول على النسخة المناسبة من http://dev.mysql.com/downloads/connector/odbc/ و قم بتثبيته و لتحويل قاعدة بيانات اكسس الى MYSQL استخدم هذا البرنامج http://www.bullzip.com/products/a2m/info.php و قم بتثبيته الخطوات :- 1- شغل الWAMP SERVER من قائمة البرامج 2- اذا كانت لديك قاعدة البانات (MYSQL) ضعها فى المجلد التالى C:\wamp\bin\mysql\mysql5.1.33\data على اعتبار انك ثبت السيرفر على ال C و اذا كانت لديك قاعدة بيانات اكسس تريد تحويلها شغل برنامج BULLZIP و هو سيقوم بالمطلوب الان اصبحت الامور جاهزة لعملية الربط وامامنا طريقتان للربط الاولى بربط الجداول و الثانية برمجيا الطريقة الاولى : (ربط الجداول ) و هذه الطريقة نربط فيها الجداول من قاعدة البيانات الى الاكسس كما لو كنا نقسم قاعدة بيانات الاكسس الى جزئين و لكن بالتأكيد طريقة الربط ستختلف قليلا الشرح موجود بملف الوورد الان الطريقة الثانية يمكن اتمام عملية الربط برمجيا كالتالى ضع هذا الكود فى النموذج Dim strDatabaseName As String Dim strDBCursorType As String Dim strDBLockType As String Dim strDBOptions As String Dim rs As ADODB.Recordset Dim cn As ADODB.Connection Private Function ConnectString() As String Dim strServerName As String Dim strDatabaseName As String Dim strUserName As String Dim strPassword As String 'Change to IP Address if not on local machine 'Make sure that you give permission to log into the 'server from this address 'See Adding New User Accounts to MySQL 'Make sure that you download and install the MySQL Connector/ODBC 5.0. Driver strServerName = "127.0.0.1" 'or "localhost" strDatabaseName = "newdb" strUserName = "root" strPassword = "" ConnectString = "DRIVER={MySQL ODBC 5.1 Driver};" & _ "SERVER=" & strServerName & _ ";DATABASE=" & strDatabaseName & ";" & _ "USER=" & strUserName & _ ";PASSWORD=" & strPassword & _ ";OPTION=3;" 'DRIVER={SQL Server};SERVER=127.0.0.1\SQLEXPRESS;DATABASE=dbname;UID=userid;PWD=password End Function و فى حدث عند الضغط للزر بالنموذج ضع الكود التالى ثم عدل بالكود الى ما يناسبك Private Sub Command10_Click() On Error GoTo Command1_Click_Error Dim b As Long strDBCursorType = adOpenDynamic 'CursorType strDBLockType = adLockOptimistic 'LockType strDBOptions = adCmdText 'Options Set cn = New ADODB.Connection 'Me.MousePointer = 11 cn.Open ConnectString() With cn .CommandTimeout = 0 .CursorLocation = adUseClient End With Set rs = New ADODB.Recordset 'Creates record set 'غير اسم الجدول strSQL = "select * from coming;" rs.Open strSQL, cn, strDBCursorType, strDBLockType, strDBOptions If rs.EOF Then GoTo ExitSub Else MsgBox rs.RecordCount For b = 1 To rs.RecordCount '<do whatever you need to do with the data here> Next b End If ExitSub: rs.Close Set rs = Nothing cn.Close Set cn = Nothing On Error GoTo 0 Exit Sub Command1_Click_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click of Form " & Me.Name End Sub MrNo_link accesstomysql.doc
  5. اخى الكريم  العلم متاح و موجود و لو كلفت نفسك بالبحث لوجدت الكثير  جرب أى من هذه المشاركات بالرابط  http://arabteam2000-forum.com/index.php?/search/
  6. تحويل الكود الى فورم

    من الواضح أن هذا الكود تم الحصول عليه من ملف exe بعد فكه بأحد البرامج Decompiler الاسهل لك أخى أن عمل نموذج جديد  عموما المرفقات بها النموذج المطلوب كل ما عليك الا اضافة الملفات الى المشروع لكن هناك جزء بكود النموذج يعتمد على أنه لديك نموذج باسم Form7 و متغير فى موديول module1 باسم Path1     Form118.rar
  7. عجزت عن حل المشكلة

    أخى السائل ضع مثالك هنا أو على الأقل ضع الكود حتى يمكننا المساعدة
  8. جرب أخى هذا التعديل  Private Sub code_AfterUpdate() Dim x As Integer x = Nz(DLookup("[id_m]", "[movemnt_fleet]", "[code] = " & Nz(Me.code, 0)), 0) If x > 0 Then    Beep    MsgBox "هذا الموقف محجوز لقد تم تسجيله من قبل في قاعدة البيانات هذه ؟ سيتم اطلاعك على الموقف المكرر بكامل بياناته"    Me.Undo    DoCmd.GoToRecord , , acGoTo, x End If If [code] > 301 Then    Beep    MsgBox "عددالمواقف كامل"    Me.Undo End If End Sub  
  9. بدون وحدة نمطية و فى 3 خطوات فقط اولا : ضع هذا الامر فى حدث عند الفتح فى النموذج المستخدم كواجهة للبرنامج . DoCmd.RunCommand acCmdAppMinimize ثانيا : غيد الخاصية منبسق (popup) الى نعم فى كل النماذج و التقارير . ثالثا : ضع النموذج الواجهة فى startup
  10. اخوانى الكرام و بمناسبة شهر رمضان المبارك أقدم اليكم برنامج أكسس ماستر و هو عبارة عن تجميع لبرنامج اضافات الاكسس و اداة اعداد قاعدة البيانات ( سبق ان تم وضعهما فى المنتدى فى مشاركات سابقة ) البرنامج يتميز بالكثير من الاضافات الجديدة بالاضافة الى ما كان موجودا بالاداتين السابقتين . و أهم مميزاته التالى :- 1- أولا البرنامج لا يؤثر على برنامجك الاصلى فى أى شىء و لكنه يقوم بتطبيق اعداداتك المطلوبة على نسخة من البرنامج فى مجلد جديد فى نفس مسار البرنامج 2- البرنامج تم تصميمه ليعمل على نسخ الاكسس من 2000 و حتى 2010 ( لم يتم تجربته على 2000 ) 3- البرنامج يعطيك امكانية اختيار تنسيق الملف الناتج 4-البرنامج يمكنك من تقسيم البرنامج الى قاعدة للجداول و قاعدة للنماذج 5- البرنامج يوفر لك امكانية حماية قاعدة الجداول بكلمة سر (فى حالة التقسيم ) 6- البرنامج يمكنك من التحكم فى خصائص برنامجك و قاعدة الجداول (ان وجدت) 7- البرنامج يمكنك من عمل نسخة تجريبية من البرنامج بعدد محدود من مرات التشغيل 8- البرنامج يعطيك الكثير من وسائل حماية برامجك مثل : اخفاء الجداول و باقى الكائنات الحماية من النسخ انشاء ملف mde اخفاء شاشة الاكسس الغاء مفتاح الشفت 9- البرنامج يمكنك من اعادة ربط الجداول بكل سهولة ( فى حالة التقسيم ) 10- البرنامج يقدم لك نظام للصلاحيات و المستخدمين اترككم الان مع البرنامج لتتعرفوا بأنفسكم على البرنامج الشىء الوحيد الذى اعتذر عليه بشده هو ان البرنامج مغلق لان الكود المصدرى الخاص بهذه المجموعه (لم يعد ملكى ) و لكن يمكنك وضع لمساتك الشخصية على البرنامج من خلال التعديل على تصميم النماذج بقاعدة الادوات (toolsDB) و لكن لا يجب تعديل اى شىء فى الاكواد. نسألكم الدعاء و نسأل الله لنا و لكم القبول و كل عام انتم بخير AccessMaster2000-2010.rar
  11. تفضل أخى  Database3.mdb
  12. اخى الكريم الموضوع يحتاج الى اعادة تفكير  انت تحتاج الى عدد  اذا انت تحتاج الى استخدام دالة dcount و ليس dlookup و لا يمكن لاى منهما البحث فى اكثر من عمود بالجدول  لذلك ستحتاج الى جمع ناتج البحث فى كل عمود لتحصل على ما تريد     text1=DCount("[vac1]","[book]","[vac1]=" & " سرير كهربائي ")  
  13. فى هذه الحالة الحل بسيط أخى الكريم  فقط سنعدل فى حقل المجموع فى التقرير  ليكون بهذا الشكل  =Sum([2]+[1]*100)  
  14. حتى يمكن ايجاد حل مناسب لما تريد يجب ان نعرف كيف يتم ملء الحقلين الاول و الثانى  الذى يستمد منهما الحقل الثالث قيمته و لكن نصيحتى لك الا تحتفظ بقيمة الحقل المحسوب فى الجدول و الافضل استحدام استعلام لعرض القيمة .
  15. لاننى كنت مهتما بموضوع تحويل ملفات قواعد البيانات الى ملف exe حقيقى و ليس ملف وهمى كما يحدث مع البرامج الاخرى و فى أثناء بحثى فى الموضوع وجدت برنامج يحقق ذلك و ان لم يكن بالشكل المطلوب و كان به عيب خطير و هو أن برامج مضادات الفيروسات تعتبره فيروس مم جعلنى أشك به و اعتقد انه خدعة لنشر أحد الفيروسات لذلك قمت بالتواصل مع المبرمج الذى أكد أن البرنامج نظيف تماما و وعد بتعديله حتى يتلافى تلك المشاكل و أمس فقط حصلت على النسخة الجديدة منه و بالفعل وجدت برنامج رائع أروع مم كنت أتخيل و أروع ما فيه أنك تستطيع ارفاق ملفاتك بداخله البرنامج مجانى تماما و حجمه حوالى 200 كب فقط و لا يحتاج الى أى اضافات أو تنصيب البرنامج موجود هنا رابط لتحميل البرنامج أتمنى أن يستفيد منه الجميع DBtoEXE.zip
  16. تحويل النص الى عدة حقول

    هذه الدالة تعطيك ما تريد و بدون الحاجة الى جدول ثانى  يمكنك عرض اى جزء تريده فى استعلام او نموذج    Function Text2Columns(AnyName As String, NumberOfPart As Byte) As String Dim TheSpaceNumber As Byte Dim I As Integer, U As Integer Clear_Extra_Spaces: '=================   If InStr(1, AnyName, "  ", 1) > 0 Then        AnyName = Replace(AnyName, "  ", " ")        GoTo Clear_Extra_Spaces   End If Text2Columns = "" If AnyName = "" Then Exit Function Do     U = I     I = InStr(I + 1, AnyName, " ", 1) 'find number of spaces in the name     If I <> 0 Then         TheSpaceNumber = TheSpaceNumber + 1         If TheSpaceNumber = NumberOfPart Then Exit Do     ElseIf TheSpaceNumber + 1 = NumberOfPart Then         I = Len(AnyName) + 1         Exit Do     Else         Exit Function     End If Loop          Text2Columns = Trim(Mid(AnyName, U + 1, I - U - 1)) End Function   text to columns.accdb
  17. بمبادرة من الاخ محمد ندا و بتعاون الكثير من الاخوة بالمنتدى تم الوصول الى اداة لمقارنة كائنات قواعد البيانات لتحديد الاحدث و الاقدم منها و المناقشات موجودة على هذا الرابط http://www.arabteam2000-forum.com/index.php?showtopic=206521&st=0 و لكثرة السؤال عن مقارنة بيانات الجداول فهذه محاولة منى لتحديث الاداة السابقة باضافة امكلنية مقارنة الجداول و عرض السجلات المتشابهة و السجلات الغير متشابهة و الموضوع مفتوح للنقاش لتطوير هذه الاداة الى ان تكون اداة متكاملة database_comparetool.rar
  18. مجهود جيد اخونا الكريم و فى الرابط التالى مشروع عملنا عليه منذ فترة  و يتم من خلال الاداة مقارنة كافة كائنات قاعدة البيانات و ليس الجداول فقط   http://arabteam2000-forum.com/index.php/topic/215031-%D8%A7%D9%84%D9%85%D9%82%D8%A7%D8%B1%D9%86%D8%A9-%D8%A7%D9%84%D8%B4%D8%A7%D9%85%D9%84%D8%A9-%D8%A8%D9%8A%D9%86-%D9%82%D9%88%D8%A7%D8%B9%D8%AF-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA/?hl=%20%D9%85%D9%82%D8%A7%D8%B1%D9%86%D8%A9%20%20%D9%82%D9%88%D8%A7%D8%B9%D8%AF%20%20%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA
  19. منع التعديل على قوائم البرنامج

    لا يمكنك التحكم فى الواجهة من قاعدة البيانات ما تريده يحتاج الى اكواد تضاف الى البرنامج
  20. الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات. فقرة اختيار عنوان مناسب لمحتوى الموضوع. قواعد طرح المشاركات http://www.arabteam2000-forum.com/index.php?showtopic=29343 شاكرين لكم حُسن تعاونكم
  21. للفائدة هناك دالة اسمها   IsError و استدامها هنا سيكون رهذا الشكل =IIf(IsError([q1].[Form]![rr]);0;[q1].[Form]![rr])
  22. هناك الكثير من البرامج لذلك و لكن هل الملف ملكك من الصعب ان يساعدك احد اذا كان البرنامج ملك شخص اخر حفاظا على الحقوق
  23. اجعل النموذج غير منضم اى لا تربطه بالجدول و استخدم الكود او استعلام الحاق للاضافه
  24. الفكره هى مقارنة قيم متساويه لان الحقول بالجدول تكون قيمتها لاشىء او null اما قيم الحقول فى النموذج تكون فارغه و ليست null
  25. من الطبيعى ان يحدث ذلك لتحقيق ما تريد استخدم or   Private Sub txt_Change()Dim VarSearch As StringVarSearch = "*" & txt.Text & "*"Me.f1.Form.Filter = "البيان like '" & VarSearch & "'" & " OR " & "العملاء like '" & VarSearch & "'" & " OR " & "ملاحظات like '" & VarSearch & "'"Me.f1.Form.FilterOn = TrueEnd Sub