Howdy, Stranger!

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

Sign In with Facebook Sign In with Google Sign In with OpenID

Categories

We have migrated to a new platform! Please note that you will need to reset your password to log in (your credentials are still in-tact though). Please contact lee@programmersheaven.com if you have questions.
Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

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.