نجوم المشاركات

سبحان الله اولا : فى هذا الصرح الشامخ تقدم المعلومات مجانا ثانيا : فى هذا المنتدى اهل الجود والكرم سواء كانوا اساتذة علماء واجلاء او خبراء او هواة او طلاب علم ثالثا : انت لا تعلم شئ عن ظروف الناس التى قد تسطيع تقديم المساعدة لك او لغيرك منهم الطاعن فى السن ومنهم المريض الذى قد يمنعه المرض احيانا من التواصل وتقديم يد العون ومنهم المشغول بعمله والذى هو اساس لقمة العيش بالنسبة له ولاولاده واهل بيته و و و و و................... الخ رابعا : معظم المواضيع التي لا يكون فيها رد معناه إما الموضوع صعب وإما ان الشرح مافيه تفصيل وامثلة فأنا مثلا اذا وجدت ان السؤال غير واضح اذهب الى موضوع آخر لكي استفيد من وقتي للأسف ارى بعض الاسئلة وكأن السائل يتمنن علينا بالمعلومة او يتهمنا بالتجاهل له بينما يجب ان يساعدنا بالتفاصيل حتى نساعده بالجواب وخذها قاعده اذا لم يتم الرد على سؤالك خلال يومين ووجدت اكثر من 10 قراءات فيجب عليك اعادة عرض السؤال بطريقة مختلفه وبشرح افضل وبمثال وهذا ما اقعله اذا وضعت سؤال فى المنتدى كما اننى على سبيل المثال والحمد لله تعالى اولا واخيرا على كل حال فى تلك الفترة اعانى من مشكلة عضوية لا تسمح لى بالتواجد والمشاركة كما كنت من قبل واذا دخلت الى المنتدى قد ادخل لاننى اريد شيئا معينا يخدم عملى والذى هو مصدر دخلى الاول والاخير و الوحيد واكون مضطرا للدخول وللعلم علمى لا علافة له بالبرمجة واحاول جاهدا فى تلك الدقائق القليلة تقديم المساعدة بقدر الامكان بالقاء نظرة سريعة على التساؤلات والتى احسها بسيطة ولن تستغرق منى وقت وجهد تظرا لحالتى الصحية اولا ولضيق وقتى ثانيا لا ابخل فى المشاركة وتقديم العون وعلى العموم جزاكم الله خيرا على وصفكم ونعتكم لرواد المنتدى والعرب جميعا بتلك الصفات الغير حميده ولكن بالاصالة عن نفسي وبالنيابة عن اخوانى رواد المنتدى العرب نسامح لوجه الله ونتصدق بأعراضنا لله تعالى لان اخلاقنا لا تسمح بغير ذلك وان وجدنا لك مسألة نسطيع المساعدة وتقديم يد العون فيها لن نبخل ولن نتردد ولن نقابل اسائتكم بمثلها لاننا لا نريد منكم او من غيركم جزاء او شكرا الكل هنا وانا اقلهم نبتغى وجه الله تعالى فقط ان اردتم التواجد بيننا اهلا بكم وان لم يكن لكم ما شئتم ملاحظة راجع ردود الاساتذة والخبراء تجد ان الاجابات لا تقتصر على قدر السؤال ولكن تقدم باستفاضة وبكرم وسخاء تم اغلاق الموضوع منعا لكثرة الكلام والقيل والقال .... ولكن رجاء لا تسئ الى اناس لا يستحقون ذلك

يا هلا اخي احمد الحقيقة اني اشرت في مشاركتي السابقة الى تسجيل خروج من الموقع وبالتالي توقفي عن المشاركة والتفاعل على كل حال وكمشاركة اخيرة استثنائية لا نحتاج الى استعلام اضافي الاستعلام موجود مسبقا فقط نربطة بجدول التقييم ثم نضع حقل القيمة في تقرير الاهداف المنتهية وفي هذه الطريقة لن يظهر معنا الا الاهداف المنتهية والتي تحتوي على نتيجة التقييم ملاحظة صغير حسب قواعد المشاركة سؤال واحد في الموضوع وهذا الطلب الجديد مختلف عن الطلب الاصلي مع ذلك تم عمل المطلوب وحتى لو اغضب ذلك المشرفين 😎 الملف في الرابط https://www.4shared.com/s/fZ_nCVXkEiq

