Pb VB66/Access, insertion de ligne vide??

Question

Bonjour, j'ai une appli VB6 Access sur chaque forme j'ai le bouton Ok ,Annuler et Nouvelle Saisie

Annuler ne fait que fermer la fenetre en cours mais lorque je clic sur
Nouvelle Saisie (qui fait un AddNew et met toutes les textbox vide)

et qu'ensuite je clic sur annuler, il me sort une fenetre avec la
phrase: "Impossible d'ins&#233;rer une ligne vide. Elle doit au moins
comporter une valeur de colonne." Cela vient-il du AddNew? Ou d'autre
par? Comment le r&#233;soudre?

K_SoZe · Answer

Bonjour,



Peux-tu faire un copier/coller de ton code ?


K. SZe

hyunkel69 · Answer

'Clic sur Nouvelle Saisie

Private Sub CmdNew_Click()

    AdoRs.AddNew

    TxtNumAff.Text = ""

    TxtNom.Text = ""

    TxtInterne.Text = ""

    TxtExterne.Text = ""

    CmdPremier.Enabled = True

    CmdPrecedent.Enabled = True

    CmdDernier.Enabled = False

    CmdSuivant.Enabled = False

    CmdOk.Enabled = True

End Sub



'Clic sur AnnulerPrivate Sub CmdAnnuler_Click()

    Unload Me

    FrmD&#233;marrage.Show

End Sub



'Form Load

Private Sub Form_Load()

    Set cn = New ADODB.Connection

    Set AdoRs = New ADODB.Recordset

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Ingesystem Suivi Depense.mdb"

    

    strSQL = "Select * FROM [Saisie Heure]"

    

    With AdoRs

            .ActiveConnection = cn

            .CursorLocation = adUseClient

            .CursorType = adOpenKeyset

            .LockType = adLockOptimistic

            .Open strSQL

    End With

    

    'Ton recorset est ouvert; apres tu peux te deplacer dedans.

    Set DataGrid1.DataSource = AdoRs

        TxtNumAff.Text = AdoRs.Fields(0)

        TxtNom.Text = AdoRs.Fields(1)

        If IsNull(AdoRs.Fields(2)) Then

            TxtInterne.Text = ""

        Else

            TxtInterne.Text = AdoRs.Fields(2)

        End If

        If IsNull(AdoRs.Fields(3)) Then

            TxtExterne.Text = ""

        Else

            TxtExterne.Text = AdoRs.Fields(3)

        End If

        CmdOk.Enabled = False

End Sub



Et voil&#224;, j'espere que cela te seras utile!

animanes · Answer

salut a toi

private sub annuler_click ()

dataenvironment1.rsHarticho.cancelBatch

end sub



voili voilo

j espere que c ca que tu voulais

Bye ;)

et bonne continuation

K_SoZe · Answer

Il me semble que tu dois faire un update apr&#232;s ton addnew, est ce que &#231;a change quelquechose?



'Clic sur Nouvelle Saisie

 Private Sub CmdNew_Click()

     AdoRs.AddNew

     TxtNumAff.Text = ""

     TxtNom.Text = ""

     TxtInterne.Text = ""

     TxtExterne.Text = ""

    AdoRs.update

     CmdPremier.Enabled = True

     CmdPrecedent.Enabled = True

     CmdDernier.Enabled = False

     CmdSuivant.Enabled = False

     CmdOk.Enabled = True

 End Sub



K. SZe

hyunkel69 · Answer

animanes : j'utilise pas de DE

K_Soze: &#231;a ne marcher pas d&#233;sol&#233; (ca me fait 2x l'erreur maintenant)

Pb VB66/Access, insertion de ligne vide??

5 réponses

Discussions similaires