evité message "manques données"Résolu

Question

bonjour
avec se code j'enregistre dans ma BD les donn&#233;es dont j'ai besoin,mais je n'est pas toujours la jaquettes pour le film et si je ne met pas de jaquettes il me dit "manque donn&#233;es".
comment faire pour ne pas etre oblig&#233;s d'enregistr&#233; une jaquete si je ne l'ait pas ?

If Txt_Titre = "" Then
    MsgBox "Vous devez entrer le titre du film", vbInformation, "GestionDVD"
    Txt_Titre.SetFocus
    Else
    
    Set Rs = New ADODB.Recordset


    Rs.Open "select * from film where code_film=" & CodeFilm, DB, adOpenDynamic, adLockOptimistic


   
    Rs!nom_film = Txt_Titre
    Rs!langue_Film = Text2.Text
     Rs!type_film = Combo_genre.Text
   Rs!format_film = Combo2.Text
   Rs!jaquettes = Frm_Accueil.Image5.ToolTipText
     
    Rs.Update
    Rs.Close
    Unload Me
    
    Frm_Accueil.Show
    End If
End If
Exit Sub
prob:
MsgBox "Manques donn&#233;es", vbCritical, "Gestion DVD"


End Sub
merci
@ plus
petchy

cs_CanisLupus · Accepted Answer

Salut,

Dans les propri&#233;t&#233;s de ton champ de ta base, autorise les chaines vide, tu n'auras plus l'erreur.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

econs · Answer

Quand ton message s'affiche, tu as normalement un num&#233;ro d'erreur associ&#233;.



-------------------------------------------------

On Error GoTo prob



If Txt_Titre = "" Then

    MsgBox "Vous devez entrer le titre du film", vbInformation, "GestionDVD"

    Txt_Titre.SetFocus

    Else

    

    Set Rs = New ADODB.Recordset
    Rs.Open "select * from film where code_film=" & CodeFilm, DB, adOpenDynamic, adLockOptimistic


   

    Rs!nom_film = Txt_Titre

    Rs!langue_Film = Text2.Text

     Rs!type_film = Combo_genre.Text

   Rs!format_film = Combo2.Text

   Rs!jaquettes = Frm_Accueil.Image5.ToolTipText

     

    Rs.Update

    Rs.Close

    Unload Me

    

    Frm_Accueil.Show

    End If

End If

Exit Sub

prob:


Select case Err.Num


Case LeNumeroDeLerreur:

    MsgBox "Manques donn&#233;es", vbCritical, "Gestion DVD"

Case Else


'    Faire autre chose

End Select



End Sub


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_petchy · Answer

Impec,merci
@ plus
petchy

Evité message "manques données"

3 réponses

Discussions similaires