New to MS Access 2000, error problem.

[RamataKhan]

Hello all. I recently got a new job that I am learning MS Access at, I was trying to add a new combo box to a form, but when I test it I get the following error:

run-time error '13': type mismatch

Here is the code, the line in between the spaces is the problem:

Private Sub CboCeItemNo_AfterUpdate()

Dim string1 As Integer
Dim rs As Recordset
string1 = 5

string1 = [CboCeItemNo].Column(0)

Set rs = Me.RecordsetClone
rs.FindFirst "[CeItemNo] = " & string1
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
End If
rs.Close
Me.[CboCeItemNo] = ""
End Sub

This combo box is just supposed to pull one field of data from one table, I basicaly copied the code from another form with a combo box that does the same thing so I am unsure why it's not working.

[MMcCarthy]

Check the datatype of CelItemNo if its text and not integer then do the following:

Dim string1 As String

string1 = "5"
rs.FindFirst "[CeItemNo] = '" & string1 & "'"

Hello all. I recently got a new job that I am learning MS Access at, I was trying to add a new combo box to a form, but when I test it I get the following error:

run-time error '13': type mismatch

Here is the code, the line in between the spaces is the problem:

Private Sub CboCeItemNo_AfterUpdate()

Dim string1 As Integer
Dim rs As Recordset
string1 = 5

string1 = [CboCeItemNo].Column(0)

Set rs = Me.RecordsetClone
rs.FindFirst "[CeItemNo] = " & string1
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
End If
rs.Close
Me.[CboCeItemNo] = ""
End Sub

This combo box is just supposed to pull one field of data from one table, I basicaly copied the code from another form with a combo box that does the same thing so I am unsure why it's not working.

[PEB]

Hi,

And if not a string do:

rs.FindFirst "[CeItemNo] = " & str(string1)

:)

[RamataKhan]

Check the datatype of CelItemNo if its text and not integer then do the following:

Dim string1 As String

string1 = "5"
rs.FindFirst "[CeItemNo] = '" & string1 & "'"

This worked partially, I no longer get the error. But now when I select a CE# out of the combo box it will display the info for that # in the the other fields of the form, but will not let me select more records for other CE #s. The drop down box still works and displays all the CE #s to choose from, but nothing happens when I try and select one.