Problems with some VB code...

[demon8991]

Could i have a hand working out what this code means please, havnt done much VB before and im trying to work out whats going on here.

Thanks in advance.

Private Sub makebooking(bookingnumber As Integer)
Dim instructornumber As Integer
Dim bookingtime As Double
If Left(Me.Controls(bookingnumber), 1) <> "~" Then
MsgBox "This is not a free slot"
Exit Sub
End If
instructornumber = bookingnumber \ 11 + 1
bookingtime = ((bookingnumber Mod 11) * 1 / 24) + 9 / 24
MsgBox bookingtime
'MsgBox instructornumber
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmMakeBooking"
DoCmd.OpenForm stDocName, acNormal, , , acFormAdd

Forms!frmMAkebooking.Date = Forms!frmTimetable.txtDate
Forms!frmMAkebooking.InstructorID = instructornumber
Forms!frmMAkebooking.Time = bookingtime

'MsgBox bookingtime & " " & staffnumber
End Sub
'This routine decreases the date by one day and then updates the data on the timetable

 

[Pyrosoft]

Well...I'm no expert with VBScript, just getting into it myself, but it looks to be some sort of room booking software.
If the room number is unavailable then it comes back saying that it is unavailable.

 

[demon8991]

Ohhh cheers mate that makes sense fits in with what i was trying to do.

Thankyou very much.

 

[Pyrosoft]

No problem if that's all you're after
The variable names look pretty self explanitory for it anyway