A voir également:
- Vb 6
- Vb - Télécharger - Langages
- Nero 6 - Télécharger - Gravure
- Gta 6 trailer 2 - Guide
- Vb cable - Télécharger - Audio & Musique
- 6 ampere = watt ✓ - Forum Matériel & Système
11 réponses
je vais vous données la réponse dans un petit moument
si vous aimez la music écoutet ça
(https://www.deezer.com/fr/#music/result/Un%20air%20de%20liberté)
pour je prend du temp d'écriture
si vous aimez la music écoutet ça
(https://www.deezer.com/fr/#music/result/Un%20air%20de%20liberté)
pour je prend du temp d'écriture
// Déclarer l'entete dans Form quand il sera active***// exemple que je vous donne voila premiere partie
Private Sub Form_Activate()
liste_Etud.Caption = ""
gestion.Caption = "I.N.F.Pro: Liste des Stagiaires"
Grille_ETU.Enabled = False
Grille_ETU.ColWidth(0) = 100
Grille_ETU.ColWidth(1) = 1500
Grille_ETU.Row = 0
Grille_ETU.Col = 1
Grille_ETU.Text = "N°Inscription"
Grille_ETU.ColWidth(2) = 2000
Grille_ETU.Row = 0
Grille_ETU.Col = 2
Grille_ETU.Text = "Nom du stagiaire"
Grille_ETU.ColWidth(3) = 2000
Grille_ETU.Row = 0
Grille_ETU.Col = 3
Grille_ETU.Text = "Prénom du stagiaire"
Grille_ETU.ColWidth(4) = 2000
Grille_ETU.Row = 0
Grille_ETU.Col = 4
Grille_ETU.Text = "Niveau d'Etude"
Grille_ETU.ColWidth(5) = 2000
Grille_ETU.Row = 0
Grille_ETU.Col = 5
Grille_ETU.Text = "N° de F.Prof."
End Sub // Fin Form //
Private Sub Form_Activate()
liste_Etud.Caption = ""
gestion.Caption = "I.N.F.Pro: Liste des Stagiaires"
Grille_ETU.Enabled = False
Grille_ETU.ColWidth(0) = 100
Grille_ETU.ColWidth(1) = 1500
Grille_ETU.Row = 0
Grille_ETU.Col = 1
Grille_ETU.Text = "N°Inscription"
Grille_ETU.ColWidth(2) = 2000
Grille_ETU.Row = 0
Grille_ETU.Col = 2
Grille_ETU.Text = "Nom du stagiaire"
Grille_ETU.ColWidth(3) = 2000
Grille_ETU.Row = 0
Grille_ETU.Col = 3
Grille_ETU.Text = "Prénom du stagiaire"
Grille_ETU.ColWidth(4) = 2000
Grille_ETU.Row = 0
Grille_ETU.Col = 4
Grille_ETU.Text = "Niveau d'Etude"
Grille_ETU.ColWidth(5) = 2000
Grille_ETU.Row = 0
Grille_ETU.Col = 5
Grille_ETU.Text = "N° de F.Prof."
End Sub // Fin Form //
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
// Dans Connextion avec la base et ouverture de table dans form_load//
Private Sub Form_Load()
// CNN_BASE_FILIER cette variable de base est déclaer dans Option Explicit//
CNN_BASE_FILIER.Provider = "Microsoft.jet.oledb.3.51"
CNN_BASE_FILIER.ConnectionString = "C:\..........\Filiere_form.mdb"
CNN_BASE_FILIER.Mode = adModeReadWrite
CNN_BASE_FILIER.Open
With TABL4_BASE_FILIER // cette variable de table est déclaer dans Option Explicit//
.ActiveConnection = CNN_BASE_FILIER
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockPessimistic
.Open "NIVE_FORM", , , , adCmdTable
End With
(((((( attendez la 3iemmepartie)))))
end sub //Fin form_load//
Private Sub Form_Load()
// CNN_BASE_FILIER cette variable de base est déclaer dans Option Explicit//
CNN_BASE_FILIER.Provider = "Microsoft.jet.oledb.3.51"
CNN_BASE_FILIER.ConnectionString = "C:\..........\Filiere_form.mdb"
CNN_BASE_FILIER.Mode = adModeReadWrite
CNN_BASE_FILIER.Open
With TABL4_BASE_FILIER // cette variable de table est déclaer dans Option Explicit//
.ActiveConnection = CNN_BASE_FILIER
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockPessimistic
.Open "NIVE_FORM", , , , adCmdTable
End With
(((((( attendez la 3iemmepartie)))))
end sub //Fin form_load//