أبو هادي

السلام عليكم إذن الموضوع منتهي يكفي أن تبدل في التنسيق Format لصناديق التاريخ بأن تجعله yyyy/mm/dd . تحياتي .

السلام عليكم يوجد في مشروع القرآن الكريم .. دالة شبيهة لدالة أبو هاجر ، قد تكون الحل الذي تنشده . تحياتي .

السلام عليكم جربي هذا التنسيق : dddd hh:nn am/pm تحياتي .

السلام عليكم لتحويل الكسر إلى دقائق : Minutes: ([Total]-Fix([Total]))*60 ولتحويل الناتج إلى نص بنفس تنسيق التاريخ : txtTotal: Fix([Total]) & ":" & Format(([Total]-Fix([Total]))*60;"00") تحياتي .

السلام عليكم أخي الكريم ، التقويم الهجري منه القمري ومنه الشمسي . والقمري منه القياسي ومنه الفلكي . القياسي أشهره موحدة وهو المستخدم في الوندوز والمعتمد في كثير من الدول العربية مثل البحرين ومصر على ما أعتقد . والفلكي هو المعتمد على علم الفلك في دخول الشهور فلذلك ترى أشهره مختلفة من سنة إلى أخرى مثل تقويم أم القرى والعجيري والقطري . كتابة الكود لا تتطلب مستوى متقدم في الإنجليزية ولا مستوى متوسط ، فالكود عبارة عن تعبيرات ودوال وإجراءات بسيطة تتطلب التعرف عليها والتدرب على التعامل معها . قد تحتاج إلى الإنجليزية في حالة أن العون/Help بالإنجليزية ولكن أعتقد أن النسخ العربية من الأكسس تحتوي على تعليمات بالعربي . كذلك من يريد أن يصل بسرعة ويغزو المواقع الأجنبية والتي لم أزر أحدها البتة . أما للتعرف على كل ما هو مفيد ومنهجي آمل البحث عن دروس الأستاذ محمد طاهر ففيها كل الخير إن شاء الله . تحياتي .

السلام عليكم لقد طبقتي ما قلته لك بشكل خاطئ مرة أخرى . يجب ضرب كل حقل لوحده في 24 وليس ضرب الناتج في 24 وإلا وقعت في : أما مشكلة الأصفار فلا أرى أي سبب واضح لذلك ولكن أنصح بمسح ما كتبته وإعادة الكتابة مرة أخرى . تحياتي .

السلام عليكم وحتى لا تحتاري بين الأولوية في العمليات الحسابية استخدمي الأقواس مثل التالي : Total:(Time1*24)-(Time2*24) تحياتي .

السلام عليكم وكيف تستطيعين أن تختاري حقل تاريخ/وقت في الآلة الحاسبة ؟؟؟؟؟ ، العملية تحتاج إلى حاسوب وليس آلة حاسبة . أنا أقول لك اضربي 11:22 وأنت تقولي أضرب 11.22 ركزي جيدا وستري الفرق واضح بين الإثنين . تحياتي .

السلام عليكم :NO: 6:18 *24=6.3 11:22*24=11.36666667 10:25*24=10.41666667 المجموع =28.08333333 تحياتي .

السلام عليكم حولي الوقت إلى رقم بضربه في 24 ثم يمكنك عمل كل العمليات الحسابية بدون مشاكل . مثال : InTime * 24 تحياتي .

السلام عليكم هذا مثال لفكرة ممكن تطويرها لاحقا ، تحتاج إلى تقييم وملاحظات كل من يهمه هذا الموضوع . قد يكون هناك حلول سابقة ولكني وبكل صراحة لم أبحث فأرجو أن لا أكون قد ككرت ما هو موجود . لا تطبقوا المثال مباشرة على جداولكم الرئيسة . تحياتي . DeleteDuplicates.rar

