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

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

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

وأياديك بيضاء أيضاً أستاذ جعفر.. لا عدمناك 🤑

السلام عليكم.. أرى أن حواراً ممتعا دار في هذه المشاركة مما أثار رغبتي في المشاركة.. 😀 أرجو أن تجدوا في هذه المشاركة شيئاً جديداً ومميزاً.. 🤩 سوف نتعامل مع مصنف أكسل كقاعدة بيانات ولعمل ذلك نطبق الشفرة التالي '-- OPEN XLS FILE AS REMOTE DATABASE Dim XLDB As DAO.Database Set XLDB = OpenDatabase( _ CurrentProject.Path & "\CS_SeetNumberLabels2.xlsx", False, False, "EXCEL 12.0;HDR=NO;") عند فتح مصنف أكسل كقاعدة بيانات سوف تصبح أوراق البيانات كجداول بيانات في أكسس، ولكي نتحقق من ذلك نستخدم الغرض TableDefs لسرد أسماء الجداول (أوراق البيانات) '-- LOOP THROUGH XLDB TABLES (SHEETS) For Each TD In XLDB.TableDefs TD.Name Next :: عند النظر إلى ورقة البيانات في مصنف البانات نجد البيانات محصورة في العمودين (C,I) والبيانات ليست متساوية الطول وبالتالي نحن بحاجة إلى جعل كل عمود جدول بيانات مستقل! :: يوجد في مكون البيانات Recordset وظيفة اسمه Getrows تقوم بتجميع البيانات كمصفوفة بيانات يحدد طولها المستخدم حسب احتياجة. ولكون البيانات الطالب في ورقة البيانات تتكون من 5 صفوف؛ وبناءُ عليه سوف نقوم بتجميع البيانات على هذا الأساس. لكن يجب أن نقوم بأخذ عدد السجلات في الجدول (ورقة البيانات) والذي هو بالتأكيد من مضاعفات الـ(5). الوظيفة Getrows تقوم بأخذ المجموع التالية من السجلات عن اطلاقها مرة أخرى وبالتالي نحن بحاجة إلى دوارة بطول السجلات وتقوم بالقفز كل 5 سجلات، بمعنى (20/5). :: نقوم بعد ذلك بتسجيل البيانات في جدول الطلاب من مصفوفة البيانات التي تعيدها Getrows. :: سوف تدور الشفرة على جميع الجداول (أوراق البيانات) وتكرر جلب البيانات مرتين حسب أعمدة البيانات التي سبق الإشارة إليها. كما أنها تقوم بحذف الصفوف الفارغة عند جلب البيانات. الشفرة التالية توضح المبدأ السابق وطريقة نقل البيانات.. '-- LOOP THROUGH XLDB TABLES (SHEETS) For Each TD In XLDB.TableDefs '-----------------------------------------------------------------------------------------' '-- RECORDS FROM COLUMN (C) IN XL SHEET Set XLRS = XLDB.OpenRecordset("SELECT F1 FROM [" & TD.Name & "C:C]WHERE NOT ISNULL(F1)") '-- COUNT RECORDS XLRS.MoveLast: RC = XLRS.RecordCount: XLRS.MoveFirst '-- EACH 5 OF XLRS RECORDS MAKE 1 RECORD IN DBRS For I = 1 To RC Step 5 RCROW = XLRS.GetRows(5) DBRS.AddNew DBRS![ACADEMIC YEAR] = RCROW(0, 0) DBRS![ACADEMIC NUM] = Mid(RCROW(0, 1), InStrRev(RCROW(0, 1), Chr(32))) DBRS![STNAME] = RCROW(0, 2) DBRS![F1] = RCROW(0, 3) DBRS![Sub] = RCROW(0, 4) DBRS.Update Next Set XLRS = Nothing '--------------------------------------------------------------------------------------' '-- RECORDS FROM COLUMN (I) IN XL SHEET Set XLRS = XLDB.OpenRecordset("SELECT F1 FROM [" & TD.Name & "I:I]WHERE NOT ISNULL(F1)") '-- COUNT RECORDS XLRS.MoveLast: RC = XLRS.RecordCount: XLRS.MoveFirst '-- EACH 5 OF XLRS RECORDS MAKE 1 RECORD IN DBRS For I = 1 To RC Step 5 RCROW = XLRS.GetRows(5) DBRS.AddNew DBRS![ACADEMIC YEAR] = RCROW(0, 0) DBRS![ACADEMIC NUM] = Mid(RCROW(0, 1), InStrRev(RCROW(0, 1), Chr(32))) DBRS![STNAME] = RCROW(0, 2) DBRS![F1] = RCROW(0, 3) DBRS![Sub] = RCROW(0, 4) DBRS.Update Next Set XLRS = Nothing Next إليكم الشفرة كاملة Option Compare Database Option Explicit Sub IMPORT_XLSDB() On Error GoTo SUB_CLOSE '-- OPEN CURRENT DATABASE AS LOCAL DB Dim DB As DAO.Database Set DB = CurrentDb '-- OPEN RS DB TO ADD DATA Dim DBRS As DAO.Recordset Set DBRS = CurrentDb.OpenRecordset("TABLE") '-- OPEN XLS FILE AS REMOTE DATABASE Dim XLDB As DAO.Database Set XLDB = OpenDatabase( _ CurrentProject.Path & "\CS_SeetNumberLabels2.xlsx", False, False, "EXCEL 12.0;HDR=NO;") '-- OPEN XLS SHEET AS REMOTE RS Dim XLRS As DAO.Recordset Dim RCROW() Dim RC As Long Dim I As Integer Dim TD As DAO.TableDef '-- LOOP THROUGH XLDB TABLES (SHEETS) For Each TD In XLDB.TableDefs '-----------------------------------------------------------------------------------------' '-- RECORDS FROM COLUMN (C) IN XL SHEET Set XLRS = XLDB.OpenRecordset("SELECT F1 FROM [" & TD.Name & "C:C]WHERE NOT ISNULL(F1)") '-- COUNT RECORDS XLRS.MoveLast: RC = XLRS.RecordCount: XLRS.MoveFirst '-- EACH 5 OF XLRS RECORDS MAKE 1 RECORD IN DBRS For I = 1 To RC Step 5 RCROW = XLRS.GetRows(5) DBRS.AddNew DBRS![ACADEMIC YEAR] = RCROW(0, 0) DBRS![ACADEMIC NUM] = Mid(RCROW(0, 1), InStrRev(RCROW(0, 1), Chr(32))) DBRS![STNAME] = RCROW(0, 2) DBRS![F1] = RCROW(0, 3) DBRS![Sub] = RCROW(0, 4) DBRS.Update Next Set XLRS = Nothing '--------------------------------------------------------------------------------------' '-- RECORDS FROM COLUMN (I) IN XL SHEET Set XLRS = XLDB.OpenRecordset("SELECT F1 FROM [" & TD.Name & "I:I]WHERE NOT ISNULL(F1)") '-- COUNT RECORDS XLRS.MoveLast: RC = XLRS.RecordCount: XLRS.MoveFirst '-- EACH 5 OF XLRS RECORDS MAKE 1 RECORD IN DBRS For I = 1 To RC Step 5 RCROW = XLRS.GetRows(5) DBRS.AddNew DBRS![ACADEMIC YEAR] = RCROW(0, 0) DBRS![ACADEMIC NUM] = Mid(RCROW(0, 1), InStrRev(RCROW(0, 1), Chr(32))) DBRS![STNAME] = RCROW(0, 2) DBRS![F1] = RCROW(0, 3) DBRS![Sub] = RCROW(0, 4) DBRS.Update Next Set XLRS = Nothing Next SUB_CLOSE: '-- COLOSE XLDB AND XLRS Set XLRS = Nothing ' XLDB.Close Set XLDB = Nothing '------------------------' '-- CLOSE DB AND DBRS Set DBRS = Nothing XLDB.Close Set XLDB = Nothing End Sub وهذه هي المفرفقات التى تتضمن المثال... CS_SeetNumberLabels2.xlsxPosters.accdb

