Recent content by shannonp

Can someone tell me why my code (below) works when in accdb format but as soon as I convert to accde format I the exact same code doesn't work! Function AddResults() Dim LoserScoreSlot, WinSlot, LoseSlot, LoserName As String LoserScoreSlot =...

Another question, the term HOT PLUGS I thought denotes that your can 1) Swap out a faulty drive while system is still live and 2) Increase storage capacity "on the fly", again, while system is live These are my own assumptions so feel free to put me straight :-) [yinyang] Shann

Hi nhbilly Its a Smart Array P400/256MB Controller [yinyang] Shann

Not have any prior knowledge of server hardware/storage I thought it was a simple matter of just adding new drive to my DL380 to add extra space. I currently have 4 x HP 146GB 10K SAS 2.5 DP HDD's (assuming RAID5?) and want to add a 300GB SAS drive into it to increase storage space. Being a...

That'll work :-P [yinyang] Shann

Do you simply want to add a message box to your code? DoCmd.Hourglass True 'Turns off the Access warning messages DoCmd.SetWarnings False DoCmd.OpenQuery "Step 2_qry" DoCmd.OpenQuery "Step 1_qry" DoCmd.OpenQuery "Step 3_qry" MsgBox "Appended confirmation message", vbInformation...

If you connect code (above) to a button on a form and replace mySort with an unbound field you can easily change the starting value on-the-fly. You could also look for the highest value from a previous sequence run (perhaps using a simple DMax), you could then (if desired) assign this value...

Maybe try a coding route instead?: Dim myDB As DAO.Database Dim myRS As DAO.Recordset Dim mySort As Long Set myDB = CurrentDb() Set myRS = myDB.OpenRecordset("Select * From myTable [!]Order By Town, Area DESC[/!]") mySort = 1 With myRS Do...

Thanks Roy-Vidar! This is exactly what I was looking for!! [yinyang] Shann

Looking for a quick and simple VB solution to retrieve the filepath and filename (i.e. "c:\backend\mydb4.mdb") of any given 'linked table'. [yinyang] Shann

Very similar to Acemans suggestion but I'm enclosing all 3 fields (Schemes, Phase and PhaseDiscription) with quotations rather than just PhaseDiscription. However, this assumes QrySchemeValidation.Scheme is textual. DLookup("Scheme", "QrySchemeValidation", "Scheme='" & Me.[Schemes] &...

If you haven't changed your screen resolution lately then I don't think this will help but it does sound similar to a problem I had in the past... Lets say I set my screen resolution to 1200x1048 and then the next day for whatever reason I set it to 640x480. I found that access was storing the...

I come across this on tek-tips once... DoCmd.Echo False DoCmd.Close DoCmd.Echo True [yinyang] Shann

DblDogDare This will work in a sub or module. If you intend to use it often then I would use it within a module, otherwise the easiest way to do it would be to put it directly into the sub routine. Cheers [yinyang] Shann

Thanks jimlee, always appreciative of an extra star! [yinyang] Shann