تعديل الكود في الاستعلام

[بلال بلال]

السلام عليكم

يوجد استعلام اسمه Query2 

تعديل الكود الموجود في الاستعلام

 BB: IIf(IsNull([Hor1]);"أدخل التوقيت من";IIf(IsNull([Hora1]);"أدخل التوقيت الى";"تم حجز التوقيت"))

عند حجز التوقيت من 0:00  التوقيت الى 0:00 يتم اظهار  تم حجز التوقيت

اريد

عند حجز التوقيت 0:00 يظهر (( يوجد خطأ في التوقيت))

وعند حجز التوقيت اكثر من ساعة يظهر (( يوجد خطأ في التوقيت))

وعند حجز التوقيت اقل من ساعة يظهر (( يوجد خطأ في التوقيت))

وعند وجود الحقل فارغ تظهر (( أدخل التوقيت))

 

البرنامج التاريخ.rar

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

جرب التعديل التالي على الزر cmdOK في النموذج frmTimeTo :-

Private Sub cmdOK_Click()

    Dim strDuration As String
    Dim frmTarget As Form
    Dim strTime As String
    Dim blnValid As Boolean
    Dim Hours As Integer
    Dim Minutes As Integer
    Dim TotalMinutes As Long

    On Error GoTo ErrorHandler

    '==========================
    ' التحقق من إدخال الوقت
    '==========================
    If Trim(Nz(Me.mdfo, "")) = "" Then
        MsgBox "أدخل التوقيت", vbExclamation, "تنبيه"
        Me.mdfo.SetFocus
        Exit Sub
    End If

    strTime = Trim(Me.mdfo)

    '==========================
    ' التحقق من التنسيق 00:00
    '==========================
    If Len(strTime) = 5 And Mid(strTime, 3, 1) = ":" Then

        Hours = Val(Left(strTime, 2))
        Minutes = Val(Right(strTime, 2))

        If Hours >= 0 And Hours <= 23 _
        And Minutes >= 0 And Minutes <= 59 Then
            blnValid = True
        End If

    End If

    If Not blnValid Then
        MsgBox "يجب إدخال الوقت بالتنسيق (00:00)" & vbCrLf & _
               "مثال: 08:30 أو 14:45", _
               vbCritical, "تنسيق وقت خاطئ"
        Me.mdfo.SetFocus
        Exit Sub
    End If

    '==========================
    ' النموذج الهدف
    '==========================
    Set frmTarget = Forms!Form1.Form

    frmTarget!Horair = strTime

    '==========================
    ' التأكد من وجود وقت البداية
    '==========================
    If Trim(Nz(frmTarget!Horaire, "")) = "" Then
        MsgBox "أدخل التوقيت", vbExclamation
        Exit Sub
    End If

    '==========================
    ' حساب المدة
    '==========================
    strDuration = GetDuration(frmTarget!Horaire, frmTarget!Horair)

    'تحويلها إلى دقائق
    Hours = Val(Split(strDuration, ":")(0))
    Minutes = Val(Split(strDuration, ":")(1))

    TotalMinutes = Hours * 60 + Minutes

    '==========================
    ' يجب أن تكون ساعة واحدة فقط
    '==========================
    If TotalMinutes <> 60 Then
        MsgBox "يوجد خطأ في التوقيت", vbCritical, "تنبيه"

        frmTarget!Horair = Null
        frmTarget!Time_Period = Null

        Exit Sub
    End If

    '==========================
    ' تخزين المدة
    '==========================
    frmTarget!Time_Period = strDuration

    DoCmd.Close acForm, Me.Name, acSaveNo

    Exit Sub

ErrorHandler:
    MsgBox "خطأ: " & Err.Description, vbCritical

End Sub