"addnew" Visual Basic Command

<P>hi Im no whiz kid - but heres a routine i use in access97 - using addnew - it might give you some clues----------------------------</P>
<PRE>
Private Sub Activity_AfterUpdate()
Dim strNewData As String
Dim Response As Integer
Dim strMessage As String
Dim dbsValuation As Database
Dim rstTypes As Recordset

Me.Activity = Trim(Me.Activity)
strNewData = Me.Activity


If Not IsNull(DLookup("[Activity]", "Activities", "[Activities]![Activity]=
Forms![ProDetF]![ProDetSubF].Form![Activity] ")) Then
MsgBox Chr(10) & Chr(10) _
& "Activity already exists! - Activity Reset",
vbOKOnly + vbInformation, conAppName
Me.Activity = varPreviousActivity
Exit Sub
End If

If Left(Me.Activity, 1) = "~" And Me.Activity <> "~Miscellaneous" Then
MsgBox Chr(10) & Chr(10) _
& "'~' is not allowed as 1st letter in Activities !!! - Record Reset",
vbOKOnly + vbInformation, conAppName
Me.Activity = varPreviousActivity
Exit Sub
End If

strMsgYN = Chr(10) & Chr(10) _
& "Would you like to add '" & strNewData & "' to the list of
Activities ?" & Chr(10) & Chr(10) _
& "(Check your spelling before confirming !) "
If MsgBox(strMsgYN, vbYesNo + vbApplicationModal +
vbDefaultButton2, conAppName) = vbYes Then
'chk Not Duplicate
'open Activities and add the Activity
Set dbsValuation = CurrentDb()
Set rstTypes = dbsValuation.OpenRecordset("Activities")
rstTypes.AddNew
rstTypes!Activity = strNewData
rstTypes.Update
'Response = acDataErrAdded ' requery the list
Me.ActivityID.Requery
Me.ActivityID = DLookup("[ActivityID]", "Activities",
"[Activities]![Activity]=Forms![ProDetF]![ProDetSubF].Form![Activity]
")
Else
Me.Activity = varPreviousActivity
End If
Set rstTypes = Nothing

End Sub
</PRE>
 
Top