Private Sub AddNew_Address()
'// Add a new Property address to the database.
Dim l_strSQL As String
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
On Error GoTo ERR_AddNewAddress
l_strSQL = "SET NOCOUNT ON;INSERT INTO [Address] ([Street1],[Street2],[City_ID],[Province_ID],"
l_strSQL = l_strSQL & "[PostalCode],[Country_ID],[Entered],[EnteredBy]) VALUES "
l_strSQL = l_strSQL & "(?,?,?,?,?,0,?,?);SELECT @@IDENTITY AS ID;SET NOCOUNT OFF;"
With m_udtProperty
Set cmd = New ADODB.Command
cmd.ActiveConnection = pmCONN
cmd.CommandText = l_strSQL
cmd.Parameters.Append cmd.CreateParameter("Street1", adVarChar, adParamInput, 50, Left$(.Street1, 50))
cmd.Parameters.Append cmd.CreateParameter("Street2", adVarChar, adParamInput, 50, Left$(.Street2, 50))
cmd.Parameters.Append cmd.CreateParameter("City_ID", adInteger, adParamInput, , .City_ID)
cmd.Parameters.Append cmd.CreateParameter("Province_ID", adInteger, adParamInput, , .Province_ID)
cmd.Parameters.Append cmd.CreateParameter("PostalCode", adVarChar, adParamInput, 10, Left$(.PostalCode, 10))
cmd.Parameters.Append cmd.CreateParameter("Entered", adDBTimeStamp, adParamInput, , Date)
cmd.Parameters.Append cmd.CreateParameter("EnteredBy", adVarChar, adParamInput, 20, Left$(g_strUsername, 20))
Set rs = cmd.Execute
.Address_ID = rs.Fields("ID").Value
End With
Set rs = Nothing
Set cmd = Nothing
Exit Sub
ERR_AddNewAddress:
If Err.Number = 94 Then '// Invalid use of null.
Resume Next
Else
ErrorMessenger Err.Number, Err.Description, "frmProperty.AddNew_Address", "Property Error"
Set rs = Nothing
Set cmd = Nothing
End If
End Sub