création d'un formulaire permettant d'ajouter des données

**qbihlmaier** · 06/12/2005, 15h04

re bonjour, j'ai réussi à faire ce que j'avais entrepris grace à votre aide merci à tous..
par contre je voudrais maintenant fais une formulaire tous simple, qui me permette juste d'ajouter des données...par exemple, j'ai une table "SECTION" avec deux champs "section" et "Job title", je voudrais créer un formulaire avec deux zones de texte et un bouton.
lorsque les 2 zones de texte sont remplies, l'utilisateur clique sur le bouton et les données sont ajoutées dans lma table "SECTION"
il est important que le formulaire ne permette pas de supprimer ou d'éditer des données
voyez vous une solution?
merci

**keita** · 06/12/2005, 15h37

Tu crées un form independant de toute source(qui n'est donc pas basé sur une table):
1/Ajoute les zones de texte section et jobtitle;
2/Ajoute un bouton et sur l'evenement click du bouton tu ecris ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim StrSQL as string, Rst as Recordset
StrSQL="SELECT *.NomDeMaTable;"
Set Rst=CurrentDb.Openrecordset(StrSQL)
Rst.AddNew
   Rst![Section]=Me![Section]
   Rst![Job Tiltle]=Me![Jobtitle]
Rst.UpDate
Rst.Close
Set Rst=Nothing

@+

**qbihlmaier** · 06/12/2005, 15h47

merci pour ta réponse Keita,
mais en fait j'obtiens une erreur du type :
Run-time error '3075' : Syntax error (missing operator) in query expression '*.Tbl_section'.
lorsque je fait debug j'obtiens une erreur sur cette ligne en jaune :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Command2_Click()
Dim StrSQL As String, Rst As Recordset
StrSQL = "SELECT *.Tbl_section;"
[color=yellow]
Set Rst = CurrentDb.Openrecordset(StrSQL)
[/color]
Rst.AddNew
   Rst![Section] = Me![Section]
Rst.Update
Rst.Close
Set Rst = Nothing
End Sub

je comprends pas pourquoi étant donnée que je suis novice..
pouvez vous m'aider?
merci

**keita** · 06/12/2005, 15h54

Oh pardon, c'est comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

StrSQL = "SELECT *.Tbl_section FROM Tbl_section;"

**qbihlmaier** · 06/12/2005, 15h59

merci de repondre si rapidement, mais j'ai tjs le meme probleme, toujours la meme erreur...je ne sais pas comment l'éviter
tu vois encore une erreur dans mon code?

**Lou Pitchoun** · 06/12/2005, 16h05

Salut,
Et si au lieu de passer par une chaine SQL tu mettais directement le nom de la table ???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Rst=Application.CurrentDb.Openrecordset("NomTable")

**qbihlmaier** · 06/12/2005, 16h11

j'ai ecrit ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Command2_Click()
Dim StrSQL As String, Rst As Recordset
StrSQL = "SELECT *.Tblsection FROM Tblsection;"
Set Rst = Application.CurrentDb.Openrecordset("Tblsection")
Rst.AddNew
Rst![Section] = Me![Section]
Rst.Update
Rst.Close
Set Rst = Nothing
End Sub

et maintenant j'obtiens une run time error '13'
type mismatch
désolé je suis vraiment débutant

**keita** · 06/12/2005, 16h11

Essai ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

StrSQL = "SELECT section, [job title]  FROM Tblsection;"

**qbihlmaier** · 06/12/2005, 16h14

toujours l'erreur run-time error '13' : type mismatch

mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Command2_Click()
Dim StrSQL As String, Rst As Recordset
StrSQL = "SELECT [section] FROM Tblsection;"
Set Rst = CurrentDb.Openrecordset(StrSQL)
Rst.AddNew
   Rst![Section] = Me![Section]
Rst.Update
Rst.Close
Set Rst = Nothing
End Sub

et la ligne jaune dans le débugueur est la suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set Rst = CurrentDb.Openrecordset(StrSQL)

merci d'avance

**Lou Pitchoun** · 06/12/2005, 16h18

Si ça, ça marche pas.. je veux bien aller me faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Command2_Click() 
Dim Rst As Variant
Set Rst= CurrentDb.Openrecordset("NomTable") 
Rst.AddNew 
   Rst![Section] = Me![Section] 
Rst.Update 
Rst.Close 
Set Rst = Nothing 
End Sub

C'est peut être pas génial comme code mais je l'ai déjà utilisé...

Le code erreur 13 signifie : type incompatible.

**qbihlmaier** · 06/12/2005, 16h20

Merci kikof, ca marche sans probleme...
merci à vous tous de m'avoir aider, car l'apprentissage en solo, dans un pays anglophone est dur

lol
merci encore
@++

**keita** · 06/12/2005, 16h26

Mais il y a une bibliotheque qui te manque:
Microsoft DAO 3.6 (depend de la version d'access)
il faut l'ajouter sinon tu continueras d'utiliser le type variant partout.

**qbihlmaier** · 06/12/2005, 17h07

merci pour le renseignement Keita, je viens de l'ajouter, je ne sais pas à quoi ca sert, mais cela m'evitera de vous déranger aussi longtemps la prochaine fois...
ta solution aurait marché si cette reference avait été activé? désolé dans ce cas de vous avoir fait chercher pour rien!
@+ et merci

**qbihlmaier** · 06/12/2005, 17h27

grace au code de kikof, est il possible de rentrer plusieur champs
j'ai 4 zone de texte et 2 combobox, je voudrais prendre les valeurs et les inserer directement dans la table...
est-ce possible?

**qbihlmaier** · 06/12/2005, 18h06

encore un changement, j'ai reussi à utiliser le code de Keita, en faisant un DAO.RECORDET, mais par contre je ne peux ajouter qu'un champs : je m'explique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub addemployee_Click()
Dim StrSQL As String, Rst As DAO.Recordset
StrSQL = "SELECT [Firstname], [Lastname]  FROM Tblempl;"
Set Rst = CurrentDb.Openrecordset(StrSQL)
Rst.AddNew
   Rst![Firstname] = Me![Firstname]
Rst.Update
Rst.Close
Set Rst = Nothing
End Sub

le champs firstname est bien ajouté dans ma table Tblempl

par contre si je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub addemployee_Click()
Dim StrSQL As String, Rst As DAO.Recordset
StrSQL = "SELECT [Firstname], [Lastname]  FROM Tblempl;"
Set Rst = CurrentDb.Openrecordset(StrSQL)
Rst.AddNew
   Rst![Firstname] = Me![Firstname]
   Rst![Lastname] = Me![Lastname]
Rst.Update
Rst.Close
Set Rst = Nothing
End Sub

j'obtiens le message d'erreur suivant : Run-time error '438' : Object doesn't support this property or method

je vais dans le debugueur et la ligne qui est surlignée en jaune est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   Rst![Lastname] = Me![Lastname]

que faire?
merci de m'aider si vous pouvez car je suis perdu

**keita** · 06/12/2005, 21h43

La bibliotheque que tu as ajouté doit certainement etre mal positionnée.
fais comme si tu ajoutais une bibliotheque; dans cette fenetre selectionne la biblio que tu as rentrée.Il y a 2 boutons flechés à droite;entre ces 2 boutons c'est ecrit "Priorité";click le bouton fleché du haut jusqu'à positionné Microsoft 3.6 le plus haut possible.
@+

**qbihlmaier** · 06/12/2005, 22h00

j'ai reussi à m'en sortir...pour les zones de textes, merci de ton aide Keita...
par contre en essayant d'appliquer la même méthode pour des zones de listes, cela ne marches pas...je voudrais récuperer la valeur séléctionnée dans la zone de liste et l'insérer dans ma table...est-ce possible?
de la même facon j'ai deux champs textes possedant un masque de saisie "date courte : 01/01/1901" et la méthode ne marche pas non plus...
pourriez vous m'indiquez la marche a suivre pour les zones de listes et les zones de textes avec masque selon la méthode à Keita???
merci d'avance
quentin

**qbihlmaier** · 07/12/2005, 12h10

SVP, personne ne peut m'aider?
j'ai vraiment besoin d'aide..
merce

**keita** · 07/12/2005, 12h30

Bonjour
Je ne comprends pas que tu aiautant de pb pour executer cebout de code.
donne moi le code que tu essais d'executer. il y a certainement beaucoup de bibliotheques qui te manquent.
@+

**qbihlmaier** · 07/12/2005, 12h42

alors voila que je voulais executer au début :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub addemployee_Click()
Dim StrSQL As String, Rst As DAO.Recordset
StrSQL = "SELECT [Firstname], [Lastname]  FROM Tblempl;"
Set Rst = CurrentDb.Openrecordset(StrSQL)
Rst.AddNew
   Rst![Firstname] = Me![Firstname]
   Rst![Lastname] = Me![Last_name]
   Rst![Datebirth] = Me![Datebirth]
   Rst![Startdate] = Me![Startdate]
   Rst![Section] = Me![txtSection]
   Rst![Jobtitle] = Me![txtjobtitle]
Rst.Update
Rst.Close
Set Rst = Nothing
    Me.Firstname = ""
    Me.Last_name = ""
    Me.Datebirth = ""
    Me.Startdate = ""
    Me.txtSection = ""
    Me.txtjobtitle = ""
    MsgBox "The new employee has been added", vbOKOnly, "Element added"
End Sub

dans ce cas, j'obtiens une erreur : Run-time error '3265' : item not found in this collection
la ligne que le débugueur met en jaune est la suivante :
Rst![Datebirth] = Me![Datebirth]

pour résoudre ceci et voir si j'arrivais à inserer la valeur des combobox txtsection et txtjobtitle malgré leur nom, j'ai enlevé les lignes posant problème, j'obtiens ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub addemployee_Click()
Dim StrSQL As String, Rst As DAO.Recordset
StrSQL = "SELECT [Firstname], [Lastname]  FROM Tblempl;"
Set Rst = CurrentDb.Openrecordset(StrSQL)
Rst.AddNew
   Rst![Firstname] = Me![Firstname]
   Rst![Lastname] = Me![Last_name]
   Rst![Section] = Me![txtSection]
   Rst![Jobtitle] = Me![txtjobtitle]
Rst.Update
Rst.Close
Set Rst = Nothing
    Me.Firstname = ""
    Me.Last_name = ""
    Me.Datebirth = ""
    Me.Startdate = ""
    Me.txtSection = ""
    Me.txtjobtitle = ""
    MsgBox "The new employee has been added", vbOKOnly, "Element added"
End Sub

j'obtiens exactement la même erreur

je ne pense plus qu'il s'agisse d'un problème de bibliothèque car si je met le code comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub addemployee_Click()
Dim StrSQL As String, Rst As DAO.Recordset
StrSQL = "SELECT [Firstname], [Lastname]  FROM Tblempl;"
Set Rst = CurrentDb.Openrecordset(StrSQL)
Rst.AddNew
   Rst![Firstname] = Me![Firstname]
   Rst![Lastname] = Me![Last_name]
 Rst.Update
Rst.Close
Set Rst = Nothing
    Me.Firstname = ""
    Me.Last_name = ""
    Me.Datebirth = ""
    Me.Startdate = ""
    Me.txtSection = ""
    Me.txtjobtitle = ""
    MsgBox "The new employee has been added", vbOKOnly, "Element added"
End Sub

cela marche sans problème...
je pense donc que mon probleme est que j'ai des zones de texte (birthdate et Startdate) avec un masque de saisie, et des zones de liste (txtsection et txtjobtitle)
je ne voix pas d'autre problème
tu veux que je t'envoie la BdD?

création d'un formulaire permettant d'ajouter des données

IHM

Discussions similaires

Partager

Partager