ادراج التواريخ والايام بطريقة معينة

[jo_2010]

الخبراء الافاضل

بعد التحية

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

على ان يبدا العام من 21/12/2024 وينتهى فى 20/12/2025

ولا يكتب التاريخ ولا اليوم الخاص بيومى الجمعة والاحد

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

[Foksh]

طبعاً الصورة من جدول اكسيل ، وانت تريدها في آكسيس ، صحيح ؟؟؟

الفكرة التي كانت موجودة سابقاً في أحد مشاريعي مشابهة لطلبك ولكن دون استثناء اي يوم ، والبداية من أول يوم في السنة .

الفكرة تم تعديلها بحيث تم انشاء نموذج يحتوي كومبوبوكس يحتوي ارقام السنوات ( 2020 ، 2021 ، 2022 ، ..... 2030 ) . وكود المديول التالي الذي يتم استدعائه في زر :-

 

Public Sub GenerateDatesTbl()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date
    Dim yearSelected As Integer
    Dim dayName As String
    Dim sqlCreateTable As String
    Dim activeForm As Form
    Dim tableExists As Boolean
    On Error Resume Next
    Set activeForm = Screen.activeForm
    On Error GoTo 0
    yearSelected = Nz(activeForm!Tx_Years.Value, 0)
    If yearSelected = 0 Then
        MsgBox "يرجى اختيار السنة أولاً", vbExclamation, "تنبيه"
        Exit Sub
    End If
    startDate = DateSerial(yearSelected, 12, 21)
    endDate = DateSerial(yearSelected + 1, 12, 20)
    tableExists = False
    Set db = CurrentDb
    On Error Resume Next
    tableExists = Not IsNull(db.TableDefs("TempDates").Name)
    On Error GoTo 0
    If Not tableExists Then
        sqlCreateTable = "CREATE TABLE TempDates (ID COUNTER PRIMARY KEY, " & _
                         "DayName TEXT(50), DateValue DATE)"
        db.Execute sqlCreateTable
        DoCmd.SelectObject acTable, TempDates, True
    End If
    Set rs = db.OpenRecordset("TempDates", dbOpenDynaset)
    db.Execute "DELETE FROM TempDates"
    currentDate = startDate
    Do While currentDate <= endDate
        dayName = Format(currentDate, "dddd")
        If dayName <> "Friday" And dayName <> "Sunday" Then
            rs.AddNew
            rs!dayName = dayName
            rs!DateValue = currentDate
            rs.Update
        End If
        currentDate = currentDate + 1
    Loop
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    MsgBox "تم إنشاء التواريخ بنجاح", vbInformation, "نجاح"
End Sub

حيث بعد الاستدعاء سيتم انشاء جدول افتراضي يحتوي 3 حقول ( حقل الترقيم التلقائي ، وحقل اسم اليوم ، وحقل تاريخ اليوم ) .

 

وسلامتكم 

والملف المرفق

Insert Date.accdb

[jo_2010]

في 28‏/11‏/2024 at 13:46, Foksh said:

طبعاً الصورة من جدول اكسيل ، وانت تريدها في آكسيس ، صحيح ؟؟؟

الفكرة التي كانت موجودة سابقاً في أحد مشاريعي مشابهة لطلبك ولكن دون استثناء اي يوم ، والبداية من أول يوم في السنة .

الفكرة تم تعديلها بحيث تم انشاء نموذج يحتوي كومبوبوكس يحتوي ارقام السنوات ( 2020 ، 2021 ، 2022 ، ..... 2030 ) . وكود المديول التالي الذي يتم استدعائه في زر :-

 

Public Sub GenerateDatesTbl()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date
    Dim yearSelected As Integer
    Dim dayName As String
    Dim sqlCreateTable As String
    Dim activeForm As Form
    Dim tableExists As Boolean
    On Error Resume Next
    Set activeForm = Screen.activeForm
    On Error GoTo 0
    yearSelected = Nz(activeForm!Tx_Years.Value, 0)
    If yearSelected = 0 Then
        MsgBox "يرجى اختيار السنة أولاً", vbExclamation, "تنبيه"
        Exit Sub
    End If
    startDate = DateSerial(yearSelected, 12, 21)
    endDate = DateSerial(yearSelected + 1, 12, 20)
    tableExists = False
    Set db = CurrentDb
    On Error Resume Next
    tableExists = Not IsNull(db.TableDefs("TempDates").Name)
    On Error GoTo 0
    If Not tableExists Then
        sqlCreateTable = "CREATE TABLE TempDates (ID COUNTER PRIMARY KEY, " & _
                         "DayName TEXT(50), DateValue DATE)"
        db.Execute sqlCreateTable
        DoCmd.SelectObject acTable, TempDates, True
    End If
    Set rs = db.OpenRecordset("TempDates", dbOpenDynaset)
    db.Execute "DELETE FROM TempDates"
    currentDate = startDate
    Do While currentDate <= endDate
        dayName = Format(currentDate, "dddd")
        If dayName <> "Friday" And dayName <> "Sunday" Then
            rs.AddNew
            rs!dayName = dayName
            rs!DateValue = currentDate
            rs.Update
        End If
        currentDate = currentDate + 1
    Loop
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    MsgBox "تم إنشاء التواريخ بنجاح", vbInformation, "نجاح"
End Sub

حيث بعد الاستدعاء سيتم انشاء جدول افتراضي يحتوي 3 حقول ( حقل الترقيم التلقائي ، وحقل اسم اليوم ، وحقل تاريخ اليوم ) .

 

وسلامتكم 

والملف المرفق

Insert Date.accdb 436 kB · 7 downloads

الخبير الفاضل الذى لايبخل بعلمة على احد زادك الله من علمة وفضلة

شكرا لك