Recent content by schalkse

If i do that, i get stuck on TEMP stating that a matrix is expected. What do i need to change then in my code to make array's where needed?

Have declared I as integer now, but still the same error. So it's temp(i) thats the problem. Maybe i need to declare Temp as something else or? Have tried what you suggested, now get the same error on this line: chrs(M + j) = 10 * temp(ind + 2 * j) + temp(ind + 2 * j + 1)

Yes, digit is defined as a boolean The line checks if its a number between 0 and 9 (ascii between 47 and 58) To be complete, here are my declared variables Public valid As Boolean Public message As String Public prev As String Public l As Variant Public digit As Boolean Public char As Variant...

All the variable are declared as public in a module. Havent included them. It's a code to calculate and convert the value of strBar into Code128 barcode. Have to admit that it originally comes from a VBA script.

Hi all, Can someone help me out with this code? Keep getting a type mismatch error in the function convert at the line "digit = Asc(temp(I)) > 47 And Asc(temp(I)) < 58" Maybe ik keep overlooking something, dont know. Thx in advance strBar = "702000000036000063053309999000500" valid = False...

Nope, only returns either nothing or what i select :(

Nope. How do i get it either to show only those records that equal [klTypeArt] or when nothing is selected in that listbox to show all records?

Hi, I have a query in access with several fields made with the query builder. I want all fields to have criteria so users can filter out only those that they want to see. But it needs to be only showing what was selected (in listboxes) as criteria or show all records when no criteria is...

Been trying to figure this one out. I have a form with a subform. The subform is a datasheet and i want to set the column width for the columns in the datasheet. When i put these in the subform upon loading, i get an error when i open the main form. Here's my code...

Thx for the tip. Have a new problem though. I have an insert query giving me the same problem. Here's the code: Dim datDate As Date Dim strJaar As String Dim strSQL As String Dim strTransorder As String Dim strArtikel As String Dim strArtikelLev As String Dim lngHoeveelheid As Long Dim...

Once again in need of help. I have a db with articles linked to the articles of a supplier. 1 of our articles can come from more then one supplier. So to make up my order, i choose the supplier and our article number and want to look it up in the db holding the supplier articles. eg.: our...

Have searched for a while, but could not find an answer. Probably is very simple. I have a DB with orders, in order to create an ordernumber i count the orders made this year, get a result and want that result to be 3 digits (eg counted 3 should be "003") Here is my code, but wont get what i...

I keep having a 3131 syntaxis error in FROM. Anyone any idea what i am doing wrong? Private Sub Knop6_Click() 'Variaben voor het lezen uit de database creëren Dim db As DAO.Database Dim rs As DAO.Recordset 'Variabelen waar de gegevens uit de useriddatabase worden in opgeslagen creëren Dim...

Hi, Been chewing my gums on this one for a few days. Have a report which has a query as a record source. Pending on the choices made in several listboxes it spits out results from that group. Now, only when my cursor is in the listbox and i open the query and then the report by clicking on it...

Thanks alot, works like a charm now :)