Recent content by jammerdk

Thanx bob Your code works great on 1 specific file in a path, but I'd it to look thru all the files in the path.

Hi guys I'm trying to return the latest modified date of the all files in a folder. Have tried this code Dim Dato As String Dato = DLookup("Path", "tblSys", "") Me.txtMod.Value = FileDateTime(left((Dato), Len(Dato) - 1)) this returns the modified path modified date but I'd like the neweste...

Hi Guys I'm trying to figure out how to check if a given fieldname in user created table actually exists, and if doesn't hide the column in the table.

Ups of course there you go MajP

Problem solved :o)..perfect MajP thanx for helping me out on this!!!

my numberic field got 2 decimal ...maybe this be it?

Yeah it works fine on the ID field but when I use my numberic field(Dim) it says fieldtype not valid.

Hi MajP Yeah it seems complicated...(my first thought were also a crosstab query) have tried your suggestion and it do exactly what I want transfer a single row into a spreadsheet.... only thing it's the ID field and not the actually number field as it should be. (suggestions?)

it's 20 columns, if there's more data than can fit the form it creates a new tab on the forms tab :o)

Hi SkipVougt YeaH i'd like to get given a maximum of rows (for example 12) on each column on my form. Yes there would get more and more row as times passes. trying to make a living scheme on my form. Dim 1 Dim2 Dim3 Dim4 1 10 17 26 2 10 18 27 3...

to get a spreadsheet look on my form eventhough my table only got 1 coloumn of data

Hi Guys trying to create a query for a form making a spreadsheet. I got 1 row of values in my table now i'd like for the query creating a new row for every 5 of data. like this My table looks like this at the moment.... Dim 1 2 3 4 5 6 6 7 8 9 Would like to get my query like this Dim...

getting warmer For m = 1 To 16 AcceptNumber = DLookup("antal", "tblSkema", Material = Form.frmSkemaRa.Controls("Mat" & m).Value) Next m For i = 1 To 32 If Trim(Form.frmSkemaRa.Controls(i & "Ra056").Value) < AcceptNumber Then Form.frmSkemaRa.Controls(i & "Ra056").BackColor = 255...

yeah JBinQld it might be in right direction Dim ctl As Control For Each ctl In Form.frmSkemaRa.Controls If (ctl.Controls = acTextBox) Then ctl.BackColor = 255 End If Next ctl but insttaid of it changing the backcolor because of the control being a textbox...i'd like it to...

Hi guys I'm having a form with multiple unbound textboxes (1..30) on it. Now i'd like to change the backgroundcolor on all of them depending on a lookuptable. I know it can be done manually but i'd like to tweak the code so I hope you guys can help me. My own try of getting the code tweaked...