Run-time error help

[Mack Bolan]

Please can some one can help me resolve this bug?
Object variable or with block variable not set,

Option Explicit
Private mVehicles   As CVehicles
Private mstrKey     As String       'Holds form's key property
Private mstrAction  As String       'Holds form's Action property
Private mVehicle As New CVehicles
 
 
Private Sub AssignProperties()
'assign properties from form
mVehicle.InventoryID = Val(txtInventoryID.Text)
mVehicle.Manufacturer = txtManufacturer.Text
mVehicle.Modelname = txtModelName.Text
mVehicle.Year = Val(txtYear.Text)
mVehicle.VehicleID = Val(txtVehicleID.Text)
mVehicle.CostValue = Val(txtCostValue.Text)
 
End Sub
 
 
Private Sub cmdCancel_Click()
'Return to main form with no action
FrmVehicle.Hide
 
End Sub
 
Private Sub cmdOk_Click()
' Choose Action depending upon Action setting
Dim strVehicleInfo  As String
Dim strkey  As String
 
 
Select Case mstrAction
Case "A"        'add Vehicle object
    'Add to listBox and set ItemData to new object's key
    strVehicleInfo = txtVehicleID.Text & "  " & txtModelName.Text & " " & txtYear.Text
    With frmMain.lstVehicle
            .AddItem strVehicleInfo
            strkey = mVehicles.NextVehicleCode (the error is un this line)
            .ItemData(.NewIndex) = Val(strkey)
         End With
    'Add Vehicle object to collection, setting the key
    mVehicles.Add txtInventoryID.Text, txtManufacturer.Text, _
    txtModelName.Text, txtYear.Text, txtVehicleID.Text, txtCostValue.Text, strkey
 
Case "R" 'Remove Vehicle object
        With frmMain.lstVehicle
                .RemoveItem .ListIndex
            End With
            'Remove from Collection
            mVehicles.Removal mstrKey
        End Select
 
    'Return to main form
    FrmVehicle.Hide
 
End Sub
 
 
 
Private Sub Form_Active()
'Set up the form for the selected action
Select Case mstrAction
    Case "A"
    lblCommand.Caption = "Add New vehicle Info"
    ClearTextBoxes
    txtInventoryID.SetFocus
Case "R"
    lblCommand.Caption = "Remove this record?"
    displayData
Case "D"
    lblCommand.Caption = "vehicle Display"
    displayData
End Select
End Sub
Private Sub Form_Load()
'Creat the vehicle collection object
Me.Hide
frmMain.Show vbModal
Set mVehicles = New CVehicles
End Sub
 
Private Sub form_Unload(Cancel As Integer)
'remove the Vehicle collection object from memory
Set mVehicles = Nothing
End Sub
 
Private Sub displayData()
'Transfer from the collection to field
 
With mVehicles.Item(mstrKey)
    txtInventoryID.Text = .InventoryID
    txtManufacturer.Text = .Manufacturer
    txtModelName.Text = .Modelname
    txtYear.Text = .Year
    txtVehicleID.Text = .VehicleID
    txtCostValue.Text = .CostValue
End With
End Sub
 
Private Sub ClearTextBoxes()
'Clear all of the text boxes
 
    txtInventoryID.Text = ""
    txtManufacturer.Text = ""
    txtModelName.Text = ""
    txtYear.Text = ""
    txtVehicleID.Text = ""
    txtCostValue.Text = ""
 
End Sub
Public Property Let Key(ByVal strkey As String)
'Assign the key property
 
        mstrKey = strkey
 
 
End Property
Public Property Let Action(ByVal strAction As String)
'Assign the Action property
 
        mstrAction = strAction
 
End Property

[FPhoenix]

to me this sounds like an ambiguous dim somewhere try checking out

http://support.microsoft.com/kb/316478

maybe it will help

[Mack Bolan]

to me this sounds like an ambiguous dim somewhere try checking out

http://support.microsoft.com/kb/316478

maybe it will help

I try that link but unfortunatly I couldn't solve the problem

[fplesco]

Please can some one can help me resolve this bug?
Object variable or with block variable not set,...

Hi -

I've noticed in your declaration below

Private mVehicles As CVehicles
Private mVehicle As New CVehicles

You must be using mVehicle because its the one instantiated (see New keyword).

So put,
strkey = mVehicle.NextVehicleCode (the error is un this line)
instead..

If it doesnt work, maybe you can check the .NextVehicleCode method because I couldn't see it in properties below.

Private Sub AssignProperties()
'assign properties from form
mVehicle.InventoryID = Val(txtInventoryID.Text)
mVehicle.Manufacturer = txtManufacturer.Text
mVehicle.Modelname = txtModelName.Text
mVehicle.Year = Val(txtYear.Text)
mVehicle.VehicleID = Val(txtVehicleID.Text)
mVehicle.CostValue = Val(txtCostValue.Text)

[Killer42]

Please can some one can help me resolve this bug?
...

I don't think you pointed out which line produces the error.

P.S. Oh my gawd, it's the Executioner! :)

[fplesco]

I don't think you pointed out which line produces the error.

P.S. Oh my gawd, it's the Executioner! :)

It's in BOLD font, alright? mVehicle and mVehicles' difference isn't really noticeable.

[Killer42]

It's in BOLD font, alright? mVehicle and mVehicles' difference isn't really noticeable.

Yes, I know you pointed out that line as the error. I was hoping to get some input form the OP on what they experienced. Obviously, chances are good that it's the same. But it doesn't hurt to confirm these things.