Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Re: Alimenter une table automatiquement V2

avatar
06/01/14 08:49
Quelque chose comme ça peut être ?
Langage: Visual Basic
Private Sub Bt_Creer_Click() Dim rst As dao.Recordset Dim lngNum As Long Dim lngCode As Long   Set rst = CurrentDb.OpenRecordset("PLANTE", dbOpenDynaset)   For lngNum = 0 To Me.txtNP - 1 For lngCode = Me.txtDebut To Me.txtFin rst.AddNew   ' Alimenter les champs rst("INT") = Me.[INT] rst("OR") = Me.[ORIGINE] rst("AN") = Me.[AN] rst("CODE") = lngCode rst("NPL") = 1 + lngNum rst("DATESEMI") = Me.[DATS]   rst.Update Next Next   rst.Close Set rst = Nothing   DoCmd.OpenQuery "REQ_miseenforme_inf" DoCmd.OpenQuery "REQ_miseenforme_sup" MsgBox "Opération terminée !", vbInformation End Sub
Ouala !

-- Hervé Inisan.
SujetAuteurEnvoyé le

Alimenter une table automatiquement V2

Bandi20/12/13 13:42

Re: Alimenter une table automatiquement V2

Bandi23/12/13 09:34

Re: Alimenter une table automatiquement V2

Hervé Inisan06/01/14 08:49

Re: Alimenter une table automatiquement V2

Bandi07/01/14 13:14

Re: Alimenter une table automatiquement V2

Hervé Inisan07/01/14 14:09

Re: Alimenter une table automatiquement V2

Bandi08/01/14 10:40

Re: Alimenter une table automatiquement V2

Hervé Inisan08/01/14 20:15

Re: Alimenter une table automatiquement V2

Bandi24/01/14 13:24

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter