when you call the form add vbmodal

frmmsg.show vbmodal

Do you let them try a second time with the original number and when they get it right the second time you still take off for that? Before you have a formula you have to have the exact rules....

I'm happy I was able to help. You see, I just started working in vb(and programming in general) about half a year ago and my first project was a calender, all your questions sound familiar, I also...

why don't you try the select statement I wrote before, you have to use format$ in your select statement to compare dates
I tried it in your program you sent and it works, here it is again
"SELECT...

maybe you don't have to change
.recordset.field
to just
.recordset
I just do it that way

Anyway, where in your code do you fill your datagrid?

I think there are a few problems with your code. Start with this, to compare dates you should use format$
"SELECT time_id FROM TF WHERE fac_id = " & fac_type & " AND reserv_date = " &...

what's
.recordset.requery*
for?

maybe what you need is the following
with adodc2
.recordsource =(your select statement)
.refresh
end with

of course adodc can hold more than one row of criteria
do you have
adodc1.refresh
after
adodc1.recordsource
????

Select Case weekday(booking_date)'the function weekday gives you a number 1 sunday, 2 monday etc
Case 1,7
'if it's sunday or saturday
Case else
'if it's any other day
End Select

calendar.value
gives you the value of the date clicked
so in the click event of calendar do
adodc1.recordset("datepicked") = calendar.value
That's all
Like I mentioned before, there is also...

There is also something called monthview, maybe that's what you need?

what exactly are you trying to do? Do you mean that the following doesn't work?
adodc1.recordset("datepicked") = calendar1.value

If you got your answer then mark the thread solved

Did you get your answer or do you still need help

First of all, why do you have
unload me
in the middle of your sub? The program won't do the lines after that.
And now to your question, when you just added a record, then your recordset is...

create two tables in access
1 tblbrand
2 tblmodel
tblbrand has one column called brandname with all the brandnames
tblmodel has two columns called brandname and model
enter all the models in...

Sorry, I didn't look at your whole code before. There are some other problems

When you put a time into a label or text don't use format.
When you want to convert a string(label or text) into...

startime = now
starttime is a date and time

lblend.caption - starttime
you are trying to subtract a date from a time

to get the time of now use time instead of now
starttime = time

what...

After
.delete
try to put
.update

Maybe somehow when you show the report, it's not updated yet, maybe it gets only updated after you click the ok(or whatever). If you send your code, someone might be able to catch your problem.

I'll try to help you, if you elaborate more. I'm not clear about what you're asking

Where is your M.qBW.movenext? It seems you have forgotten to move on and it's always processing the first record again.

I started a similar thread 17 days ago it's called
minimize form
maybe the answers I got will help you

in load event of frmoptions have
commandbuttonname.caption = Form1.multip

Not sure understood your question, do you want to for ex subtract the number entered in label2 from label1 ? If so do the following
If IsNumeric(Me.Label1.Caption) Then
if...

dim myarray() as boolean

form2.creditbox = form1.creditbox

After it's changed to 1, it goes on to the next if statement(if = 1), Since now it is =1 it does that if statement and continues to the next etc.
Try

Select Case Me.Tl.Caption
Case ""...