على سبيل التجربة جرب ملف الاكسيس ده بدلاً من السابق ووافنى بالنتيجة . datex.rar

جرب هذا <><><><><><><> Private Sub Form_Timer() On Error Resume Next If Me.box2.Width = 0 Then Me.TimerInterval = 0 Else Me.box2.Width = Me.box2.Width - Me.box1.Width \ 200 If (Me.box2.Width) = 1 Then Me.Command8.Enabled = True End If End If End Sub

تفضل ورقة.xlsm

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

التاريخ في حقيته غير مسجل وبالرغم من انك تشاهده في الجدول ..... انظر الجدول الان ..... تفضل <><><><><> datex.rar

شكرأ أستاذى @Amr Ashraf إشتغل تمام جزاك الله كل خير

تسلم هو المطلوب جزيت خير

وعليكم السلام اتمنى ان يكون طلبك بواسطة كود بين تاريخين.xlsb

أخي العزيز نافع، الرسالة توضح أن هنالك إصدار آخر مثبت، قد تكون حذفته ولكن بقيت بعض المعلومات أو البيانات في الريجستري أو في مكان ما، حيث لم يحذف كاملاً، وتخبرك الرسالة بأحد حلين، إما حذف البرنامج من جذوره نهائياً أو انتظار إصدار أعلى من 8.0؛ أي أعلى من الإصدار الحالي الذي تخبر الرسالة أنه موجود على جهازك

فى حدث بعد التحديث لحقل ادخال رقم الصنف ضيف هذا الكود If DLookup("[Stop]", "Itemtbl", "[ItemID]=" & txtItemID) = -1 Then MsgBox "هذا الصنف موقوف من البيع", vbCritical, "تنبيه" Me.Undo Exit Sub End If مرفق ملف اذا انتهت مسألتك اختر افضل اجابه ^_^ db2-.rar

يعنى هل قدرت تحل المشكله وتجد ما تبحث عنه ؟

تقصد فرز للسجلات ذات تواريخ السنة الحالية تفضل ........................ New Microsoft Access Database (2).rar

تفضل أخي العزيز هذه هي الدالة 🙂 =Mid([Text1];InStr(1;[Text1];"عن");InStr(1;[Text1];".")-InStr(1;[Text1];"عن")+1) تضعها في مصدر مربع النص الذي سيظهر النتيجة .. و Text1 هو مربع النص المصدر .. أعتذر لعدم التطبيق في ملفك .. ليس لدي إنترنت في الجهاز. اختصار الوقت.accdb

