probleme avec "retour" [VB6]

Question

bonsoir
j'ai un probleme avec mon code,quand j'ai un retour d'un film je coche le chekbox pour un retour,j'ai bien la msgbox je click sur oui,mais il ne s'enleve pas de la base. 
auriez vous une id&#233;e 
Private Sub chk_pret_Click()


If chk_pret.Tag = "" Then
    chk_pret = False
    Exit Sub
End If


'-- Mise &#224; jour de la base si emprunt (tag=0)If (chk_pret() 1 And chk_pret.Tag 0) Then


      txt_nom.Enabled = True
       txt_nom.BackColor = vbWindowBackground
   
    txt_nom.Visible = True
    txt_nom.Locked = False
    txt_nom.Text = Empty
  
txt_nom.SetFocus
'-- Mise &#224; jour de la base si retour (tag=1)ElseIf (chk_pret() 1 And chk_pret.Tag 1) Then
    Dim reponse As Integer
    reponse = MsgBox("Avez vous bien r&#233;cup&#233;rez ce film?", vbYesNo)
    If reponse = vbYes Then
        Set Rs = New ADODB.Recordset
        Rs.Open "UPDATE film SET pret_film=NULL WHERE code_film = " & CodeFilm, db
        Rs.Open "UPDATE film SET date_pret=NULL WHERE code_film = " & CodeFilm, db
       Unload Me
    Acceuil.Show
       
      
         txt_nom.Visible = False
        chk_pret() = False
        chk_pret.Caption = "Emprunt&#233; par"
     
        Exit Sub
    End If
Else
 


       txt_nom.Visible = False
        List.Visible = True
End If
End Sub
merci
petchy

cs_petchy · Answer

Re
je donne un peu plus de pr&#233;cisions:
je recupere le nons des films dans une listbox,&#224; partir de la je peut enregistrer un pr&#233;t d'un film.
ensuite dans une listview qui est toujours dans la meme form que la listbox je r&#233;cupere tous les films qui sont en pr&#232;t,et ses la qui je n'arrive pas &#224; faire un retour de pr&#232;t  Voila

Probleme avec "retour" [VB6]

1 réponse

Discussions similaires