VB6:

minoula2006 -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention - 13 oct. 2009 à 17:31

Bonjour,
j'ai un pg en vb6 quii gere le parck informatique de notre administration:
quand je veut faire l'ajout d'un matériel mais je ne fé pas la saisie les champs texte son vide et je click sur sortir(c a dire unload)un msg d'erreur:impossible d'inserer une ligne vide elle doit au moins comporter une valeur de colonne .

Private Sub Form_Unload(Cancel As Integer)
If indic = 1 Then
   Enregistrer RsMat
   indic = 0
Else
   If VarMAJ = "A" Then
      RsMat.UpdateBatch
      RsMat.Delete
   End If
End If
End Sub

j'ai changer mon code :

Private Sub Form_Unload(Cancel As Integer)
If indic = 1 Then
   Enregistrer RsMat
   indic = 0
Else
   If VarMAJ = "A" Then
      Text1.Text = 0
      Text2.Text = 0
      RsMat.UpdateBatch
      RsMat.Delete
   End If
End If
End Sub

ca na pa marcher car j'ai ajouter une valeur nul en bouble (clé primaaire)
????
aidez moi plzz

A voir également:

7 réponses

Réponse 1 / 7

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Bonjour,

Je ne comprends pas pourquoi il y a un Update ou un Delete dans un Form_Unload().

Le Form_Unload() gère le clic sur la croix en haut à droite d'un formulaire.

Bref, il faut mettre une condition :

If VarMAJ = "A" Then
      If Text1.Text = "" Then Exit Sub
         '...
         RsMat.UpdateBatch
         RsMat.Delete
   End If

;o)

Réponse 2 / 7

minoula2006

unlod c une commande que j'ai crée pour sortir de cette form ;)
j'ai mis comme tu ma dit

Private Sub Form_Unload(Cancel As Integer)
If indic = 1 Then
Enregistrer RsMat
indic = 0
Else
If VarMAJ = "A" Then
If Text1.Text = "" And Text2.Text = "" Then Exit Sub

RsMat.UpdateBatch
RsMat.Delete
End If
End If
End Sub
a mon premier essai ca marché mé quand je repete la mm action il me dit impossible d'insere un ligne vide
???

Réponse 3 / 7

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Comment peux-tu répéter la même action ? ta form n'est plus en mémoire ?

Réponse 4 / 7

minoula2006

excuse moi j'ai pas compris que veut tu dire de ta form n'est plus en mémoire

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 7

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

tu cliques sur la croix pour fermer ton formulaire ?

Je ne comprends pas "quand je répète la meme action ..."

Réponse 6 / 7

minoula2006

non j'ai pas un croix pour quitter j'ai une commande sortir
je veux dire par répéter la mm action c quand je veux ajouter une chose je clic sur la forme qui fé l'ajout mé je n'insert rien ensuite je clik sur sortir jusqu ici c bon et si je repete la mm action c a dire j'ouvre la forme d'ajout sans que la forme s'ouvre un msg d'erreur qui dit impossible d'inserer une ligne vide elle doit au moin comporter une valeur de colonne
????

Réponse 7 / 7

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Alors, tu n'as pas du bien me lire: Form_Unload() gère le click sur la croix en haut à droite de la Form. Pour faire simple, c'est une méthode appartenant à Form.

j'ai une commande sortir Tu veux dire que tu as un CommandButton (un bouton) nommé "Sortir" ?

Discussions similaires

[Visual Basic 6 portable]Créer exécutable

Programmer le Timer en Visual Basic 6.0

Compatibilité VB6 et Windows 10

VB6 - SSTab

Je trouve pas DTPicker dans les composants du VB6 ?

Votre réponse

Discussions similaires