Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Clément Marcotte
Pourquoi pas ? Encore que ce serait sans doute plus logique de faire le formulaire dans Access.
"donner excel vers acces" <donner excel vers a écrit dans le message de news:
je veut faire un formulaire sur excel qui envoit dans acces mon msn
Pourquoi pas ? Encore que ce serait sans doute plus logique de faire le
formulaire dans Access.
"donner excel vers acces" <donner excel vers
acces@discussions.microsoft.com> a écrit dans le message de news:
0974106E-EA4B-4FA9-95A3-6F6A93B89DA2@microsoft.com...
je veut faire un formulaire sur excel qui envoit dans acces
mon msn thatworldismine@hotmail.com
Tu as raison sauf que plusieur personne von avoir acces au ficher excell mais pas a acces ces pour ca
JB
Bonjour,
Saisie dans un formulaire
La table access Client contient: -Un champ nom_client -Un champ ville
La base Access.mdb doit exister et être dans le même répertoire:
Private Sub b_ok_Click() 'Dans OUtils/Référence cocher Micosoft DAO 3.6 Dim db As DAO.Database Dim dt As DAO.Recordset Set db = OpenDatabase(ActiveWorkbook.Path & "access2000.mdb") Set dt = db.OpenRecordset("client") If Me!nom_client = "" Then MsgBox "Saisir un nom!" Me!nom_client.SetFocus Exit Sub End If dt.AddNew dt!nom_client = Me!nom_client dt!ville = Me!ville dt.Update dt.Close db.Close Me!nom_client = Null Me!ville = Null Range("A1").Select End Sub
Cordialement JB
je veut faire un formulaire sur excel qui envoit dans acces mon msn
Bonjour,
Saisie dans un formulaire
La table access Client contient:
-Un champ nom_client
-Un champ ville
La base Access.mdb doit exister et être dans le même répertoire:
Private Sub b_ok_Click()
'Dans OUtils/Référence cocher Micosoft DAO 3.6
Dim db As DAO.Database
Dim dt As DAO.Recordset
Set db = OpenDatabase(ActiveWorkbook.Path & "access2000.mdb")
Set dt = db.OpenRecordset("client")
If Me!nom_client = "" Then
MsgBox "Saisir un nom!"
Me!nom_client.SetFocus
Exit Sub
End If
dt.AddNew
dt!nom_client = Me!nom_client
dt!ville = Me!ville
dt.Update
dt.Close
db.Close
Me!nom_client = Null
Me!ville = Null
Range("A1").Select
End Sub
Cordialement JB
je veut faire un formulaire sur excel qui envoit dans acces
mon msn thatworldismine@hotmail.com
La table access Client contient: -Un champ nom_client -Un champ ville
La base Access.mdb doit exister et être dans le même répertoire:
Private Sub b_ok_Click() 'Dans OUtils/Référence cocher Micosoft DAO 3.6 Dim db As DAO.Database Dim dt As DAO.Recordset Set db = OpenDatabase(ActiveWorkbook.Path & "access2000.mdb") Set dt = db.OpenRecordset("client") If Me!nom_client = "" Then MsgBox "Saisir un nom!" Me!nom_client.SetFocus Exit Sub End If dt.AddNew dt!nom_client = Me!nom_client dt!ville = Me!ville dt.Update dt.Close db.Close Me!nom_client = Null Me!ville = Null Range("A1").Select End Sub
Cordialement JB
je veut faire un formulaire sur excel qui envoit dans acces mon msn