السلام عليكم 🙂 هذه الواجهة : 1. لما تفتح لك نافذة الاختيار ، تقدر تختار ملف واحد ، او عن طريق مسك زر Shift او Ctrl تقدر تختار اكثر من ملف ، 2. ستظهر لك اسماء الملفات اللي اخترتها هنا ، 3. هذا الزر اللي يجلب البيانات الى قاعدة البيانات ، 4. و بهذا الزر تختار المجلد ، ومنها يقوم البرنامج بجلب جميع ملفات الاكسل ، ويضع مسار الملفات في #2 . وهذه الاكواد ، 1. Private Sub Browse_Click() Dim varFile As Variant Me.txtPath = "" With Application.FileDialog(3) .title = "اختار ملف او عدة ملفات" .Filters.Clear .Filters.Add "Excel Files", "*.xls ; *.xlsx" '.Filters.Add "Excel Files", "*.csv" .AllowMultiSelect = True 'False .InitialFileName = "" If .Show = -1 Then 'Loop through each file selected and add them to the textbox For Each varFile In .SelectedItems Me.txtPath = varFile & vbCrLf & Me.txtPath Next End If End With End Sub . 4. Private Sub cmd_All_Files_In_Folder_Click() Dim strPattern As String, myDir As String, varFile As String If MsgBox("هل أنت متأكد من رغبتك في استيراد جميع الملفات" & objName & "؟", vbCritical + vbYesNo + 256, "تأكيد") = vbYes Then 'Important we use msoFileDialogFolderPicker instead of (...)FilePicker With Application.FileDialog(4) 'Optional: FileDialog properties .title = "Select a folder" .InitialFileName = "C:\" If .Show = -1 Then Me.txtPath = "" strPattern = "*.xls" 'Loop through each file selected and add them to the textbox myDir = .SelectedItems(1) & "\" varFile = Dir(myDir & strPattern, vbNormal) Do While varFile <> "" Me.txtPath = myDir & varFile & vbCrLf & Me.txtPath varFile = Dir Loop End If End With End If End Sub . 3. هذا الكود ينادي بقية الوحدات النمطية ، Private Sub Command1_Click() CurrentDb.Execute ("Delete * From Table1") CurrentDb.Execute ("Delete * From Temp4") 'call for multiple WorkBooks Call f_Import_WorkBooks("Temp4") MsgBox "تم استيراد البيانات بنجاح" End Sub f_Import_WorkBooks علشان سهولة استعمال الكود لملفات مثل هذه الملفات ، استيراد جميع الاوراق من الاكسل ، من جميع الملفات في المجلد ، وما له علاقة بكود استيراد البيانات (هذا الكود الذي ينادي الوحدة النمطية لإستيراد البيانات Call f_Import_to_Table(colWorksheets(lngCount)) ) ، مع ملاحظة ان هذا الكود لا يتغير بتغير نوع الملفات من موقع النور : Public Function f_Import_WorkBooks(strTable As String) 'import Sheets Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String Dim strPassword As String 'For Multiple files Dim x() As String x = Split(Me.txtPath, vbCrLf) For i = LBound(x) To UBound(x) - 1 strPathFile = x(i) ' Establish an EXCEL application object On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 ' Replace tablename with the real name of the table into which the data are to be imported 'strTable = "Temp4" '"tablename" ' Change this next line to True if the first row in EXCEL worksheet has field names blnHasFieldNames = False ' Replace passwordtext with the real password; ' if there is no password, replace it with vbNullString constant ' (e.g., strPassword = vbNullString) strPassword = vbNullString '"passwordtext" blnReadOnly = True ' open EXCEL file in read-only mode ' Open the EXCEL file and read the worksheet names into a collection Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly, , strPassword) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount ' Close the EXCEL file without saving the file, and clean up the EXCEL objects objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 'Empty Table CurrentDb.Execute ("Delete * From " & strTable) DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" 'save Results to Table Call f_Import_to_Table(colWorksheets(lngCount)) Next_lngCount: Next lngCount 'looping for Multiple files Next i ' Delete the collection Set colWorksheets = Nothing End Function . f_Import_to_Table وهنا نعمل الكود لإستيراد البيانات من الاكسل ، وهو الكود الذي يحتاج الى تغيير ، كلما اردنا استيراد بيانات مختلفة من موقع النور : Public Function f_Import_to_Table(Sheet As String) Dim myField As String Dim rst1 As DAO.Recordset, rst2 As DAO.Recordset Dim i As Long, j As Long Set rst2 = CurrentDb.OpenRecordset("Select * From Table1") 'يوجد عمودين لكل ورقة :F2 AND F8 For j = 2 To 8 Step 6 myField = "F" & j Set rst1 = CurrentDb.OpenRecordset("Select " & myField & " From Temp4 Where " & myField & " Is Not Null") rst2.AddNew Do Until rst1.EOF i = i + 1 If i = 1 Then rst2![Academic Year] = rst1(myField) rst2!Sheet = Sheet ElseIf i = 2 Then rst2![Academic Num] = Mid(rst1(myField), InStrRev(rst1(myField), " ") + 1) ElseIf i = 3 Then rst2![StName] = rst1(myField) ElseIf i = 4 Then rst2![F1] = rst1(myField) ElseIf i = 5 Then rst2![Subjects] = rst1(myField) i = 0 rst2.Update rst2.AddNew End If rst1.MoveNext Loop Next j rst1.Close: Set rst1 = Nothing rst2.Close: Set rst2 = Nothing End Function . بسبب انني فككت الكود اعلاه ، فالكود يفتح ويغلق Recorsets كثيرا ، مما يؤدي الى بطئ البرنامج (انا اعتبره بطيء ، ومو مثل ما اخوي محمد كان يتمناه بسرعته 🙄 ) ، ولكن اذا صار عندي وقت ان شاء الله انظر فيه مرة اخرى 🙂 جعفر 1206.2.Posters.mdb_accdb.zip

الله عليك استاذ أحمد الفلاحجى

ولا يهمك اخى محمد جرب الان ووافنى بالنتيجه جزاك الله خيرا اخى @husamwahab التقيم1.accdb

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

أكثر من مرة أكرر انه لا يجوز ان يكون في جداول الاكسل خلايا مدمجة ويكون مستقلاً عن اي بيانات اخرى (ليس فقط في ازمة كورونا بل في كل الأحوال) تم ادراج صف فارغ لتحييد الجدول (الصف رقم 6) الماكرو Option Explicit Sub Filter_Class() If ActiveSheet.Name <> "Feuil1" Then Exit Sub Dim F As Worksheet Dim D1 As Object, D2 As Object, D3 As Object Dim i%, a As Boolean, b As Boolean, c As Boolean Dim x%, y%, m%, z%, arr, ky Dim st$ Set F = Sheets("Feuil1") Set D1 = CreateObject("Scripting.Dictionary") Set D2 = CreateObject("Scripting.Dictionary") Set D3 = CreateObject("Scripting.Dictionary") With F .Range("P7").CurrentRegion.ClearContents .Range("Ad7").CurrentRegion.ClearContents .Range("P27").CurrentRegion.Offset(1).ClearContents i = 8 Do Until i = 39 st = Mid(Trim(.Cells(i, 2)), 1, 1) Select Case st Case "3": a = True: b = False: c = False Case "2": b = True: a = False: c = False Case Else: b = False: a = False: c = True End Select arr = Application.Transpose(.Cells(i, 2).Resize(, 13)) arr = Application.Transpose(arr) If a Then D3(z) = Join(arr, "*"): z = z + 1 ElseIf b Then D2(y) = Join(arr, "*"): y = y + 1 Else D1(x) = Join(arr, "*"): x = x + 1 End If i = i + 1 Loop m = 7 If D3.Count Then For Each ky In D3 .Cells(m, "P").Resize(, 13) = Split(D3(ky), "*") m = m + 1 Next ky End If m = 7 If D2.Count Then For Each ky In D2 .Cells(m, "AD").Resize(, 13) = Split(D2(ky), "*") m = m + 1 Next ky End If m = 27 If D1.Count Then For Each ky In D1 .Cells(m, "P").Resize(, 13) = Split(D1(ky), "*") m = m + 1 Next ky End If .Range("P7").CurrentRegion.Value = _ .Range("P7").CurrentRegion.Value .Range("Ad7").CurrentRegion.Value = _ .Range("Ad7").CurrentRegion.Value .Range("P27").CurrentRegion.Value = _ .Range("P27").CurrentRegion.Value End With End Sub الملف مرفق Te3dad.xlsm

السلام عليكم تفضل اخي الكريم ارجو ان يكون طلبك Root5.rar

السلام عليكم مرفق قاعدة البيانات الموضوع : كود صغير لانشاء مجلد باسم معين وفي مكان محدد على الكمبيوتر المكان المرفق بالقاعدة سطح المكتب الخاص بي كل ما عليك تغيير المكان بين الكوتيشن وجرب انشاء مجلد.accdb

الله يعطيك العافية يا ابا اشرف

الكثير منّا يحاول ادخال التاريخ في الكومبوبوكس لكن المشكلة انه يظهر بالتنسيق الأميركي (شهر /يوم /سنة) بحلية بسيطة يمكننا ان نخدع الاكسل لأدخال التاريخ في الكومبوبوكس كما نريد نحن (يوم/شهر/ سنه) اذ ليس الامر باختياره انظر الى الملف المرفق لتعرف ماذا اعني Reel_date_to Combo.xlsm

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

أعتذر عن هذا الخطأ غير المقصود.. إليك التصحيح.. Posters.accdb

بعد اذنك أخي @احمد الفلاحجي تابع الصور أخي الكريم

السلام عليكم ورحمة الله وبركاته الاخوة الكرام واساتذتي الافاضل توجهت لمنتداكم الكريم للمساعدة في كيفية طباعة شيت به بيانات اكثر من 500 تلميذ مرة واحدة بدلا من صفحة تلو الاخرى والحمد لله تم العمل بتعاون الاخوة الافاضل سواء هنا او بمنتدى اخر وقمت بالتعديل والاضافة حسب معرفتي البسيطة بالمعادلات والاكواد واعترافا بالفضل اضع بين ايديكم هذا العمل المتواضع ملف شيت به 8 شهادات بالصفحة الواحدة البيانات بالشهادة 1 -اسم المستخدم او كود التلميذ مضاف اليه moe 2 - الاسم الاول 3 - اسم العائلة 4 - رمز الصف وهو عبارة عن رمز اي صف من الصفوف المسجلة ببالبند رقم 5 ( للتسحيل للمرة الاولى فقط ) 5 - رمز فصل ل5 مواد وهي ( لغة عربية - لغة انجليزية - رياضيات - علوم - دراسات ) جدول لكتابة المشروعات المطلوبة من التلميذ مرفق ملف مضغوط به 2 شيت واحد بدون حماية لمن اراد التعديل وملف لمن لا يجيد المعادلات ويخشى ان يغير شئ ويضيع تعبه سدى حتى الحمايةجعلتها بدون كلمة سر شيت طباعة بيانات ادمودو للتلاميذ.zip

اللـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــه الله الله ايه ده عبقرية + شخصية محترمه + تواضع شديد = احمد الفلاحجى روح ياشيخ ربنا يباركلك في اولادك ووالديك ويعطيك الصحة ويرزفك من غير حساب هو ده المطلوب بالصبط

الله عليك انت اخى واستاذى حسام فمازلت اتعلم منكم واعانك الله علينا طلاب العلم بارك الله فيك وجزاك الله كل خير

اللهم امين واياكم اخى محمد اتفضل اخى محمد @حلبي وانا اخوك الصغير ان شاء الله يكون ما تريد التقيم(1).accdb

السلام عليكم اهلا اخى محمد @حلبي مشاركه مع اخوانى واساتذتى @husamwahab و @kha9009lid جزاهم الله خيرا اولا غير حقل الدرجه واجعله نصى ثم ادخل الدرجات وبدون استخدام الوحده النمطيه حاجه على قدى علشان خاطرك اخى محمد حلبى التقيم(1).accdb

هل هذا هو المطلوب التقيم.accdb

على الرغم انك لم ترفق ملف لكن انظر الى هذا الملف لعلك تستفيد منه واعتقد انه المطلوب timer.xls

لم أتعود على كتابة الأمثلة وهذه مقدرتي ، من يمتلك هذه الملكة فليقوم بالاختبارات وعمل أمثلة أكثر وضوحا. من أهم ما أشدد على الالتزام به هو أن تستخدم دالة تحويل التاريخ إلى رقم لجهتي المقارنة أي حقل الجدول و قيمة البحث. Sub Test4() Dim TestDate As Date Dim SearchText As String '----------------------------------------------------------- 'المعتاد SearchText = "Birthdate=" & #10/4/2020# 'الاحترازي TestDate = DateSerial(2020, 4, 10) SearchText = "CLng(Birthdate)=" & CLng(TestDate) '-------------------------------------------------------- 'المعتاد SearchText = "Birthdate=" & #10/4/2020 11:43:30 PM# 'الاحترازي TestDate = DateSerial(2020, 4, 10) + TimeSerial(23, 43, 30) SearchText = "CDbl(Birthdate)=" & CDbl(TestDate) End Sub Sub Test5() Dim SearchText As String SearchText = #10/4/2020# Debug.Print CDate(SearchText) 'الناتج 04/10/2020 Debug.Print DateSerial(2020, 4, 10) 'الناتج 10/04/2020 '-------------------------------------------------------- SearchText = #4/13/2020# 'كتبتها 13/4/2020 وحولها المحرر 4/13/2020 Debug.Print CDate(SearchText) 'الناتج 13/04/2020 Debug.Print DateSerial(2020, 4, 13) 'الناتج 13/04/2020 End Sub

السلام عليكم 🙂 برامج الاكسس ممكن ان يصيبها العطب corruption لعدة اسباب ، وبرامج تصليح العطب يجب ان تكون من ضمن مكتبة برامج المبرمج 🙂 يُعتبر برنامج DataNumen Access Repair من احد البرامج المهمة في اصلاح ملفات الاكسس المعطوبة ، والآن الشركة تعطي النسخة الاحدث 2.9 للإستعمال الشخصي الغير تجاري ، مجانا ، من موقعهم : https://www.datanumen.com/access-repair/ انزلته وجربته ، بس لاحظت ان البرنامج بطيء بالمقارنة مع بعض البرنامج الاخرى ، ولكن لا تنسى أنها نسخة مجانية (للإستعمال الشخصي الغير تجاري) 🙂 جعفر رجاء استعمل رابط الشركة حتى تنزل آخر نسخة هناك ، بينما ارفق هنا النسخة 3 (احتياطا ، اذا غيرت الشركة رأيها لاحقا والغت النسخة المجانية ، فتكون عندنا هنا النسخة المجانية 🙂 ) daccr.zip

