So how the IS_REM_EXTRA field works??
It holds the customer id and phone number?
How many characters??
do you know?
Private Sub evo_rem()
Dim the_date As String
Dim the_time As String
Dim the_etime As String
the_date = Format(Me.cust_epd.Value, "YYYY-MM-DD")
the_time = Format(Now(), "HH:MM:SS")
the_etime = Format(DateAdd("h", 4, Now()), "HH:MM:SS")
var_sql = "INSERT INTO ISREMIND (" & _
" IS_REM_DATE, " & _
" IS_REM_TIME," & _
" IS_REM_WHO, " & _
" IS_REM_SUBJECT, " & _
" IS_REM_CO, " & _
" IS_REM_EDATE, " & _
" IS_REM_ETIME, " & _
" IS_REM_ENDTM, " & _
" IS_REM_BEFTXT, " & _
" IS_REM_TYPE, " & _
" IS_REM_NOTE, " & _
" IS_REM_CUST, " & _
" IS_REM_EXTRA) " & _
" VALUES ('" & the_date & "','" & the_time & "','JOHN','My Subject','B','" & the_date & "','" & the_time & "','" & the_etime & "','4','CPA','Note','" & Trim(Me.Parent!cust_id.Value) & "','" & Trim(Me.Parent!cust_phone.Value) & "')"
dba_conn (var_sql)
End Sub
Kelloggs