Recent content by edojanssen

I'm trying to make an export of invoices to xml so I can import it in our financial software. Desired format of the output: - Invoice header - Invoice lines - Invoice Footer - Next invoice header - Invoice lines - Inovice footer - and so on It went pretty well untill I got stuck...

I've build an invoicingprogram for two kinds of invoices. One part generates invoicenumbers automatically. On the other part users will have to enter an invoicenumber manually (working on it to automize this too). But for the time being I have this workaround. The problem is caused by the...

Thanks SOS, But your code gives "type doesn't match". Dim iJaarE As Integer Dim sJaarE As Integer Dim sInputE As String InputBox: sInputE = InputBox("Geef het ErBo-boekstuknummer uit Exact op!", "ErBo-boekstuknummer") iJaarE = Format(Date, "yyyy") sJaarE =...

I'm trying to find out if a record exists. The data to be found will be entered by a InputBox and is numeric. If DCount("*", "tblFakturen", "Faktuurnr = " & sInputE & "") <> 0 Then gives typemismatch If DCount("*", "tblFakturen", "Faktuurnr = '" & sInputE & "'") <> 0 Then gives type...

Thanks lagbolt, It works perfect. If Len(sInputE) <> 8 Then Edo

Thanks lagbolt, Another step forwards with the program. Next problem I encounter is the number of digits. The invoice is 8 digits. But now I also can enter 10711 as invoicenumber. How can I check if the input contains 8 digits? Edo

I've build a program for making invoices. The invoicenumbers come from an external program. To lower down the insertion of wrong invoicenumbers would like an inbuild controller on the invoicenumbers. The invoicenumber begins with the last two digits of the year followed by 71 and a sequence of...

I have implemented the Access_Front-End_AutoUpdating_Utility build by Bob Larson http://http://www.access-programmers.co.uk/forums/showthread.php?t=111132 into my own mdb. Even changed the code in the startform's LOAD a little so the program will only check for updates once a day. So far it...

Hi Alc, It's working like the way I wanted. I've changed the msgBox a little so the user will know at which vehicle the double driver excists. Dim strKenteken As String strKenteken = DLookup("Kenteken", "qryBestuurderCheck", "Bestuurder = '" & Me![Bestuurder] & "'") If DCount("Bestuurder"...

The subform is called sfrmKentekens, the mainform is frmKentekens. I've attached a part of my db. I hope this will make it easier to solve the problem.

It doesn't work. Now I got error 2450: 'can't find form sfrmKentekens'. I've put the code in the before_update-event of the field [Bestuurder] in the subform sfrmKentekens. Don't know if that makes any difference.

I'm building a db which holds vehicles and their driver. The form Vehicles has a subform which contains the drivers and the begindate and enddate. What I want is to secure this form so that no duplicate records can be made. If you enter a drivers name there must be a check that the driver is not...

Hi MStef, It's working. Thank you very much. You've made my day. Edo

Hi MStef, You're on the right track. We're almost there now. When now I select another department the data of the new department and of the previous dept is shown. What I would like when I select another dept is that only the data of the chosen dept is shown. Thanks for helping me out. Edo

I want to select a department in the form and then the field Text1 must be filled with data from tblFaktRegHerinnering filtered on the chosen department. I tried to filter with WHERE but then I get the error "to few parameters: expected 1". Without WHERE I get all data from...