Search results

Thanks again, gemma-the-husky, u saved me again...

Hi! Hope u all r doing well. I need ur help once more, please. I have tried to find it in the forum but no luck. I have a form and on_open event, which checks if the user has already wrote down his day plan. In this case the form must not open at all. What i could get is that the user get the...

Thanks for all ur help, gemma-the-husky, i appreciate it so much!

Hi, If u have a form with three textfields: Start time, End time, Duration, then i'd try it with textfields and Hour() and Minute()

Thanks, gemma-the-husky My code now looks like this: Static S As Integer Set DataBase = CurrentDb Set RTable = DataBase.OpenRecordset("Nachweis") S = DLookup("[Stunde]", "Nachweis") RTable.Edit RTable.MoveFirst DoCmd.GoToRecord acDataForm, "Nachweis", acNewRec Forms!Nachweis!Rahmen44.Value =...

Hi! I have a small problem again. Hope u could help me. I really appreciate ur help, u know I want to create the module that must check and control the value of the variable put in the table. Somehow, it checks nothing. Could u tell me why?! Here is my code: Public Sub StundenControlle() Static...

Hi, gemma-the-husky! Thanks for quick reply. I don't really understand what u mean with the second idea... But the thing i have to check is whether the user has already inputed the record for the hour checked in the optiongroup. I don't try to change the value of my optiongroup with this code...

Hi! I really appreciate my being the part of this community. I also appreciate ur help. Thanks, i have already learned much. Now i have a small problem and i am asking for ur help. I have a form. The user can input hours (options group from 1 to 8), module (combobox, only list entries) and...

Thanks so much. I have found out how to do it best. Here is the hyperlink to the page: http://www.access-programmers.co.uk/forums/showthread.php?t=117021&page=2

It must look like this: ******************************************************* Private Sub bflEntschuldigung_Click() On Error GoTo Err_bflEntschuldigung_Click Dim i As Integer Dim x As Integer Dim Frage Dim items As Long Dim items2 As Long Dim thedate As String Dim thedate1 As String Dim...

I got it! Hurra!!!

Hi again, i have tried it once more and found out that i was too soon so glad. items = DLookup("[Datum]", "Entschuldigung", "[Datum]") returns me the day that is in the table in Datum items = DCount("[Datum]", "Entschuldigung", "[Datum]") returns me e.g. 8, doesn't matter what i input in the...

Thanks for ur reply, but Access writes me a syntax error in Criteria items = DLookup("[Datum]", "Entschuldigung", "[Datum]= 10.10.2006")

Hi I have a little problem. I have a database with two tables: Nachweis and Entschuldigungen. In the first one u can add the records of what u have done for every day, the second one is for the days when u were absent. I need to let the user to add in the second table only records which are NOT...

Hi again, it was completely my error, the DCount must look like this: items = DCount("*", "Entschuldigung", "Datum") Now it was perfect, thanks

I have tried it right now and there's no Update Error any more! Thanks But it doesn't really matter if i use Long or Short Date, because access returns me an error "Syntaxis error in date in '[datum]=#Here stays the date in format i give, but it doesn't matter whether Short or Long or...

Thanks again I will try but i can't use Long Date, because i have to consolidate 2 tables after all and in the first table the dates and the days are NOT in one Field (it's because of the mistake i did at the beginning of designing of that database). Now i have to pay for this. That's why i try...

Hi again! Unfortunately, the idea with items=... was wrong. Access gives me the same Error (Update or CancelUpdate without AddNew or Edit) Any other ideas? Thanks in advance

Hi, Tomorrow i will try it. Again, thanks, gemma-the-husky, u helped me very very much.

Hi again, Sorry that i ask u so stupid questions. I really appreciate ur advice. So i get the code as following: ******************************* Private Sub bflEntschuldigung_Click() On Error GoTo Err_bflEntschuldigung_Click Dim i As Integer Dim Frage Dim items As Long Set db = CurrentDb Set...