Search results

The way to go is FileSystemObject Dim fs Dim myFolderPath As String myFolderPath = "C:\MyFolders\MyFolder" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(myFolderPath) Then ... fs.FolderDelete myFolderPath, true fs.FolderMove myFolderPath, DestinationFolderPath Just...

Ok, fisrt of all, since you're a new member u should check out the forum's FAQ about correct posting procedures. This will only improve the number of possible responses for your postings, since most members disregard posting that do not follow some basic rules. Secondly, u should always clearly...

See if setting the combo's format property to Currency, helps Your controls will only be null if the underlying table field is null (u mean null or 0?). You might consider using unbound controls. HTH Premy

Well, if u created the calendar, u should know ;-). If it's the Calendar control from Access, u can make it open up a form and insert data, by adding the necessary code to it's click_event. The only thing u can't do with the Access Calendar is to highlight several dates. But there are a few...

Well, gebruiker_ID seems to be an Integer, so cboLoginNaam is sure to have something like "Select gebruiker_ID, Gebruiker_Naam From tblGebruiker" as Rowsource and it's column widths set to 0;3(for example), while it's boundolumn number = 1. This means that the value returned by the cbobox is the...

U might want to take a look at this thread http://www.access-programmers.co.uk/forums/showthread.php?t=138021 HTH Premy

well, did u try stepping thru the code? U might try to put "rs.movefirst" just before "while not rs.eof" to force the loop to begin at the beginning of your recordset (just in case it doesn't automatically start at the beginning for some reason). u should also delete Setwarnings false (but first...

You must set up a loop scheme for your recordset, something like: Sub MyRecords() Dim db as DAO.Database Dim rs as DAO.Recordset Dim strRecords as string Set db = CurrentDb() Set rs = db.OpenRecordset("qryIndividualStudentReport4", dbOpenDynaset) 'loop thru all the records While Not rs.EOF...

If the spreadsheets you're working with are Excel spreadsheets, you can find the code needed to determine the last write (save) by following this link. http://j-walk.com/ss//excel/tips/tip57.htm You could use this code in an Access module under an Excel object model reference to probe all the...

I think the best is to create reports for every kind of info display u think the user might need, then create a navigation form from which the user just selects the view he is interested in. HTH Regards, Jaime

Well there are several approaches depending on what the final purpose really is. I have 2 for u to try out: 1. Main Form with subform. Here you create a hidden subform on your Pics form. The main form is unbound and the subform is bound to your query or table. This requires your base table to...

If you're appending thru VBA and not by an append query, you might use the Bookmark method, like this: Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("tblMeetings", dbOpenDynaset) rs.Addnew rs!ClientName = Me.txtClientName rs!Date = Me.txtDate ...

Hi Darren I finally got it working the way I needed it to. The last example u gave me with left joins did have a problem (couldn't figure out yet why) when pulling data from more than 2 tables: rows get duplicated when ProjectID and StepID are same across different tables. But the left join...

Darren I thank u for your patience and wizardly powers with queries. I'll try it out and get back to u.

Darren, Alas... Please allow me to explain: let's say tblPayments looks like this ProjectID......ProjectStep.....Total 100................1..................1000 100................2..................1000 200................1..................1000 200................3..................1000 And...

Ok Darren I'll try it out and give u the FB later. thanks..

Hi there, THE GIVENS: The following query works fine: SELECT tblProjectSteps.ProjectID, tblProjectSteps.StepID,..., NZ(DSum("Total","tblPayments","ProjectID=" & [ProjectID] & " AND StepID =" & [StepID],0)+ NZ(DSum("Total","tblReceivables","ProjectID=" & [ProjectID] & " AND StepID =" &...

Say, were u able to download my sample app?

Well it's certainly an interesting link except that the link to the vb code samples from msdn is dead. Searching directly on msdn (as I had already done) yielded no results either. Seems like ms has wiped out most of msde related content from their site. My hope is still to obtain orientations...

check your private msg, I put a link there for you.