Search results

Hi, welcome to the forum! So how are you going to link the two tables together in a query? There doesn't seem to be any correlation between risks and locations at the moment.... If you don't have a link, you'll end up with a Cartesian Result (google it for more info)

The defaultvalue property is looking for a number rather than an SQL statement. When you say default value, do you mean that you want a particular option to be selected once a choice has been made in your combo box? What you need to do there is have a field in your user table which contains...

So do you want to import from the spreadsheet to a database? There's a VBA function called transferspreadsheet that will achieve this, have a look in the help file and see how you get on.

Your best bet would probably be to have a combo box displaying plaintiff names and have that filter a subform that's based on the plaintiff table. For merging to a word doc, I would think a query based on both tables would suffice. Join the two tables by address (although you're better off...

Has this code worked previously? a Type 3 spreadsheet is quite an old version, have you checked the version number of Deelnemer.xls? And what specifically is the error message you're getting?

No worries, have a good day!

Sorry John, the code above only lists folders. This lists the files. Create a table "tblCreate_File_List" with text fields DIrpath, Filepath, Filename. Call as above.Sub Create_File_List(Inputpath As String) Dim Dbs As Database Dim rst As DAO.Recordset Dim Fso, Fldr, SubFldr, F As Object Set...

I haven't made anything like this before. Basically what we're getting at is that we want the record to be edited as soon as the user moves to it, right? So if you have a field that is changed as soon as the user moves to the record (in this case a yes/no field, but it could be anything), the...

I just googled "Sample XML file" and downloaded thef irst on that came up, it was fro the MS website...

No worries, this forum helps me loads too! Have a good one!

This seems to work OK:Sub Create_Dir_List(Inputpath As String) Dim Dbs As Database Dim Rst As DAO.Recordset Dim Fso, Fldr, SubFldr, F As Object Dim lastpos As Integer Set Dbs = CurrentDb Set Rst = Dbs.OpenRecordset("tblCreate_Dir_List", dbOpenDynaset) Set Fso =...

I'm just having a muck about with my method above, not sure if it'll work at the moment. In the meantime Allen Browne has put a module together - if you google 'list files recursively' you might be able to adapt his code a bit..l.

It wouldn't run anywahere unless you told it to, I would think.... can you upload your DB so we can have a look?

Looks like your bracketing is a bit messed up. Also very bad practice to leave all the fields named this way... What does it look like in query design view? As you would expect?

You could prbably just put something in the afterupdate event of the serial number text box - as in if cint(left(textbox.value),3) between 100 and 200 then otherbox1.value="....." otherbox2.value="....." Endif

That looks familliar :) I think you could just do this with the one for each... statement, and a recordset. For each folder, append the folder path to a recordset. move next in the recordset and repeat until end of recordset. The recordset will continually have records appended to it while...

What version of Access are you using? I've got 07 and have just imported a sample XML fine....

Hi! Sounds like an ambitious project! Have a google for cascading combo boxes and filtering forms from combo boxes, there's plenty on this site and even more on t'interweb... You might consider a tab control for this - Tab 1 sets parameters, Tab 2 for your canned reports, and tab 3 for your...

Damn... sounds like a tough company you work for! :) Entering the hours at the end of each sale would probably amount to a similar amount of work, but you could have a pop up form, in continuous view, that lists employees associated with a prticular sale, enter the hours, and job done. You'd...

You could also turn this into a function:Public Function Con_Nums(InputRS) As Integer Dim Dbs As Database Dim Rst As DAO.Recordset Dim Con_Count, Max_Con_Count As Integer Set Dbs = CurrentDb Set Rst = Dbs.OpenRecordset(InputRS) Rst.MoveFirst Do While Not Rst.EOF If Rst!Con_Num >= 2 Then...