breizhkar
Nouveau membre
Bonjour,
J'ai besoin d'aide, je n'arrive pas à récuperer l'ID d'une table.
voici une parti de mon code VBA.
Merci de m'aider...
Breizhkar
J'ai besoin d'aide, je n'arrive pas à récuperer l'ID d'une table.
voici une parti de mon code VBA.
Code:
Private Sub cmdValider_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim filename As String
Dim sSQL As String
Dim tempreq As String
'controle des zones si bien remplie
If ztnom <> "" And ztduree <> "" And ztreal <> "" And ztacteurs <> "" And ztresume <> "" And LMsupport.Value <> 0 And LMgenre.Value <> 0 Then
'désactivation des messages
DoCmd.SetWarnings False
'requete ajout de vidéos dans la base video
DoCmd.RunSQL "INSERT INTO video(NomVideo,Genre,Duree,Realisateur,ActeurPrincipal,Resume,Annee) Values (ztnom,LMgenre.value,ztduree,ztreal,ztacteurs,ztresume,ztannee);"
'sSQL = "Select MAX(Num) From video"
DoCmd.RunSQL "INSERT INTO supp_video(Num_supportv,Num_Video) Values (LMsupport.Value,[color=ff1c00]Ici je voudrais qu'apparaissennt l'ID du dernier enregistrement de video c'est à dire le dernier num automatique de la table vidéo[/color];"
'reactivation des messages à l'utilisateur
DoCmd.SetWarnings True
'effacement des zones de textes
ztnom = ""
ztduree = ""
ztreal = ""
ztacteurs = ""
ztresume = ""
LMgenre.Value = ""
LMsupport.Value = ""
ztannee = ""
Else
'messages d'erreurs
MsgBox "Veuillez saisir toutes les informations", vbOKOnly + vbExclamation, "Ajout impossible"
End If
End Sub
Merci de m'aider...
Breizhkar