بمجرد أن يكون اليوم أكبر من أو يساوي 12 غالبا تنتهي مشاكل التاريخ بسبب الخلط بين اليوم والشهر متأثرا بتنسيق نظام التشغيل. ولكن إذا قل اليوم عن 12 وهو القيمة الكبرى للشهور تبدأ أحيانا مشاكل الخلط وبالتالي اختلاف قيمة التاريخ وخصوصا إذا كتب التاريخ على شكل نص وحصره بعلامتي الرقم #. طريقتي في الاحتراز: تحويل التاريخ إلى رقم باستخدام أربع دوال كالتالي: - إذا كان التاريخ بدون وقت يمكن استخدام دالة CLng. - إذا كان التاريخ يحتوي على وقت ينصح باستخدام دالة CDbl. - إذا كان التاريخ على شكل نص مثل #10/04/2020# وهذا أخطرها ينصح باستخدام دالة DateSerial ليصبح DateSerial(2020, 4, 10). - وإذا كان على شكل نص ويحتوي على وقت مثل #10/4/2020 11:43:30 PM# ينصح بإضافة دالة TimeSerial ليصبح DateSerial(2020, 4, 10) + TimeSerial(23, 43, 30). قد يستثقلها المبرمج ويرى فيها تعقيدا ولكن كاحتراز فهي مطلوبة بشدة وخصوصا إذا كانت البرامج لها علاقة بحسابات وأمور يترتب علي أخطائها أضرارا. هذا اجتهادي وقد أكون صائبا وقد أكون مخطئا.

اخوانى الافاضل السلام عليكم لدينا كارت لتقييم كل موظف فى النموذج المرفق كل موظف له تقييم خاص به حسب القسم التابع له المفروض ان الدرجة تكتب هكذا ( 50-20) ومعناها من 20 الى 50 وهذا المعدل يختلف بين موظف واخر المفروض حسب قوانين ولائحة الشركة ان لايزيد عن 50 ولا يقل عن 20 فاذا زاد او قل يتلون حقل التقييم (EV) باى لون وليكن الاحمر فمثلا الموظف محمد كتب له فى حقل التقييم 35 يتلون له حقل التقييم باللون الاخضر واذا كتب له 19.5 يتلون حقل التقييم بالون الاحمر علما بانى اثناء محاولاتى لم اتمكن من ادخال الشكل من ..... الى ..... في الحقل ولم اعرف الخائص المطلوبه لهذا الرقم ويلاحظ بعض الاحيان يكون المعدل عبارة عن كسر مثلا من 12.5 الى 60.5 جزاكم الله خيرا التقيم.accdb

بالتوفيق

الخط يحدد على حسب نوعيه القارىء نفسه وبيكون موضح بالبيانات المرفقه مع القارىء وعلى موقعهم والله اعلى واعلم وان شاء الله يفيدنا احد الاخوه من لهم تعاملات مع القارىء اكثر بالتوفيق اخى

أستاذ الدهشوري لما لا تقوم بالضغط على الإعجاب لهذه الإجابة الممتازة ؟!!!💙 والله استعجب واستغرب كثيرا لهذا الأمر ... هل هذا تعالى وكبرياء ام ماذا ؟!!! طالما انك تحصلت على ما تريد وكان هذا بفضل ربنا وفضل الأستاذ علي ,لماذا لا تقدم له أقل شيء مطالب ان تقدمه له مقابل حل مشكلتك وهو الضغط على الإعجاب له على حله لمشكلتك ؟

وعليكم السلام اخى صفوت راجع المشاركه التاليه لاختنا ومعلمتنا العزيزه زهره جزاها الله كل خير ان شاء الله تجد بها الحل لما تريد http://arabteam2000-forum.com/index.php?/topic/278727-جهاز-الباركود-لا-يقرأ-الملصق-أين-المشكلة؟؟/&do=findComment&comment=1343520 بالتوفيق ان شاء الله

ولا عبقرى ولا حاجه ده يدوب لسه بفك الخط وبتعلم معاكم اخى محمد جزاك الله خيرا اخى محمد @حلبي واياكم اخى وجزاهم الله خيرا اخوانى واساتذتى @husamwahab و @kha9009lid

غلبتك معايا استاذى / ابو بسمله ماصبطت معى ادخل مثلا الدرجة بين 20-5 ( اى ان الحد الاول رقم واحد فقط ـ والحد الثاني رقمين ) تلاحظ التلوين غير صحيح اسف لازعاجك ولكن كله بثوابه عند الله الاستاذ/ حسام والله انا شاكر لحضرتك جدا ويارب توصل لحل

بارك الله فيك اخى واستاذى خالد @Khalid Jnb وجزاك الله كل خير

الحمدلله تمام , مشكور اخي احمد هذا هو المطلوب ويعمل 100% الله يجزيك كل خير يا رب , انا ممنونك والشكر والتحية ايضا لكل من يعمل على هذا المنتدى الرائع والمفيد

وعليكم السلام الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا الجدول فارغ انظر اليه ثم افتح النموذج جرب الان واخبرنى بالنتيجه aDatabase 1.rar

لغة الكيبورد الأجنبية (: جرف الكاف على الكيبورد) لادخال التاريح بشكل ثابت (:+Ctrl) لادخال االوقت بشكل ثابت ( :+Shift+Crrl )

اهلا بمعلمى واستاذى / @kha9009lid بارك الله فيك الدرجة التى توضع ليست رقم عشرى بل هى معدل او معيار تكتب هكذا 80 - 50 (اى بين القيمتين شرطة ) ولذلك لم اعرف اسجلها في الحقل يظهر لى خطأ في التسجيل وبنفس الفكرة التى وضعتها حضرتك

جزاك الله خيرا الاستاذ / @husamwahab ليس هو المطلوب اخى الفاضل لان حضرتك وضعت التقييم بدون ان تضع الدرجة اولا يلزم وضع درجة الموظف فى الحقل الخاص بها وكل موظف له درجة غير الاخر ثانيا بناءا على الدرجة يتلون حقل التقييم كما شرحت اعلاه يارب تكون الفكرة وضحت

رابط اخر http://www.helenfeddema.com/Files/access.htm

