Recent content by avayaman

compiling hangs on this line for example Me.lblWarning.Visible = True Paul Beddows Consulting, Avaya/EAS implementation, Training Vancouver, Canada E-mail paul at natcoa.com

yes I suspect missing references from looking at another thread. The project does not compile properly, but it has been in use for a long time so i am not quite sure that to do about that. It gets hung up on quite a few lines that appear OK on the surface Paul Beddows Consulting, Avaya/EAS...

This is only happening on only one laptop, the program runs fine on every other one I have tried. Error message: Function is not available in expressions in query expression 'Duespaid>Date() AND status="In Default" This is the hunk of code it is hanging up on sql = "UPDATE tblAddies SET...

Thanks everyone, the first set of code did the trick Paul Beddows Consulting, Avaya/EAS implementation, Training Vancouver, Canada E-mail paul at natcoa.com

I am sure this is simple. I need VB code to check if the results of a query is empty or not. (In other words a report generated off it has no entries) Paul Beddows Consulting, Avaya/EAS implementation, Training Vancouver, Canada E-mail paul at natcoa.com

There are reports to show that. The database is very complex & highly automated. It even prints out member cards. It covers a lot of what-ifs. I was looking for a way to pop up a series of alerts when it starts up, to bring attention to tasks that need to be looked at. It uses an autoexec macro...

Probably not a big issue, there are never more than 20 entries in question in any of those fields. Paul Beddows Consulting, Avaya/EAS implementation, Training Vancouver, Canada E-mail paul at natcoa.com

Good news is the problem was solved. Thanks Paul Beddows Consulting, Avaya/EAS implementation, Training Vancouver, Canada E-mail paul at natcoa.com

I actually did it using dcount Dim abc Dim efg efg = 0 abc = 0 abc = DCount("[payrecord]", "autoexec1", "[payrecord] < Now - 120") If abc <> 0 Then GoTo line1 GoTo line2 line1: If msgbox("THERE ARE ALERTS. View Now?", vbYesNo, "ALERT") = vbYes Then efg = 1 msgbox "ALERT !! There are...

Ok I got it working using a DSUM expression Paul Beddows Consulting, Avaya/EAS implementation, Training Vancouver, Canada E-mail paul at natcoa.com

Soory that shoudl be Private Sub Report_Open(Cancel As Integer) Dim varX As Variant varX = DLookup("[payrecord]", "temptest", "[payrecord] < Now - 20") If varX > 0 Then GoTo line2 line1: msgbox "Bleep" line2: End Sub Paul Beddows Consulting, Avaya/EAS implementation, Training Vancouver...

That is what I am doing, but i don't want the form to display, just an alert. I suspect the dLookup function is what I need to play with. I created a query temptest to separate the records in question. I have been playing with this, but its wrong Private Sub Report_Open(Cancel As Integer) Dim...

I apologize for the double post I accidentally posted this in the wrong section. Here is the situation, I have a database of records. One field is a date field containing the date the record was last changed or established. There is another field of drop down choices. What I want to do is...

OK I think I led everyone astray. by posting in the wrong section. This is a MS Access 2003 database, not a mysql database. Paul Beddows Consulting, Avaya/EAS implementation, Training Vancouver, Canada E-mail paul at natcoa.com

Here is the situation, I have a database of records. One field is a date field containing the date the record was last changed or established. There is another field of drop down choices. What I want to do is run a query on the database such that if the date is 120 days past the date entered...