محمد ايمن

الاصدقاء الاكارم تحية طيبة واجهتني مشكلة في الدالة Round وهي انها لا تقوم بتقريب الارقام بشكل صحيح مثلا الرقم 40.50 تعطي 40 بينما الرقم 41.50 تعطي 42 ما السبب و ما الحل ؟؟

السلام عليكم و رحمة الله و بركاته جزاك الله كل خير اخي ابو محمد و متابع معك على احر من الجمر

للرفع للرفع

الاصدقاء الاكارم تحية طيبة هل اجد من يساعدني ؟؟ ام ان الموضوع معقد جدا ام ماذا

الاخوة الاكارم اي رد

للرفع

للرفع

تحية طيبة اخي امير عذرا ولكن هذا التعديل غير مجدي و السبب اني اريد الارتباط بالجداول الجديدة الحل يمكن في تعديل كود مصحح الاخطاء في الوحدة النمطية ModLinkAll الكود الأساسي ErrSub: If Err.Number <> 0 Then MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbMsgBoxRight End If الكود المعدل ErrSub: If Err.Number = 7874 Then Resume Next If Err.Number <> 0 Then MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbMsgBoxRight End If وظيفة السطر الذي اضفناه هي استكمال الارتباط لكم جزيل الشكر

للرفع

استاذي الكريم انشأت الجدول customer1 و عند محاولة الاتصال بالداتا تظهر رسالة خطأ بانه لا يمكن العثور على الجدول TestLink.rar

اخي ابو آدم تحية طيبة ظهرت لدي مشكلة وهي تعذر الحاق كافة السجلات في استعلام الحاقي علما اني ضبطت الفاصل الزمني للتحديث الى 1 ثانية وعدد محاولات اعادة التحدديث الى 3 و فاصل اعادة التحديث الى 100 فما الحل ؟؟

اخي ابو آدم تحية طيبة واجهتني مشكلة وهي عند انشاء جدول جديد في قاعد بيانات الجداول و تشغيل قاعدة بيانات الواجهة تظهر رسالة خطأ بان اسم الجدول غير موجود كيف نستطيع تفادي هذه المشكلة ؟؟

جزاك الله كل خير استاذنا الغالي و بارك الله فيك الكود للاستاذة القديرة زهرة العبدلله Dim SourceFile, DestinationFile SourceFile = Application.CurrentProject.Path & "\Rockey4ND.dll" DestinationFile = "c:\windows\system32\Rockey4ND.dll" FileCopy SourceFile, DestinationFile MsgBox ("تم النسخ بنجاح") لماذا لا نقوم بانهاء التنصيب ثم نخفض الأمان ثم نقوم باعادة التشغيل

اخي و استاذي ابا خليل جزاك الله كل خير ووفقك و زادك علما و عملا واجهتني هذه المشكلة كثيرا و وجت الحل عند احد الاصدقاء يتم وضع هذا الكود في نموذج بداية التشغيل On Error GoTo ErrSub With Access.References .AddFromFile "C:\Windows\System32\mscomctl32.ocx" .AddFromFile "C:\Windows\System32\wshom.ocx" End With MsgBox "all library was updated", vbInformation + vbMsgBoxRight ErrSub: If Err.Number = 32813 Then Resume Next ElseIf Err.Number <> 0 Then MsgBox Err.Number & vbCrLf & Err.Description, vbCritical End If

اخي ابو آدم تحية طيبة جربت الارتباط مع قاعدة بيانات 2003 و عملت الوحدة النمطية بشكل ممتاز جربت الارتباط مع قاعدة بيانات 2007 لم تعطي الوحدة النمطية اي خطأ ولكن في المقابل لم ترتبط باي جدول قمت بترقية كلا من قاعدة بيانات الجداول و الواجهة ووضعت نقطة ايقاف عند الوحدة النمطية ModLinkAll وبدأت التتبع لاحظت ان الكود يتوقف لان الوحدة النمطية تعيد الخطأ 0 الخطأ يمكن في السطر التالي الموجود في الوحدة النمطية ModLinkAll : Dim rs As Recordset قمت بتعديله الى Dim rs As DAO.Recordset والنتيجة تم الارتباط بنجاح و بدون اي مشاكل جزيل الشكر لكم جميعا

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

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

استاذي ابو آدم تحية طيبة مارأيك بهذا النموذج لكن هناك رسالة تظهر بان الجدول موجود مسبقا هل برأيك يجب ان نقوم بحذف الجداول ثم اعادة ربطها ؟؟ TestLinkData.rar

جزاك الله كل خير استاذي و اخي أبو آدم و اسمح لي بإضافة بسيطة وحدة نمطية لأخينا BlueMind لتسريع الاتصال بقاعدة البيانات سواء كانت على الشبكة او على الجهاز المحلي Public Sub OpenAllDatabases(pfInit As Boolean) ' Open a handle to all databases and keep it open during the entire time the application runs. ' Params : pfInit TRUE to initialize (call when application starts) ' FALSE to close (call when application ends) ' Source : Total Visual SourceBook Dim x As Integer Dim strName As String Dim strMsg As String ' Maximum number of back end databases to link Const cintMaxDatabases As Integer = 2 ' List of databases kept in a static array so we can close them later Static dbsOpen() As DAO.Database If pfInit Then ReDim dbsOpen(1 To cintMaxDatabases) For x = 1 To cintMaxDatabases ' Specify your back end databases Select Case x Case 1: strName = Path1 'CurrentProject.Path & "\data.mdb" End Select strMsg = "" On Error Resume Next Set dbsOpen(x) = OpenDatabase(strName) If Err.Number > 0 Then strMsg = "Trouble opening database: " & strName & vbCrLf & _ "Make sure the drive is available." & vbCrLf & _ "Error: " & Err.Description & " (" & Err.Number & ")" End If On Error GoTo 0 If strMsg <> "" Then MsgBox strMsg Exit For End If Next x Else On Error Resume Next For x = 1 To cintMaxDatabases dbsOpen(x).Close Next x End If End Sub يمثل path1 مسار قاعدة البيانات BE ( التي تحتوي على الجداول الأساسية ) يتم الاستدعاء بهذا الشكل طبعا يجب ان يكون الاستدعاء في اول نموذج يتم تشغيله في قاعدة البيانات FE ( التي تحتوي على النماذج و التقارير و الاستعلامات ..... ) OpenAllDatabases True وقبل انهاء التطبيق OpenAllDatabases False

مشكور أخي الكريم و جزاك الله كل خير

الاصدقاء الاكارم تحية طيبة في هذا المثال وجدت ان هناك اسطر تحتوي على علامتي تنصيص مزدوجة ضمن الكود و اسطر تحتوي على ثلاث علامات تنصيص مزدوجة ما هي الفروق بين انواع علامات التنصيص http://www.officena.net/ib/index.php?showtopic=51137&hl=

بارك الله فيك و جزاك كل خير سلفا

البرنامج من صنعي شغل البرنامج كمسؤول اذا كنت تستخدم ويندوز 7 ثم اعد تشغيل الجهاز SetDateSetting.rar

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

تفضل اخي الكريم db3.rar