Rezervacija salePravim program za rezervaciju sala.
Kljucni podaci su:
Datum od
Vrijeme od
Datum do
Vrijeme do
Broj sale - Combo box
Procedura je sljedeca:
Korisnik dobija pisani zahtjev za rezervaciju i počinje sa unosom stavki, redoslijedom kako je napisano.
Kada unese stavku "Broj sale" treba da dobije poruku ako je ta sala u tom periodu zauzeta.
Probao sam to odraditi sljedecim kodom ali ne radi kako treba
Code:
Private Sub Sala_broj_AfterUpdate()
Dim db As Database
Dim rs As ADODB.Recordset
Dim value
Dim rst As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "tblosnovna", CurrentProject.Connection
Do Until rs.EOF
If rs!Datum_od = Form_frmOsnovna.Datum_od Or Form_frmOsnovna.Datum_do And rs!Vrijeme_od=Form_frmOsnovna.Vrijeme_od Or Form_frmOsnovna.Vrijeme_do And Form_frmOsnovna.Sala_broj = rs!Sala_broj Then
MsgBox "Sala " & "( " & Form_frmOsnovna.Sala_broj & " ) " & "je već zauzeta za taj datum - provjerite vrijeme", vbOKOnly, "Pažnja!"
Detail.BackColor = 255
End If
rs.MoveNext
Loop
End Sub
Private Sub Sala_broj_AfterUpdate()
Dim db As Database
Dim rs As ADODB.Recordset
Dim value
Dim rst As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "tblosnovna", CurrentProject.Connection
Do Until rs.EOF
If rs!Datum_od = Form_frmOsnovna.Datum_od Or Form_frmOsnovna.Datum_do And rs!Vrijeme_od=Form_frmOsnovna.Vrijeme_od Or Form_frmOsnovna.Vrijeme_do And Form_frmOsnovna.Sala_broj = rs!Sala_broj Then
MsgBox "Sala " & "( " & Form_frmOsnovna.Sala_broj & " ) " & "je već zauzeta za taj datum - provjerite vrijeme", vbOKOnly, "Pažnja!"
Detail.BackColor = 255
End If
rs.MoveNext
Loop
End Sub
Svaka pomoc je dobro dosla... Hvala
Re: Rezervacija sale