مع البحث وجدت هذا الموضوع فيه كود لعله يساعدك : https://stackoverflow.com/questions/37426141/access-vba-connection-to-test-existence-of-sql-server وهذا هو الكود : Public Function IsSqlServer( _ ByVal TestNewConnection As Boolean, _ Optional ByVal Hostname As String, _ Optional ByVal Database As String, _ Optional ByVal Username As String, _ Optional ByVal Password As String, _ Optional ByRef ErrNumber As Long) _ As Boolean Const cstrQuery As String = "VerifyConnection" Dim dbs As DAO.Database Dim qdp As DAO.QueryDef Dim rst As DAO.Recordset Dim booConnected As Boolean Dim strConnect As String Dim strConnectOld As String Dim booCheck As Boolean Set dbs = CurrentDb Set qdp = dbs.QueryDefs(cstrQuery) If Hostname & Database & Username & Password = "" Then If TestNewConnection = False Then ' Verify current connection. booCheck = True Else ' Fail. No check needed. ' A new connection cannot be checked with empty parameters. End If Else strConnectOld = qdp.Connect strConnect = ConnectionString(Hostname, Database, Username, Password) If strConnect <> strConnectOld Then If TestNewConnection = False Then ' Fail. No check needed. ' Tables are currently connected to another database. Else ' Check a new connection. qdp.Connect = strConnect booCheck = True End If Else ' Check the current connection. strConnectOld = "" booCheck = True End If End If On Error GoTo Err_IsSqlServer ' Perform check of a new connection or verify the current connection. If booCheck = True Then Set rst = qdp.OpenRecordset() ' Tried to connect ... If ErrNumber = 0 Then If Not (rst.EOF Or rst.BOF) Then ' Success. booConnected = True End If rst.Close End If If strConnectOld <> "" Then ' Restore old connection parameters. qdp.Connect = strConnectOld End If End If Set rst = Nothing Set qdp = Nothing Set dbs = Nothing IsSqlServer = booConnected Exit_IsSqlServer: Exit Function Err_IsSqlServer: ' Return error. ErrNumber = Err.Number ErrorMox "Tilslutning af database" ' Resume to be able to restore qdp.Connect to strConnectOld. Resume Next End Function

أنا أستخدم هذا الكود لفحص الاتصال عندما تكون قاعدة البيانات مقسمة إلى FE و BE .. ولم أجرب الاتصال بقاعدة SQL سابقا .. وضيفة الكود أن تعطيه اسم أحد الجداول المرتبطة فيفحصه إذا كان متصل أم لا ويعطيك النتيجة True / False Private Function TableLinkOkay(strTableName As String) As Boolean 'Function accepts a table name and tests first to determine if linked 'table, then tests link by performing refresh link. 'Error causes TableLinkOkay = False, else TableLinkOkay = True Dim CurDB As dao.Database Dim tdf As TableDef Dim strFieldName As String On Error GoTo TableLinkOkayError Set CurDB = DBEngine.Workspaces(0).Databases(0) Set tdf = CurDB.TableDefs(strTableName) TableLinkOkay = True If tdf.Connect <> "" Then '#BGC updated to be more thorough in checking the link by opening a recordset 'ACS 10/31/2013 Added brackets to support spaces in table and field names strFieldName = CurDB.OpenRecordset("SELECT TOP 1 [" & tdf.Fields(0).Name & "] FROM [" & tdf.Name & "];", dbOpenSnapshot, dbReadOnly).Fields(0).Name 'Do not test if nonlinked table End If TableLinkOkay = True TableLinkOkayExit: Exit Function TableLinkOkayError: TableLinkOkay = False GoTo TableLinkOkayExit End Function وتستدعيه بهذه الطريقة : TableLinkOkay("strTableName") جربه أنت مع قاعدة الـ SQL وأخبرنا بالنتيجة 🙂

اخي الفاضل عندي فكره بسيطه وانا مجربه وظابطه معي تمام ممكن تنشأ جدول علي قاعدة بيانات sql server مكون من حقل فقط وتضع في الحقل هذا اي قيمه مثلا 1 وتذهب الي اكسس وتعمل ربط للجدول وفي النموذج نعمل مربع نص مرتبط بالحقل بحيث لو الحقل لاتوجد به قيمة معناه انه غير متصل وانت عمل الشرط بتاعك انا بستعمل الشرط هذا If Len(Me.chk_1 & "") = 0 Then MsgBox "لايوجد اتصال بالشبكة الرجاء التأكد من اتصال الشبكة " Me.serh.SetFocus Undo Exit Sub End If chk_1 هو حقل غير منضم في نموذج يتم جلب القيمة من الجدول المرتبط مع sgl عن طريق هذ هذا الكود Me.chk_1 = DLookup("[cvil_id]", "tabol_1", "[cvil_id]") tabol_1 هو اسم الجدول و cvil_id هو الحقل في الجدول المرتبط و chk_1 هو مربع النص الغير منضم في النموذج