Recent content by jksmi

Thanks, we'll give it a go... HTH, Jamie FAQ219-2884 [deejay]

Hi, I have a problem with connecting to a router - the icon in the system tray is reporting the network cable is unplugged, but its not!? This is what I've tried so far (its actually my father-in-law not me so this was all done over the phone)... * It was working fine but then just...

Hi, you can shorten this statement by using IN - i.e. strSql1 = "SELECT * FROM ( ([Service Records] LEFT JOIN JobTypeTable ON [Service Records].[Call Type] = JobTypeTable.samsID) LEFT JOIN Customers ON [Service Records].[Customer ID] = Customers.[Customer...

HI, dates need to have #'s around them (i.e.) #01/01/04#, but also, SQL doesnt like dd/mm/yyy format - try mm/dd/yy instead... HTH, Jamie FAQ219-2884 [deejay]

hi, to set the progress bar to percent, first set max to 1 then switch Me.myProgBar.Value = i to Me.myProgBar.Value = i / rst.recordcount - though it might be an idea to assign rst.recordcount to a variable... HTH, Jamie FAQ219-2884 [deejay]

Hi, try...Function TestGetNumbers() Debug.Print GetNumbers("16 myStreet, whereEver") Debug.Print GetNumbers("16 myStreet, whereEver") Debug.Print GetNumbers("myStreet 16/7, someWhere") Debug.Print GetNumbers("myStreet, elseWhere ") End Function Function GetNumbers(ByVal...

hi, also - if you want to adapt the above to change a picture instead of text add four images. imgProgress should be visible, img1, img2, img3 should be hidden but be the sequence you want to change the images in...arrControls() = array("img1", "img2", "img3") ' mid loop... If nUniqueID...

Hi, if your using classes you can use events - if not then you can change an image or label caption in the variuos parts of the routine... the example below is taken from some code that loops through some 4,000 records and updates a label on a 'loading...' form every 150 records. Isloaded is a...

hi, you can use the isnumeric function, i.e. isNumeric("123 ") = true while isNumeric("123s") = false. Something likeif isnumeric(left(instr(" ", myString), myString)) thenshould work... HTH, Jamie FAQ219-2884 [deejay]

Ignore the last post it was wrong!Me.myProgBar.Min = 0 i = 0 ' integer is initialised as 0 anyway but... rst.MoveLast ' have to move to the end of recordset to get count rst.MoveFirst ' move back to first record Me.myProgBar.Max = rst.RecordCount With rst Do...

Hi, one issue you may have is if your record set is greater than 1000 it will casue an error or if you only have a small number of records it will hardly register on the progress bar - one solution is to set the max value of your prog bar to the count of records in the recordset...

Hi, rather than use a make table query each time try this... 1. either... create a new table in design view with a primary key - or - copy an existing table, paste as structure only and then edit in design view to add a primary key. 2. create an append query to append data...

Hi, just to add to KenReay's suggestion - if you timestamp your updates, rather than use an id, you have a simple way to call up your last update info and data about when stuff was actually last updated (useful for audits data integrity, etc...) HTH, Jamie FAQ219-2884 [deejay]

Hi, if you want the Windows logon id try [b]UserName = VBA.Environ("UserName")[b] no references or other coding required... HTH, Jamie FAQ219-2884 [deejay]

Hi Ken, just curious - why would you suggest the mid function rather than right? is it in case someone types 5 character or another reason? HTH, Jamie FAQ219-2884 [deejay]