Can't find installable ISAM error - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Can't find installable ISAM error

Chaz4831Chaz4831 Posts: 10Member
I am writing a program that has an access database linked to it. There is not much code because I am doing the majority of it through the properties. I started writing it on my desktop and it works fine when I run it. But on my laptop it comes up with this error "Can't find installable ISAM" and won't load the database into the form. I don't know if the code would help but here it is:

Private Sub Form_Load()

End Sub

Public Sub probecardfirst_Click()
'Moves to first record in database
probecard.Recordset.MoveFirst
End Sub

Public Sub probecardlast_Click()
'Moves to last record in database
probecard.Recordset.MoveLast
End Sub

Public Sub probecardnext_Click()
probecard.Recordset.MoveNext
If probecard.Recordset.EOF Then
MsgBox "You are on the last record"
probecard.Recordset.MoveLast
End If

End Sub
Public Sub probecardprevious_click()

End Sub

Public Sub probecards_Click(Area As Integer)
probecard.Recordset.Bookmark = probecards.SelectedItem
End Sub

Public Sub xymotionFirst_Click()
'Moves to first record in database
xymotion.Recordset.MoveFirst
End Sub

Public Sub xymotionlast_Click()
'Moves to last record in database
xymotion.Recordset.MoveLast
End Sub

Public Sub xymotionnext_Click()
xymotion.Recordset.MoveNext
If xymotion.Recordset.EOF Then
MsgBox "You are on the last record"
xymotion.Recordset.MoveLast
End If

End Sub

Public Sub xymotionprevious_Click()
xymotion.Recordset.MovePrevious
If xymotion.Recordset.BOF Then
MsgBox "You are on the first record"
xymotion.Recordset.MoveFirst
End If

End Sub

Public Sub ztheta_Click(Area As Integer)
zthetamotion.Recordset.Bookmark = ztheta.SelectedItem
End Sub

Public Sub zthetafirst_Click()
'Moves to first record in database
zthetamotion.Recordset.MoveFirst
End Sub

Public Sub zthetalast_Click()
'Moves to last record in database
zthetamotion.Recordset.MoveLast
End Sub

Public Sub zthetanext_Click()
zthetamotion.Recordset.MoveNext
If zthetamotion.Recordset.EOF Then
MsgBox "You are on the last record"
zthetamotion.Recordset.MoveLast
End If

End Sub

Public Sub zthetaprevious_Click()
zthetamotion.Recordset.MovePrevious
If zthetamotion.Recordset.BOF Then
MsgBox "You are on the first record"
zthetamotion.Recordset.MoveFirst
End If

End Sub

Comments

  • PavlinIIPavlinII Posts: 404Member
    : I am writing a program that has an access database linked to it. There is not much code because I am doing the majority of it through the properties. I started writing it on my desktop and it works fine when I run it. But on my laptop it comes up with this error "Can't find installable ISAM" and won't load the database into the form. I don't know if the code would help but here it is:
    :
    : Private Sub Form_Load()
    :
    : End Sub
    :
    : Public Sub probecardfirst_Click()
    : 'Moves to first record in database
    : probecard.Recordset.MoveFirst
    : End Sub
    :
    : Public Sub probecardlast_Click()
    : 'Moves to last record in database
    : probecard.Recordset.MoveLast
    : End Sub
    :
    : Public Sub probecardnext_Click()
    : probecard.Recordset.MoveNext
    : If probecard.Recordset.EOF Then
    : MsgBox "You are on the last record"
    : probecard.Recordset.MoveLast
    : End If
    :
    : End Sub
    : Public Sub probecardprevious_click()
    :
    : End Sub
    :
    : Public Sub probecards_Click(Area As Integer)
    : probecard.Recordset.Bookmark = probecards.SelectedItem
    : End Sub
    :
    : Public Sub xymotionFirst_Click()
    : 'Moves to first record in database
    : xymotion.Recordset.MoveFirst
    : End Sub
    :
    : Public Sub xymotionlast_Click()
    : 'Moves to last record in database
    : xymotion.Recordset.MoveLast
    : End Sub
    :
    : Public Sub xymotionnext_Click()
    : xymotion.Recordset.MoveNext
    : If xymotion.Recordset.EOF Then
    : MsgBox "You are on the last record"
    : xymotion.Recordset.MoveLast
    : End If
    :
    : End Sub
    :
    : Public Sub xymotionprevious_Click()
    : xymotion.Recordset.MovePrevious
    : If xymotion.Recordset.BOF Then
    : MsgBox "You are on the first record"
    : xymotion.Recordset.MoveFirst
    : End If
    :
    : End Sub
    :
    : Public Sub ztheta_Click(Area As Integer)
    : zthetamotion.Recordset.Bookmark = ztheta.SelectedItem
    : End Sub
    :
    : Public Sub zthetafirst_Click()
    : 'Moves to first record in database
    : zthetamotion.Recordset.MoveFirst
    : End Sub
    :
    : Public Sub zthetalast_Click()
    : 'Moves to last record in database
    : zthetamotion.Recordset.MoveLast
    : End Sub
    :
    : Public Sub zthetanext_Click()
    : zthetamotion.Recordset.MoveNext
    : If zthetamotion.Recordset.EOF Then
    : MsgBox "You are on the last record"
    : zthetamotion.Recordset.MoveLast
    : End If
    :
    : End Sub
    :
    : Public Sub zthetaprevious_Click()
    : zthetamotion.Recordset.MovePrevious
    : If zthetamotion.Recordset.BOF Then
    : MsgBox "You are on the first record"
    : zthetamotion.Recordset.MoveFirst
    : End If
    :
    : End Sub
    :
    :
    Hi,
    have you already asked uncle Google about this?
    Have you checked this out?
    http://support.microsoft.com/kb/299457
    Is it working now?

    [blue][b][italic][size=4]P[/size]avlin [size=4]II[/italic][/size][/b][/blue]

    [purple]Don't take life too seriously anyway you won't escape alive from it![/purple]


Sign In or Register to comment.