<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-7">
<META content="MSHTML 6.00.2800.1170" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Hi all,</FONT></DIV>
<DIV><FONT face=Arial size=2>I need some help please with an error
message</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>when I try to enter a new record into... I get the
follown error</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#ff0000 size=2><STRONG>Compile
error</STRONG></FONT></DIV>
<DIV><FONT face=Arial color=#ff0000 size=2><STRONG>variable not
defined</STRONG></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>the code:</FONT></DIV>
<DIV><FONT face=Arial size=2>Private Sub idpoli_NotInList(NewData As String,
Response As Integer)<BR> Dim strMsg As
String<BR> strMsg = "'" & NewData & "' bla
bla"<BR> strMsg = strMsg & "@bla
bla;"<BR> strMsg = strMsg & "@bla
bla."<BR> If MsgBox(strMsg, vbQuestion + vbYesNo, "new data")
= vbNo Then<BR> Response =
acDataErrContinue<BR> Else<BR><FONT
color=#ff0000><STRONG> Set db =
CurrentDb<BR></STRONG></FONT> Set rs =
db.OpenRecordset("T_poli",
dbOpenDynaset)<BR> On Error Resume
Next<BR>
rs.AddNew<BR>
rs!poli = NewData<BR>
rs.Update<BR>
<BR> If Err
Then<BR>
MsgBox "bla
bla."<BR>
Response = acDataErrContinue<BR>
Else<BR>
Response = acDataErrAdded<BR> End
If<BR> End If</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>End Sub<BR></FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Thank's a lot</FONT></DIV>
<DIV><FONT face=Arial size=2>Kostas Konstantinidis</DIV></FONT></BODY></HTML>