Replies

As an aside for the future, there are a couple of actions you might want to take:

(1) Before running a delete query, check out the result set in a select query. If you’re expecting to delete 10 records, and your select query shows you that 10,000 meet the criteria, it’s time to take a harder look at what you’re up to.
(2) In another database expressly used for backing up historical or unwanted data, you could have a table that mirrors the structure of the one you’re deleting out of with an extra field for “Deletion Date”. Link to this table from your live database, and append into that history table the records you’re about to delete from your live table. ‘Cause I’ll wager dollars to donuts that at some point, somebody will come looking for that deleted, “unnecessary” data!!

Don’t worry; we’ve all done it. And how! After taking a deep breath, and/or several drinks, just plan on not repeating it! Good luck!

Charlotte:

Thanks for your efforts! That sounds like a good start on what I’m looking for; mostly I want a document that’ll keep them, and me, from spinning wildly out of control in the middle of the project!

Kevin:

RPG4 is being used on an AS/400 in our shop, and unfortunately we can’t get away from it any time in the next 18 months or so.

What I’m really looking for is a general document for helping the programmers define a project so reasonable expectations and timelines are established and met. Unfortunately, project definition has always been rather squishy, and I’d like that to change and the perception of our programmers to improve.

So, anybody have a template like that they or their company uses?

Yup. Post back with some details about what you’re trying to accomplish and some info about the data and the queries.

Though there is still a bunch of functions tucked under the covers that I’m still discovering, like the useful but hard to find Partition function , I don’t think there is a VBA equivalent of the RSet function. I’ve always used the technique Brian described above.

If you get 500 licenses for the cost of 5, be sure to post back the contact info for the reseller!!

A little kludgy, but perhaps you simply import the .csv file allowing Access to generate an Autonumber ID for each record. The first record in the .csv file should always have an ID of 1. Next step is to either (1) delete the records with ID = 1, or (2) Append the data into a “repository” type table, excluding records with ID = 1.

Not particularly elegant, but should be brutally effective. Good luck!

Wow. So short form is: grab a strong cup of coffee, a dictionary and a lawyer friend and check the documentation from the OEM. Thanks for the great info, Dave!

Excellent! I’m glad it’s working out for you.

For color constants, you have the following choices: black, blue, cyan, green, magenta, red, white, and yellow. I think, but am not sure, that you can specify other colors by setting the ForeColor = the hex value for that color. As for what colors would look good, it’s best that I don’t issue an opinion…seriously…colors aren’t exactly my strong suit! Ask my girlfriend who says I shouldn’t go shopping by myself!

I’ve poked around a bit tonight on MS’s site looking at their licensing FAQ’s – why a fella won’t do when the girlfriend is out of town, eh? Yup, let the good times roll!

From what I’ve read I believe that a license for Office 2000, whether bundled from an OEM or purchased retail, qualifies you for upgrade pricing to the equivalent Office XP product. That doesn’t speak to rebates, special offers, etc., but MS does say: “…or you can call 1-800-426-9400 (select option 4), Monday through Friday, 6:00 A.M. to 6:00 P.M. (Pacific time) to speak directly to a Microsoft licensing specialist.”.

Just remember to call from a pay phone, and don’t tell ’em I sent you!

What, you don’t want to shell out the cash for Exchange?!

Would a web based, externally hosted solution do? It’s tough all over for sites that previously offered free or very low charge mail, calendaring, etc. as they generally made their money from ads placed on the pages – no ad budget, no free, web based services. But I’ve played around with Intranets.com, and they’ve seemed decent enough. $20/month for 4 user and $5/mo for each additional. Maybe not what you need, but beats the heck of of an Exchange license!

Questions are good! The presence of null values was obviously something I hadn’t considered in the first cursory pass. This chunklet first tests to see if there is a value in the control; if there isn’t, it steps out of the procedure; if there is, it goes about its merry way and applies the formatting.

You can apply this to more than one control in the detail section by stacking the If-Then-Else code block one on top of the other and changing the control name in each block accordingly. I didn’t do so in this example for readability purposes, but did indicate in a comment where you can.

I’m sure that there is a more effecient and elegant way to go about this, but this should hopefully get the job done for you.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

Dim dteDue As Date
Dim dteToday As Date
Dim intDiff As Integer

'If there is no due date specified
If Len(Trim(Me.txtDueDate) & "") = 0 Then
    'exit the sub
    Exit Sub
'there is a due date specified, so calculate
'how many days out you are, and format accordingly.
Else
    dteDue = Me.txtDueDate.Value
    dteToday = Now()

    intDiff = DateDiff("d", dteToday, dteDue)

    Select Case intDiff
        Case Is <= 0
            Me.txtDueDate.ForeColor = vbRed
        Case 1 To 30
            Me.txtDueDate.ForeColor = vbYellow
        Case 31 To 60
            Me.txtDueDate.ForeColor = vbBlue
        Case Else
            Me.txtDueDate.ForeColor = vbBlack
    End Select
    
End If 'Len(Trim(Me.txtDueDate) & "") = 0

'this is where you can have another block for another control.

End Sub

Mary:

Are you sure that OEM bundled licenses generally don’t qualify for upgrade pricing? MS’s licensing structure is, uh, murky at best, and I haven’t been able to find anything to that effect on their web site…

Let’s assume you have the due date in the detail section of a report, and further assume that the name of the text box that shows the due date is txtDueDate. Right click on the Detail section of the report, choose Properties, and insert the following code for the OnPrint event on the Event tab. This should get you to spec from your original post, but you might reconsider your use of yellow – it’s pretty ugly!

If you have questions about what’s going on in the code chunklet, post back and I’ll see what I can do to answer them.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

Dim dteDue As Date
Dim dteToday As Date
Dim intDiff As Integer

dteDue = Me.txtDueDate.Value
dteToday = Now()

intDiff = DateDiff("d", dteToday, dteDue)

Select Case intDiff
    Case Is <= 0
        Me.txtDueDate.ForeColor = vbRed
    Case 1 To 30
        Me.txtDueDate.ForeColor = vbYellow
    Case 31 To 60
        Me.txtDueDate.ForeColor = vbBlue
    Case Else
        Me.txtDueDate.ForeColor = vbBlack
End Select

End Sub

Or have someone develop some simple ASP pages to query your database and display the results on your company’s intranet. But that’s another thread for another forum!