struggling with recordset code

[slinky]

I have an unbound form for adding assets, everything works OK till the
line:
..AddNew
where I get a 424 / Object required Runtime Error.... anyone have any
clues?... thanks!!!

Option Compare Database

Private Sub CloseForm_Click()
On Error GoTo Err_CloseForm_Click
DoCmd.Close
Exit_CloseForm_Click:
Exit Sub
Err_CloseForm_Click:
MsgBox Err.Description
Resume Exit_CloseForm_Click
End Sub

Private Sub cboAssetType_GotFocus()
DoCmd.Requery "cboAssetType"
End Sub
Private Sub Form_Open(Cancel As Integer)
strSQL1 = "SELECT Assets.* FROM Assets WHERE (((Assets.[Asset
Number]) Is Null))"
Set mrstADO1 = New ADODB.Recordset
mrstADO1.Open strSQL1, CurrentProject.Connection, adOpenStatic,
adLockOptimistic
End Sub

Private Sub GetNewNumber_Click()
'If Me.NewRecord Then
Me![Asset Number] = Nz(DMax("[Asset Number]", "Assets",
"[AssetType] = '" & Me!cboAssetType & "'")) + 1
'End If
End Sub

Private Sub Form_Load()
DoCmd.MoveSize 400, 800, 14500, 8500
End Sub

Private Sub SaveRecord_Click()
With mrstADO1
.AddNew
.Fields("Mfg") = Me.cboMfg
.Fields("Asset Type") = Me.cboAssetType
.Fields("Asset Number") = Me.[Asset Number]
.Fields("Model/Part Number") = Me.[Model/Part Number]
.Fields("Description") = Me.Description
.Fields("Serial Number") = Me.[Serial Number]
.Fields("Location") = Me.Location
.Fields("Sub-Location") = Me.[Sub-Location]
.Fields("InServiceDate") = Me.InServiceDate
.Fields("Status") = Me.cboStatus
.Fields("LRT/SPEC Barcode Number") = Me.[LRT/SPEC Barcode
Number]
.Fields("Comments") = Me.Comments
.Fields("WorkstationID") = Me.WorkstationID
.Fields("ComputerName") = Me.ComputerName
.Fields("PrimaryUser") = Me.PrimaryUser
.Fields("RAM") = Me.RAM
.Fields("Monitor") = Me.Monitor
.Fields("Covered by") = Me.[cboCovered by]
.Fields("Coverage Description") = Me.[Coverage Description]
.Fields("Warranty/Maintenance") = Me.[Warranty/Maintenance]
.Fields("PurchaseOrderNumber") = Me.PurchaseOrderNumber
.Fields("DMSname") = Me.DMSname
.Fields("NameNetworkName") = Me.NameNetworkName
.Fields("IPaddress") = Me.IPaddress
.Fields("SwitchPort") = Me.SwitchPort
.Fields("WallPort") = Me.WallPort
.Fields("MACaddress") = Me.MACaddress
.Fields("SpectralinkExtension") = Me.SpectralinkExtension
.Fields("PMInterval") = Me.PMInterval
.Fields("LastPMdate") = Me.LastPMdate
.Fields("Replacement Cost") = Me.[Replacement Cost]
.Fields("Printer") = Me.Printer
.Fields("Peripherals") = Me.Peripherals
.Fields("CPUspeed") = Me.CPUspeed
.Fields("HDsize") = Me.HDsize
.Fields("CDDVD") = Me.CDDVD
.Update
End With
End Sub

[engles]

On Mar 23, 8:45 am, "slinky" <[e-mail]:

I have an unbound form for adding assets, everything works OK till the
line:
.AddNew
where I get a 424 / Object required Runtime Error.... anyone have any
clues?... thanks!!!

Option Compare Database

Private Sub CloseForm_Click()
On Error GoTo Err_CloseForm_Click
DoCmd.Close
Exit_CloseForm_Click:
Exit Sub
Err_CloseForm_Click:
MsgBox Err.Description
Resume Exit_CloseForm_Click
End Sub

Private Sub cboAssetType_GotFocus()
DoCmd.Requery "cboAssetType"
End Sub
Private Sub Form_Open(Cancel As Integer)
strSQL1 = "SELECT Assets.* FROM Assets WHERE (((Assets.[Asset
Number]) Is Null))"
Set mrstADO1 = New ADODB.Recordset
mrstADO1.Open strSQL1, CurrentProject.Connection, adOpenStatic,
adLockOptimistic
End Sub

Private Sub GetNewNumber_Click()
'If Me.NewRecord Then
Me![Asset Number] = Nz(DMax("[Asset Number]", "Assets",
"[AssetType] = '" & Me!cboAssetType & "'")) + 1
'End If
End Sub

Private Sub Form_Load()
DoCmd.MoveSize 400, 800, 14500, 8500
End Sub

