Recent content by L4serK!LL

Append query seems to do what it needs to do when I run the query itself from the Database Overview Window, but when I try to use CurrentDB.Execute "Add_Defaults", dbFailOnError it gives me 2 expected arguments error... I'm using 2, [Forms]![FRM_Bestellingen]![Type] and...

And how exactly does an Append Query work? Never used one before :s It's a function that operates on a recordset? or on a form? or...?

This little piece of code is supposed to add records to a table based on the selected ones (boolean 'Standaard') in a subform on screen... Don't see how an Update can help me with that... :o

Private Sub Knop16_Enter() Dim rs As Recordset Dim rs2 As Recordset Set rs = CurrentDb.OpenRecordset("Allowed_Options") Set rs2 = CurrentDb.OpenRecordset("Uitvoering") rs.MoveLast rs.MoveFirst While (Not rs.EOF And Not rs.BOF) MsgBox rs("Standaard")...

Sending the Database would be useless since you wouldn't understand the naming and all, but I'll try to give you a translated online version ;) Table Options has field ID (unique) and some text fields (not important)... Table Types has field ID (unique) and again property field that don't...

Hmm, I should explain better :) What I have is 2 tables as stated above + a form. The form has 3 parts: part 1 -> order settings (auto-id, name, address, ...), the main form part 2 -> a list of possible articles to select from (amongst which some Common articles), implemented as a subform...

I got 2 tables here: the first one is holding a list of articles, the second one holds orders consisting of some of those articles... Each article has a flag claiming it is a Common article or not; now when a user starts a new order, I would like to have all the Common articles automatically...

I have a OLE object on my form that should store an image... Now when you doubleclick it, I'd like to have Paint or something opening the image (image on form is quite small, so to have it shown bigger, you'd simply have to doubleclick), however the image comes straight from the clipbaord so...

Yup, it's quite a serious speed improvement... I don't think it's the fact i'm hiding the forms that's causing the problems however because most of the time the problem doesn't occur, my guess would be there's some sort of action still going on that's keeping the showing of the form from being...

I got an access application running, the users are redirected to the different forms through a menu... When a user opens a form and closes it again, the form is simply made invisible but is not 'closed' so to speak, when the user clicks the specific menu item again, the menu is shown again...

Works like a charm, thx! :cool:

I get the same error on the OpenRecordset line than before after replacing my code with yours so the problem remains :( Other ideas? :confused:

(SELECT DistinctUIT.Datum, DistinctUIT.[Uit] as Tijd, Count(Planning_1.ID)-1 AS AantalVanID FROM Planning AS Planning_1 RIGHT JOIN DistinctUIT ON Planning_1.Datum = DistinctUIT.Datum WHERE (((Planning_1.[In])<=[DistinctUIT].[Uit]) AND ((DistinctUIT.Datum)=[forms]![Afspraken]![datum]) AND...

Dim RST2 As Recordset Set RST2 = CurrentDb.OpenRecordset("SELECT * FROM Stopcode", dbOpenDynaset) RST2.MoveLast Do If (RST2("ID") = Me![ID]) Then If (RST2("Krediet") = 1 Or RST2("Stopcode") = 1) Then MsgBox "Deze klant dient CASH te betalen! " &...

Hmmm, you got a point there :o