Information générale
Catégorie:
Bases de données DAO/RDO/ODBC/ADO
Anybody please help me, I found confusing problem, when my form with the below codes run, the error message "Type mismatch occurs" .. why?
Dim mApp As String
Dim daoPBXConfig As Database
Dim rsPBXConfig As Recordset
Private Sub Form_Load()
'
mApp = App.Path & "\TeCS.MDB"
Timer1.Enabled = True
CurrPBXList.DatabaseName = mApp
'
Set daoPBXConfig = OpenDatabase(CurrPBXList.DatabaseName)
Set rsPBXConfig = daoPBXConfig.OpenRecordset("Select * from CurrPBXList")
With Form8
.Top = (Screen.height - .height) / 2
.Left = (Screen.width - .width) / 2
End With
'
End Sub
Thank you
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement