Search results

Hi there, I have a sub form listing various transaction for a client. It displays in Datasheet form. I have put an unbound field in the foot of the sub form (nz(summe(endbetrag);0) Now I want to display this on the main form when the client is chosen, (forms are linked by id to clientID) It...

Hi there! Yohoo I found it thanks! For some reason the "Format(vFirstDate + 41, "yyyy/m/d")" doesn't work but Format(vFirstDate + 41, "yyyy-mm-dd") does! I'm in Germany - don't know if that makes the difference?

Hi Gasman, thanks for the help..... The VFirstDate has a valid date in, there are definitely Appointments in the tbl_Appointments that match the criteria, I'm not sure how to test the DateValue(ApptStart) (which is definitely a field in the Appointments table) before the recordset has been...

Hi there. hope it's ok for me to butt in on this conversation! I have downlaoded the tweaked version and find it super.... the only problem I have it that it returns an error on this line in the Public Sub "showmonthappts" Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblAppointments...

Thank you all so much for the help and replies- Sorry I haven't reacted sooner, but it takes a while to check each link- I am still working on it and will let know which one I use. I also found onr by Perter Hibbs which seems to be super. Just wanted to say thanks and that I'm working on it...

Hi Everybody, I am trying to create a database for a bridal shop. I would really like to use a calender element to make appointments but Access no longer has the calender active X element that used to be in 2007. Sorry if this is a silly question, but is there another element /calender that I...

Thanks for the Input everyone. I've got it doing what I want - not very elegantly, but at least it works.

Oh dear - that doesn't work either - error - function FT not defined.. Oh sorry I see now you menat with an array...

Thank you so much for the excellent answer and the explanation! Really appreciated! I am trying to fix this code that was written in 2001.... it's even more complicated because there is a table, but only contains the Name of the Holiday and an active yes no field. Based on which Holidays they...

Hi there, I think maybe I didn't explain too well. FT1 = DateSerial(Intjahr, Monat, OsterTag) 'TM_OsterSonntag FT2 = FT1 + 1 'Ostermontag FT3 = FT1 - 2 'Karfreitag FT4 = FT1 + 39 'Himmelfahrt FT5 = FT1 + 49 'Pfingstsonntag FT1 through to FT25 have a Date value FT1 =...

Good Morning, I have a function that calculates Holidays from Easter Sunday..(thanks again to this forum) The FT1 to FT25 variables are declared as Dates. I want to send these dates to a local table. Is there a way of doing this without having to code 25 Addnews? I was think something like For...

Thank you all sooo much! Arnelgp - it worked ! It can be so easy if you know what to do!! Isladogs - that Function is the best thing since ketchup!! Thanks again

Wow! Thank you so much! I now have a diefferent Problem...Using this and the other Functions I copy all the dates into a local Table... and try th check from there if the Date is in. _____________________________________________________________________________________________________________...

Hi there, yes I have a table with the holidays I want to use. The user then clicks "yes or no" next to the holiday, but as Easter Monday, Good Friday, Ascencion Day for example don't fall on the same day every year, I am having a problem with them. If the user has clicked "yes" in the...

I want to print an attendance register for a certain Period e.g. 01.04.2021 till 30.04.2021 where the backcolour of fields for weekends and holidays are grey. Using the weekday function works fine for weekends, but how do I calculate moveable holidays, e.g. Easter Monday, Good Friday. Something...

Thanks guys - Problem solved: Private Sub tblxx_Maschinen_ID_KeyPress(KeyAscii As Integer) If KeyAscii = 44 Then DoCmd.CancelEvent SendKeys ".", True 'put a full stop in the field End If Call NumLock End Sub Public Function NumLock() As Boolean NumLock = KeyState(kNumlock) If...

Thanks for the replies! Arnelgp - the code is very impressive, but a bit complicated for what I want to do... CheekyBuddha - it doesn't work? On keypress it doesn't stop the comma from being sent unless I use cancel event. Then I have to sendkeys to get it to insert the dot..... then the...

Morning, I have a a bit of code on the presskey property in a form- If KeyAscii = 44 Then DoCmd.CancelEvent 'stop the comma keypress being updated SendKeys ".", True 'put a full stop in the field DoEvents End If which replaces the comma on the numder pad with a ".". The reason being...

Thank you!! Magic! the fix works!!

Hi there! yes I do get the error 128 = "query is damaged"? (runtime error 3340) I have just been on google a bit - I found an article (in German) which says the Update on the 12 Nov 2019 caused the problem - and that one should de-install the update as Microsoft has not fixed the bug yet - Dont...