السلام عليكم وجزاكم كل خير اسم وفائدة ومكونات كل ملف بترتيب الملفات على الرابط الاول كما اشرت في الملحوظة الرابط التالي ولكن عذرا اسم الملف وفائدة باللغة الانجليزية https://fmalaa.wordpress.com/2014/03/03/أكبر-مكتبة-للأكسيس-والتطبيقات-عليه/ اليكم القائمة بارقام واسماء الملفات No. Title Download All All the Access Archon columns from WOW wowaarch.zip 1. Null to Zero accarch01.zip 2. Date Magic accarch02.zip 3. Mysteries of the Enums accarch03.zip 4. Getting Information from the Registry accarch04.zip 5. Parameter Popups and What Causes Them accarch05.zip 6. Linked Combo Boxes accarch06.zip 7. Add-to Combo Boxes accarch07.zip 8. More Add-to Combo Boxes accarch08.zip 9. Inter-Office Images accarch09.zip 10. Selecting All or Nothing from a Combo Box accarch10.zip 11. Displaying Unrelated Data on a Form accarch11.zip 12. Using the Tag Property to Copy and Restore Values accarch12.zip 13. Conditional Report Formatting accarch13.zip 14. Pick from/Write To Combo Boxes accarch14.zip 15. Early and Late Binding of Variables accarch15.zip 16. Form and Report Types accarch16.zip 17. Printing the Same Information Twice on a Report accarch17.zip 18. Year-end Summary accarch18.zip 19. Fields and Controls — There Is a Difference! accarch19.zip 20. Debug.Print, MsgBox, InputBox accarch20.zip 21. Printing Forms And Why You Shouldn’t accarch21.zip 22. Creating Save Names for Word Documents accarch22.zip 23. Numbering Report Lines accarch23.zip 24. Exporting Access Reports accarch24.zip 25. A Miscellany of Tips accarch25.zip 26. Credit Card Dates accarch26.zip 27. An On/Off Switch for Warning Messages accarch27.zip 28. Conference Report accarch28.zip 29. Digital Certificates accarch29.zip 30. Form and Report Templates accarch30.zip 31. Backing up Database Objects accarch31.zip 32. Working with Forms Four Ways accarch32.zip 33. Odds & Ends accarch33.zip 34. Outlook to Access accarch34.zip 35. Working with Non-Normalized Data accarch35.zip 36. Two Access Add-ins accarch36.zip 37. Custom Database Properties accarch37.zip 38. More on Database Properties accarch38.zip 39. Creating Word Custom Doc Properties accarch39.zip 40. Customizing Menus and Toolbars accarch40.zip 41. Selecting a Sort Field for a Report accarch41.zip 42. Selecting a Filter for a Report accarch42.zip 43. Creating a Denormalized Table for Mail Merge accarch43.zip Access Archon Columns from Woody’s Access Watch No. Title Download 44. Merging to Word from Linked Access Tables accarch44.zip 45. Better Reports I accarch45.zip 46. Better Reports II accarch46.zip 47. Using Listboxes and Combo Boxes to Display Data accarch47.zip 48. Retrieving Data from Listboxes and Combo Boxes accarch48.zip 49. Record Numbers and Autonumbers accarch49.zip 50. Retrieving User Paths and Creating Folders accarch50.zip 51. Duplicating Records accarch51.zip 52. Using Special Controls accarch52.zip 53. TreeView Control Wizard and Subdatasheets accarch53.zip 54. The Three Object Models of Access accarch54.zip 55. Moving Large Quantities of Data from Access to Word accarch55.zip 56. Notes on Importing and Exporting accarch56.zip 57. Forms and Subforms accarch57.zip 58. Reports and Subreports accarch58.zip 59. Working with Strings accarch59.zip 60. Queries I accarch60.zip 61. Queries II accarch61.zip 62. Searching and Finding with Access Data accarch62.zip 63. Working with Linked Tables accarch63.zip 64. Updating Distributed Applications accarch64.zip 65. Working with the Word Object Model accarch65.zip 66. Working with the Excel Object Model accarch66.zip 67. Working with the Outlook Object Model accarch67.zip 68. Creating an Access 97 Distributed Application accarch68.zip 69. Creating an Access 2000 Distributed Application accarch69.zip 70. Troubleshooting Distributed Applications accarch70.zip 71. Paired Single-Select Listboxes accarch71.zip 72. Paired Multi-Select Listboxes accarch72.zip 73. Linked Forms and Tab Controls accarch73.zip 74. Getting A New Agent accarch74.zip 75. Renaming Database Objects accarch75.zip 76. Design Schemes Add-In, Part 1 accarch76.zip 77. Design Schemes Add-In, Part 2 accarch77.zip 78. Adding Data on-the-Fly accarch78.zip 79. Many-to-Many Relationships accarch79.zip 80. Formatting Address Components accarch80.zip 81. Working with Files and Folders accarch81.zip 82. Proper Case for Names accarch82.zip 83. Parsing Name and Address Data — The Utilities accarch83.zip 84. Setting Play Order — Manual Selection accarch84.zip 85. Creating Queries in Code accarch85.zip 86. PivotTables and PivotCharts, Part I accarch86.zip 87. PivotTables and PivotCharts, Part II accarch87.zip 88. Finding Things That Haven’t Happened accarch88.zip 89. Flattening Linked Data accarch89.zip 90. Tricky Queries to Impress Your Boss accarch90.zip 91. Using the Office XP FileDialog Object accarch91.zip 92. Mail Merge Mysteries accarch92.zip 93. Working with Captions accarch93.zip 94. A Round-up of Rounding Methods accarch94.zip 95. If…End If And Its Alternatives accarch95.zip 96. Calculating Working Days accarch96.zip 97. Report Footer Positioning accarch97.zip 98. Useful Access Add-ons, Part 1 (Total Access Analyzer) accarch98.zip 99. Three Ways to Do Anything in Access accarch99.zip 100. Specialized Combo Boxes accarch100.zip 101. More Things You Can Do Three Ways in Access accarch101.zip 102. Storing Outlook Mail Messages in an Access Table accarch102.zip 103. Using a TreeView Control as a Record Selector accarch103.zip 104. Making Variable-Height Bordered Text Boxes on Reports accarch104.zip 105. A Continuous Forms Compendium accarch105.zip 106. Mass EMailings from an Access Table accarch106.zip 107. Working with References accarch107.zip 108. Writing Access Add-ins accarch108.zip 109. Using an Array to Work with Form Data accarch109.zip 110. Printing Index Cards accarch110.zip 111. Working with Lookup Tables accarch111.zip 112. Faxing from Access using WinFax with DDE accarch112.zip 113. Avoiding the Object Model Guardian with the Redemption Library accarch113.zip 114. Creating an Incrementing ID with Date Information accarch114.zip 115. Auto-Saving an Access Database accarch115.zip 116. Displaying Search Results in a Subform accarch116.zip 117. Writing Data to a Text Box accarch117.zip 118. Writing Data to a Text File accarch118.zip 119. Access 2003 Security Warnings accarch119.zip 120. Garry Robinson’s Access Security Book accarch120.zip 121. Time Zone Converter accarch121.zip 122. Using the Office Envelope Object to Avoid Attachment Removal accarch122.zip 123. Saving Email Attachments to an Access Table accarch123.zip 124. Footers Like Word accarch124.zip 125. Denormalizing Linked Data accarch125.zip 126. Using Task Reminders to Send an Email Message accarch126.zip Access Archon Columns from Access Watch No. Title Download 127. Creating Excel Time Sheets from Access Data accarch127.zip 128. Comparing Files in a Folder with Files in a Table accarch128.zip 129. Fancy Filters accarch129.zip 130. Filter and Merge accarch130.zip 131. Using the Printer Object accarch131.zip 132. Counting Selections in Listboxes and Combo Boxes accarch132.zip 133. Copying Records and Linked Records accarch133.zip 134. Useful Access Add-ons, Part 1: Clickbook accarch134.zip 135. Mass Report Emailing accarch135.zip 136. Caps and Mixed Case Conversion accarch136.zip 137. Switching Fields and Records accarch137.zip 138. Playing Audio and Video Files Using the Windows Media Player Control accarch138.zip 139. Using Text Files to Write and Read Data accarch139.zip 140. Printing USPS Bar Codes on Envelopes accarch140.zip 141. Matching Word Document Properties with Access Fields accarch141.zip 142. Copying a Template for Use in Mail Merge accarch142.zip 143. Archiving Data accarch143.zip 144. Automating Access Using Windows Script accarch144.zip 145. Matching Access and Outlook Contacts accarch145.zip 146. Filtering Reports by Month and Year accarch146.zip 147. Confirming Deletion of Linked Records accarch147.zip 148. Retrieving Path Information accarch148.zip 149. Useful Add-ons, Part 2 – The Access Workbench accarch149.zip 150. Listing Table and Query Fields accarch150.zip 151. Updated Database Backup accarch151.zip 152. Storing Data in Database Custom Properties accarch152.zip 153. Creating a Folder for a Word Letter accarch153.zip 154. Getting User Paths and Date Formats for Use in VBA Code accarch154.zip 155. The Extras Add-in for Database Backup and Field Listing accarch155.zip 156. Saving to PDF in Access 2007 accarch156.zip 157. Rich Text in Memo Fields in Access 2007 accarch157.zip 158. Interactive Report Filtering and Sorting in Access 2007 accarch158.zip 159. Multi-Valued Fields in Access 2007 accarch159.zip 160. Simple Filters accarch160.zip 161. Add-to Combo Boxes accarch161.zip 162. Getting Your Add-ins to Work in Vista accarch162.zip 163. Sorting Reports by Date accarch163.zip 164. Displaying More Information about ListBox Items accarch164.zip 165. Recovering from an AutoNumber Disaster accarch165.zip 166. The Extras Plus Add-in accarch166.zip 167. Complex Query Problems and Solutions accarch167.zip 168. Merging Data from Queries and Recordsets to Word accarch168.zip 169. Editing Value Lists in Access 2007 accarch169.zip 170. Mass EMailing of Report Links accarch170.zip 171. Linked Listboxes accarch171.zip 172. Adding and Deleting Listbox Items accarch172.zip 173. Setting the Current Row Back Color accarch173.zip 174. Working with Word Document Properties accarch174.zip 175. Using the UpDown Control on an Access Form accarch175.zip 176. Using the Outlook View Control on an Access Form accarch176.zip 177. Writing Data to a Table from a Form accarch177.zip 178. Entering Data for a Many-to-Many Relationship accarch178.zip 179. Concatenating and Saving Data accarch179.zip 180. Working with a Password-Protected Database accarch180.zip 181. Working with Progress Bars accarch181.zip 182. Custom Navigation Bar accarch182.zip 183. Too Many Controls Problem accarch183.zip 184. Creating a Word Document with Form Fields accarch184.zip 185. Folder Selectors for a Main Menu accarch185.zip 186. Controlling One Database from Another accarch186.zip 187. An Unbound Combo Box for Selecting or Creating Records on a Subform accarch187.zip 188. Working with the New Access 2007 Attachment Field accarch188.zip 189. Working with Colors in Access 2007 accarch189.zip 190. And/Or Filtering and Searching accarch190.zip 191. Emailing Custom PDF Reports in Access 2007 accarch191.zip 192. Creating a Fake Access 2007 Split Form in Access 2003 accarch192.zip 193. Using Google Maps on an Access Form accarch193.zip 194. Currency Formatting on Reports accarch194.zip 195. Finding the Nearest Value accarch195.zip 196. Access 2007 Multi-valued Fields Revisited accarch196.zip 197. Filtering by Multiple Selections accarch197.zip 198. Editing Data in Lookup Tables accarch198.zip 199. Forcing Zeroes in Reports accarch199.zip 200. Exporting Access Data to Excel accarch200.zip 201. Colorizing Selected Datasheet Rows accarch201.zip 202. Concatenating Name and Address Fields accarch202.zip 203. Creating a Log File accarch203.zip 204. Creating Future Emails accarch204.zip 205. Backwards Compatibility Problem between Access 2010 and 2007 accarch205.zip 206. Updated Paired Listboxes accarch206.zip 207. Archiving Linked Tables to Another Database accarch207.zip 208. Dealing with Disabled Databases accarch208.zip 209. An Alternate Method for Archiving to Another Database accarch209.zip 210. Listing Office Properties accarch210.zip 211. Showing and Hiding the Navigation Pane accarch211.zip 212. A New Style Main Menu accarch212.zip 213. Slide Show Reports accarch213.zip 214. Mixing Text and Numbers in a Report Column accarch214.zip 215. The Dotted Square Bug accarch215.zip 216. Working with Access from Outlook accarch216.zip 217. Linking to a Textbox accarch217.zip 218. Selecting Countries for a ComboBox List accarch218.zip 219. Creating Text Files with Word Info accarch219.zip 220. Creating a Set of Records accarch220.zip 221. Crosstab Query Reports accarch221.zip 222. Calendar Form accarch222.zip 223. Select or Filter accarch223.zip 224. Printing Selected Record(s) accarch224.zip 225. Report Filtering with Combo Boxes accarch225.zip