السلام عليكم أخي najm .. يمكنك فتح البرنامج مع الضغط على الشفت لتتمكن من رؤية الكود والتعديل في الرنامج حسبما تريد . ولا مانع لدي أن أعمل التعديل الذي تريد ولكن بعد تحديد التقويم المراد استخدامه (ميلادي/هجري/أم القرى) . مرفق مثال في حالة استخدامك لحقول تاريخ فقط وليس لحقول نص . تحياتي . Period.rar

السلام عليكم نسخة أخرى أكثر تنقيحا ، حيث لا تتأثر الدوال الآن باختلاف تنسيق التاريخ . تحياتي . Periods.rar

السلام عليكم يمكن استخدام دالة ISNA للتخلص من المشكلة كالتالي : =IF(ISNA(VLOOKUP(A2;Sheet2!A:B;2;FALSE));0;VLOOKUP(A2;Sheet2!A:B;2;FALSE)) تحياتي .

السلام عليكم شكرا جزيلا لك أخي محمد طاهر على جهودك المتواصلة . لقد قمت بتصحيح الكود حتى يتفادى التوقف لتشغيله أول مرة . طبعا تم تعديله على جهازي الخاص وبالطبع لن أستطيع أن أجربه حتى السبت ، ولكن يبدو لي أنه الآن سيعمل بدون مشاكل أن شاء الله . Sub GetServerNames() Dim dbs As Database Dim rst As Recordset Dim NetPath As String Dim DbsPath As String Dim Pos As Integer Dim PathLen As Integer Dim RetVal Dim FS As Object Dim NewFile As Object Dim Count As Long Dim TextLine As String Dim Ct As String On Error Resume Next Ct = """" Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Path", dbOpenSnapshot) NetPath = rst!Path rst.Close Pos = InStr(1, NetPath, "Net.exe") If Pos > 0 Then NetPath = Left(NetPath, Pos - 2) End If PathLen = Len(dbs.Name) For Pos = PathLen To 2 Step -1 If Mid(dbs.Name, Pos, 1) = "\" Then DbsPath = Left(dbs.Name, Pos - 1) ChDrive Left(DbsPath, 1) ChDir DbsPath Exit For End If Next Pos Kill DbsPath & "\OnLineMachines.bat" Set FS = CreateObject("Scripting.FileSystemObject") Set NewFile = FS.CreateTextFile(DbsPath & "\OnLineMachines.bat", True) NewFile.WriteLine (NetPath & "\NET VIEW /NETWORK > " & Ct & CurDir & "\OnLineMachines.txt" & Ct) NewFile.Close RetVal = Shell("OnLineMachines.bat", vbHide) Set FS = Application.FileSearch With FS .LookIn = DbsPath .FileName = "OnLineMachines.txt" Do: Loop Until .Execute > 0 End With Open "OnLineMachines.txt" For Input As #1 DoCmd.RunSQL ("DELETE ServerNames.* FROM ServerNames;") Set rst = dbs.OpenRecordset("ServerNames", dbOpenDynaset) Do While Not EOF(1) Line Input #1, TextLine Pos = InStr(1, TextLine, "\\") If Pos > 0 Then With rst .AddNew !ServerName = RTrim(Mid(TextLine, 3, 20)) !Remarks = RTrim(Mid(TextLine, 24, 50)) .Update End With End If Loop Close #1 rst.Close Set dbs = Nothing Kill DbsPath & "\OnLineMachines.bat" Kill DbsPath & "\OnLineMachines.txt" End Sub تحياتي .

السلام عليكم أخي محمد .. أضف السطر If TextLine = "" Then Exit Do كما هو موضح بالكود التالي وجرب مرة أخرى بأي إصدار للوندوز . Do While Not EOF(1) Line Input #1, TextLine If TextLine = "" Then Exit Do Pos = InStr(1, TextLine, "\\") If Pos > 0 Then With rst .AddNew !ServerName = RTrim(Mid(TextLine, 3, 20)) !Remarks = RTrim(Mid(TextLine, 24, 50)) .Update End With End If Loop تحياتي .

السلام عليكم (y) :NO: الأولى : أهنيك على اختصار الشرط بشكل رهيب . الثانية : هو تساؤل ماذا يعمل المبرمج بدون الرياضيات .. الحقيقة شيء صعب ، ومن أطرف الأمور في حياتي أن أول من علمني البرمجة تركها لأنه ضعيف جدا في الرياضيات وقد سببت له مشاكل كبيرة ، عموما أنا من طلبة الأجيال القديمة قبل الرياضيات الحديثة ومنذ الثانوية كانت دراستي في الرياضيات المالية :( . الثالثة : الكود ما بعد الشرط اختصاره سيسبب مشكلة حيث أني تعمدت ترك خانة الشرط الأول لتظليل السطر الحالي Current record . تحياتي .

السلام عليكم بارك الله فيك ابو ريان .. عمل طيب ولي ملاحظة بسيطة إن سمحت لي : حاول أخي أن تستخدم دالة Max بدلا من Last حيث Last ترجع آخر إدخال وإن لم يكن الأكبر ، يعني لو تم إدخال 2 بعد 5 فستخرج الدالة 2 ، أما الـ Max في سترجع أكبر قيمة بغض النظر عن ترتيب إدخالها . تحياتي .

السلام عليكم تحياتي .

السلام عليكم مثال للحصول على أسماء المحطات/الطرفيات لشبكة Windows 2000 Server . يحتاج لملف net.exe وعادة يتواجد على C:\WINDOWS\system32 ويتم حفظه ومساره في جدول Path التابع للمثال . تحياتي . OnLineMachines.rar

السلام عليكم جيد أخي مهند .. كلامك صحيح ، أن الطريقة الأولى بعد التعديل عليها بإضافة التوقيت لها هي الأفضل ولكن تبقى مشكلة تحديدك لنوع واحد فقط من الـ Controls ، فماذا لو أن هناك Combo Box أو List Box ؟ تحياتي .

السلام عليكم أخي مهند .. لقد حاولت أن أخفف من عملية التكرار والتلوين المستمر لكل مكونات النموذج اعتمادا على اقتراحك الأخير باستخدام المؤقت ، طبعا قبل أن أرى ردك الأخير وقبل التجربة كذلك . تحياتي . Muhannad.rar

السلام عليكم جميل أخي مهند .. ولكن تبقى مشكلة الماوس . اعتقدت قبل التعديل أن حدث MouseMove لقسم الـ Detail/تفصيل سيحل الموضوع ولكن بعد تجربته لم ينجح . تحياتي .

السلام عليكم أخي مهند .. المشكلة غريبة ، علما أنني أستخد أكسس 2003 . عموما قد نخرج عن الموضوع قليلا ولكنه ذا صلة من بعيد :( لقد عملت أداة سابقة ولم أنجح في عمل خاصية Text والغريبة هي تعمل بشكل سليم مع الـ VB ولا تعمل مع الأكسس ، وهنا الكود الذي استخدمته : Public Property Let Text(ByVal vNewValue As String) txtUm.Text = vNewValue PropertyChanged "Text" End Property Public Property Get Text() As String Text = txtUm.Text End Property Private Sub UserControl_WriteProperties(PropBag As PropertyBag) PropBag.WriteProperty "Text", Text, Extender.Name End Sub Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Text = PropBag.ReadProperty("Text", Extender.Name) End Sub فما الخلل هنا يا ترى ؟ تحياتي .

السلام عليكم أخي مهند .. الوضع واضح جدا ولا يحتاج لإرفاق ملف ، ودعني هذه المرة أن أسألك أنا ، هل حاولت تجربة الأداة بعد تعديل عرضها (Width) لأقل من 6.429 سم ؟ حيث هي تعمل بشكل طبيعي لما يساوي أو أكبر من 6.429 سم . تحياتي .