Visual basic problème avec un type
oliv
-
teebo Messages postés 33585 Date d'inscription Statut Contributeur Dernière intervention -
teebo Messages postés 33585 Date d'inscription Statut Contributeur Dernière intervention -
VOICI LE CODE VB EN QQ LIGNES ? LE PROBLEME SE SITUE Où g mis les ???; que puis je mettre à la place?
Private Sub Exécuter_Compétenc_Click()
On Error GoTo Err_Exécuter_Compétenc_Click
Dim MonSQL As String, MonCritère As String
Dim MaBD As ????????, MaTable As Recordset
' **** Efface le contenu du fichier Extrait COMPETENCES *******************
MonSQL = "DELETE * FROM [Extrait COMPETENCES]"
DoCmd.RunSQL MonSQL
' **** Crée une requête pour faire une extraction de COMPETENCES *********
Set MaBD = DBEngine.Workspaces(0).Databases(0)
Set MaTable = MaBD.OpenRecordset("Sél COMPETENCES", DB_OPEN_DYNASET)
MaTable.MoveFirst
Do Until MaTable.EOF
Private Sub Exécuter_Compétenc_Click()
On Error GoTo Err_Exécuter_Compétenc_Click
Dim MonSQL As String, MonCritère As String
Dim MaBD As ????????, MaTable As Recordset
' **** Efface le contenu du fichier Extrait COMPETENCES *******************
MonSQL = "DELETE * FROM [Extrait COMPETENCES]"
DoCmd.RunSQL MonSQL
' **** Crée une requête pour faire une extraction de COMPETENCES *********
Set MaBD = DBEngine.Workspaces(0).Databases(0)
Set MaTable = MaBD.OpenRecordset("Sél COMPETENCES", DB_OPEN_DYNASET)
MaTable.MoveFirst
Do Until MaTable.EOF
