DHookom AYS2000 - compiler error

[Brigitte P]

I successfully implemented the survey database to do the Mental Status Exam
based on DHookom AYS2000 database. However, I'm encountering a teeny weeny
problem when I try to compile (I use A2003). It stops at the following code:
Private Sub QstnText_BeforeUpdate(Cancel As Integer)
If IsNull.CurrentRecord Then
Me!QstnText = PrevRecord
End If
End Sub

Since I don't fully understand what I'm doing, I tried to delete these
lines, but then nothing works anymore - so obviously I need it. I
encountered in other applications problems when I used the IsNull function
but somehow resolved it (don't remember how). Any idea, because sooner or
later, I need to be able to compile. I have selected the appropriate library
DOA3.6, so I don't think that this is the problem.

As always, many thanks for all your help.

Brigitte P.

 

[Duane Hookom]

I don't see that code in my copy of AYS2000. I have the following in my
copy:

Private Sub QstnText_AfterUpdate()
If IsNull(Me![QstnBrief]) Then
Me![QstnBrief] = Left$(Me!QstnText, 30)
End If
End Sub

 

[Douglas J. Steele]

Perhaps try downloading it again and checking whether you inadvertently
changed something when you copied it.

That's definitely not the way to use IsNull (it's a function).

 

[Brigitte P]

I have it in the office and don't go back there until Monday. Please check
on me then.
Don't have access to newsgroup in office and we can't take work with data
home any longer since the spectacle with the VA.
I'll doublecheck, and please check back on me Monday night. All works really
great, except the little problem when I try to compile.
Many thanks.
Brigitte P.

I don't see that code in my copy of AYS2000. I have the following in my
copy:

Private Sub QstnText_AfterUpdate()
If IsNull(Me![QstnBrief]) Then
Me![QstnBrief] = Left$(Me!QstnText, 30)
End If
End Sub

--
Duane Hookom
MS Access MVP

I successfully implemented the survey database to do the Mental Status
Exam based on DHookom AYS2000 database. However, I'm encountering a teeny
weeny problem when I try to compile (I use A2003). It stops at the
following code:
Private Sub QstnText_BeforeUpdate(Cancel As Integer)
If IsNull.CurrentRecord Then
Me!QstnText = PrevRecord
End If
End Sub

Since I don't fully understand what I'm doing, I tried to delete these
lines, but then nothing works anymore - so obviously I need it. I
encountered in other applications problems when I used the IsNull
function but somehow resolved it (don't remember how). Any idea, because
sooner or later, I need to be able to compile. I have selected the
appropriate library DOA3.6, so I don't think that this is the problem.

As always, many thanks for all your help.

Brigitte P.

 

[Brigitte P]

Will do. Please see may response to DHookom.
Thanks.

 

[Brigitte P]

Thank you; it's resolved. I checked the code of DHookom and it's not there.
I just deleted the offending lines, and the dbase works fine. Have no idea
how the code got in there; probably my feeble attempts to fix this before I
was able to adapt the AYS2000. I'm normally okay with not having "junk" in
the code, but I must have overlooked this. The dbase works fine, and
compiled okay. I now need to work out the export to Word, but I'm trying the
leban Report Utility, and have a post on the report newsgroup. I think I'm
getting this also resolved.
Thanks to you smart people for helping me so much with this.
Brigitte P