وعليكم السلام -بعد اذنك استاذ سليم ... ولما اصلاً لا تقوم بإستخدام خاصية البحث بالمنتدى -تفضل الوارد اولا صادر اولا (first in first out (FIFO

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

يمكنك استخدام هذه المعادلة =IF(AND(WEEKDAY($B4)=6,$C4="حضور"),1,"") حساب يوم الجمعة2.xlsx

لا حاجة الى هذه الشروط المتكررة من IF يكفي ادراج جدول بالأسعار واستعمال الدالة VLOOKUP لهذا الغرض في العامود I نطرح قيمة الكسب اما في العمود J نطرح عدد ثابت 50 (لا أعرف ايهما تريد) انظر الى الملف Moufafaa.xls

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

اخينا @wael gaper الكود سليم ويتم عرض اخر سجل في مجموعة السجلات ولكن يبقى ماهو اخر سجل ؟ فالجدول به البيانات غير مرتبه لذلك كيف نضمن ان اخر سجل نريده هو اخر سجل بمجموعة السجلات . نقوم بعمل ترتيب صريح اما من خلال الجدول وتكون مرئيه علامة الفرز بالجدول عند فتحه او تقوم بفتح السجلات بجملة اس كيو ال متضمنه امر الفرز وحسب ماتريد غير اسم الجدول وعمود الفرز وعذرا اكتب من الموبايل بالتوفيق

جرب هذا الماكرو Option Explicit Sub divise_cells() Dim i%: i = 1 Dim dic As Object Dim itm, k, m%: m = 1 Range("c1").CurrentRegion.ClearContents Set dic = CreateObject("Scripting.Dictionary") Do Until Range("a" & i) = vbNullString dic(i) = Split(Range("a" & i), ",") i = i + 1 Loop For Each itm In dic.items Cells(m, 3).Resize(, UBound(itm) + 1) = itm m = m + 1 Next dic.RemoveAll: Set dic = Nothing End Sub Taksim.xlsm

يا شباب ، عليكم بالبحث في المنتدى ، لتحصلوا على المطلوب البرنامج موجود على سيرفر المنتدى ، هنا: https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=139629 وبرنامج العطاء للتقسيط ، هنا: . جعفر

IsDate: تستخدم هذه الدالة لفحص ما إذا كان المتغير الممرر لها تاريخ أم لا حيث تعيد true إذا كان المتغير تاريخاً و تعيد false إذا لم يكن تاريخاً. IsDate(«تعبير») IsDate("12/03/2017")=True IsDate("أوفيسنا")=False Now: تستخدم هذه الدالة لإستخراج تاريخ و وقت النظام الحاليين. Now() و تكون النتيجة بالشكل التالي: 15-03-2017 10:18:15 Time: تستخدم هذه الدالة لإستخراج وقت النظام الحالي. Time() و تكون النتيجة بالشكل التالي: 10:18:15 Timer: تستخدم هذه الدالة لإستخراج عدد الثواني منذ منتصف الليل. Timer() MonthName: تستخدم هذه الدالة لإرجاع اسم الشهر المحدد . MonthName(«اختصار», «شهر») MonthName(3,True)="مارس" MonthName(8)="أوت" TimeSerial: تستخدم هذه الدالة لإرجاع متغير من نوع تاريخ يحتوي على الوقت لساعة و دقيقة و ثانية محددة. TimeSerial(«ثانية», «دقيقة», «ساعة») TimeSerial(10, 56, 13)=10:56:13 Weekday: تستخدم هذه الدالة لإرجاع متغير "عدد صحيح" يمثل رقم اليوم في الأسبوع. Weekday(أول أيام الأسبوع, التاريخ) Weekday("15/3/2017", vbSunday)=4 WeekdayName: تستخدم هذه الدالة لإرجاع اسم اليوم المحدد من الأسبوع. WeekdayName(«أول أيام الأسبوع», «اختصار», «يوم من الأسبوع») WeekdayName(3, True, vbSunday)="الثلاثاء" و هذه هي القيم المستعملة لتحديد أول أيام الأسبوع: vbUseSystem سيتم استخدام إعدادات النظام vbSunday يمثل يوم الأحد vbMonday يمثل يوم الاثنين vbTuesday يمثل يوم الثلاثاء vbWednesday يمثل يوم الأربعاء vbThursday يمثل يوم الخميس vbFriday يمثل يوم الجمعة vbSaturday يمثل يوم السبت