Private Sub SaveRecord_Click()
With mrstADO1
.AddNew
.Fields("Mfg") = Me.cboMfg
.Fields("Asset Type") = Me.cboAssetType
.Fields("Asset Number") = Me.[Asset Number]
.Fields("Model/Part Number") = Me.[Model/Part Number]
.Fields("Description") = Me.Description
.Fields("Serial Number") = Me.[Serial Number]
.Fields("Location") = Me.Location
.Fields("Sub-Location") = Me.[Sub-Location]
.Fields("InServiceDate") = Me.InServiceDate
.Fields("Status") = Me.cboStatus
.Fields("LRT/SPEC Barcode Number") = Me.[LRT/SPEC Barcode
Number]
.Fields("Comments") = Me.Comments
.Fields("WorkstationID") = Me.WorkstationID
.Fields("ComputerName") = Me.ComputerName
.Fields("PrimaryUser") = Me.PrimaryUser
.Fields("RAM") = Me.RAM
.Fields("Monitor") = Me.Monitor
.Fields("Covered by") = Me.[cboCovered by]
.Fields("Coverage Description") = Me.[Coverage Description]
.Fields("Warranty/Maintenance") = Me.[Warranty/Maintenance]
.Fields("PurchaseOrderNumber") = Me.PurchaseOrderNumber
.Fields("DMSname") = Me.DMSname
.Fields("NameNetworkName") = Me.NameNetworkName
.Fields("IPaddress") = Me.IPaddress
.Fields("SwitchPort") = Me.SwitchPort
.Fields("WallPort") = Me.WallPort
.Fields("MACaddress") = Me.MACaddress
.Fields("SpectralinkExtension") = Me.SpectralinkExtension
.Fields("PMInterval") = Me.PMInterval
.Fields("LastPMdate") = Me.LastPMdate
.Fields("Replacement Cost") = Me.[Replacement Cost]
.Fields("Printer") = Me.Printer
.Fields("Peripherals") = Me.Peripherals
.Fields("CPUspeed") = Me.CPUspeed
.Fields("HDsize") = Me.HDsize
.Fields("CDDVD") = Me.CDDVD
.Update
End With
End Sub

It clearly does not know what mrstADO1 is. You must either declare
mrstADO1 at module level or pass it to the routine for it to know
what it is. One way to do this is to put the following in your module
declarations:
dim mrstADO1 as adodb.recordset
Even
private mrstADO1 as adodb.recordset will wrok

Good luck.

[slinky]

Are there any more straight forward ways for this newbie to get a data
entry form to avoid a save without hitting my Save button? HELP!!!

On Mar 23, 11:54 am, [e-mail] wrote:

On Mar 23, 8:45 am, "slinky" <[e-mail]:

I have an unbound form for adding assets, everything works OK till the
line:
.AddNew
where I get a 424 / Object required Runtime Error.... anyone have any
clues?... thanks!!!

Option Compare Database

Private Sub CloseForm_Click()
On Error GoTo Err_CloseForm_Click
DoCmd.Close
Exit_CloseForm_Click:
Exit Sub
Err_CloseForm_Click:
MsgBox Err.Description
Resume Exit_CloseForm_Click
End Sub

Private Sub cboAssetType_GotFocus()
DoCmd.Requery "cboAssetType"
End Sub
Private Sub Form_Open(Cancel As Integer)
strSQL1 = "SELECT Assets.* FROM Assets WHERE (((Assets.[Asset
Number]) Is Null))"
Set mrstADO1 = New ADODB.Recordset
mrstADO1.Open strSQL1, CurrentProject.Connection, adOpenStatic,
adLockOptimistic
End Sub

Private Sub GetNewNumber_Click()
'If Me.NewRecord Then
Me![Asset Number] = Nz(DMax("[Asset Number]", "Assets",
"[AssetType] = '" & Me!cboAssetType & "'")) + 1
'End If
End Sub

Private Sub Form_Load()
DoCmd.MoveSize 400, 800, 14500, 8500
End Sub

Private Sub SaveRecord_Click()
With mrstADO1
.AddNew
.Fields("Mfg") = Me.cboMfg
.Fields("Asset Type") = Me.cboAssetType
.Fields("Asset Number") = Me.[Asset Number]
.Fields("Model/Part Number") = Me.[Model/Part Number]
.Fields("Description") = Me.Description
.Fields("Serial Number") = Me.[Serial Number]
.Fields("Location") = Me.Location
.Fields("Sub-Location") = Me.[Sub-Location]
.Fields("InServiceDate") = Me.InServiceDate
.Fields("Status") = Me.cboStatus
.Fields("LRT/SPEC Barcode Number") = Me.[LRT/SPEC Barcode
Number]
.Fields("Comments") = Me.Comments
.Fields("WorkstationID") = Me.WorkstationID
.Fields("ComputerName") = Me.ComputerName
.Fields("PrimaryUser") = Me.PrimaryUser
.Fields("RAM") = Me.RAM
.Fields("Monitor") = Me.Monitor
.Fields("Covered by") = Me.[cboCovered by]
.Fields("Coverage Description") = Me.[Coverage Description]
.Fields("Warranty/Maintenance") = Me.[Warranty/Maintenance]
.Fields("PurchaseOrderNumber") = Me.PurchaseOrderNumber
.Fields("DMSname") = Me.DMSname
.Fields("NameNetworkName") = Me.NameNetworkName
.Fields("IPaddress") = Me.IPaddress
.Fields("SwitchPort") = Me.SwitchPort
.Fields("WallPort") = Me.WallPort
.Fields("MACaddress") = Me.MACaddress
.Fields("SpectralinkExtension") = Me.SpectralinkExtension
.Fields("PMInterval") = Me.PMInterval
.Fields("LastPMdate") = Me.LastPMdate
.Fields("Replacement Cost") = Me.[Replacement Cost]
.Fields("Printer") = Me.Printer
.Fields("Peripherals") = Me.Peripherals
.Fields("CPUspeed") = Me.CPUspeed
.Fields("HDsize") = Me.HDsize
.Fields("CDDVD") = Me.CDDVD
.Update
End With
End Sub

It clearly does not know what mrstADO1 is. You must either declare
mrstADO1 at module level or pass it to the routine for it to know
what it is. One way to do this is to put the following in your module
declarations:
dim mrstADO1 as adodb.recordset
Even
private mrstADO1 as adodb.recordset will wrok

Good luck.- Hide quoted text -

- Show quoted text -