commande valider access

Question

Bonjour,
jai du code vb qui me permet d'inserer ou de supprimer des enregistrements dans une table lorque je clique sur le bouton valider , cependant mon code ne marche pas et je ne trouve pas l'erreur mercu de m'aider

Private Sub Cmd_valid_Click()
On Error GoTo Err_cmd_valid_Click
If chx <> "a" Then
lst_id.Visible = False
lst_nom = ""
Else
lst_id.Visible = True
lst_nom.Visible = False

End If
If chx <> "s" Then
If chx = "a" Then
End If
End If
DoCmd.RunCommand acCmdRecordsGoToNew
lst_id.Requery
lst_id = ""

Now.RowSource = "SELECT avril09.* from avril09; "
Me.Refresh
If chx = "m" Or "a" Then
dmcmd.RunSQL "insert into avril09(division,section,entité_pilotage,identifiant,UP,Nom,Prenom,Agent_Sexe,Grade,Clasniv_grade,n°_fonction,libelle_fonction,clasniv_fct,Agent_Statut,Date_naissance,quotite) values('" & Me.division & "," & Me.section & " , " & Me.[entité pilotage] & " , " & Me.identifiant & " , " & Me.UP & " , " & Me.Prenom & " , " & Me.[Agent Sexe] & " , " & Me.Grade & " , " & Me.clasniv_grade & " , " & Me.[n° fonction] & " , " & Me.Libelle_fonction & " , " & Me.clasniv_fct & " , " & Me.[Agent Statut] & " , " & Me.[Date naissance] & " , " & Me.quotite & "' )"
End If
If chx = "s" Then
dmcmd.RunSQL "delete avril09.* from avril09 where identifiant = " & CLng(lst_id.Value)
DoCmd.RunSQL req
DoCmd.Close acForm, "frm_personnel"
End Sub

merci!!!

Configuration: Windows XP Internet Explorer 6.0

DarkAurora · Answer

ton code est bien trop long pour moi, mais voici la solution, il faut tout d'abord détecter l'erreur je te propose de commencer par soit mettre des points d'arrêts soit des msgbox pour savoir ce qu'il y a dans tes variables

une fois l'erreur ciblé on pourras intervenir que mieux au lieu d'en créer, comme cela peut être le cas maintenant

sya21 · Answer

je les place ou met point darret ou msgbox
car les probleme vient certainement de ma requete

DarkAurora · Answer

déjà un problème la dessus

If chx <> "s" Then 
If chx = "a" Then 
End If 
End If 
DoCmd.RunCommand acCmdRecordsGoToNew 
lst_id.Requery 
lst_id = "" 


tu fait deux if et tu les ferme sans rien mettre dedans est ce normal?

de plus à quoi te sert 

DoCmd.RunCommand acCmdRecordsGoToNew 
lst_id.Requery 
lst_id = "" 


je ne connais pas la commande que tu utilise mais j'ai un doute éclaire moi la dessus

DarkAurora · Answer

si le problème viendrais de ta requête tu aurais sûrement un message d'erreur mais il y a un cas ou ce ne marche pas comme ça c'est vrai

mets des msgbox avant et après chaque variables
et un points d'arrêts sur ta ligne de requête

et enfin donne moi les types des valeurs que tu passe dans ta requêtes

sya21 · Answer

je pense que ces instructions ne me servent plus.en faite jai une liste déroulante lst_id lorsque je clique dessus toutes les informations concernant les personnes se remplissent . je peux ainsi modifier supprimer des informations 
cest la qu intervient le bouton valider dont mon code est faux

DarkAurora · Answer

il me faut impérativement les valeurs que tu rentre dans tes champs, a savoir si tu rentre des chaînes de caractère ou un format date ect 

values('" & Me.division & "," & Me.section & " , " & Me.[entité pilotage] & " , " & Me.identifiant & " , " & Me.UP & " , " & Me.Prenom & " , " & Me.[Agent Sexe] & " , " & Me.Grade & " , " & Me.clasniv_grade & " , " & Me.[n° fonction] & " , " & Me.Libelle_fonction & " , " & Me.clasniv_fct & " , " & Me.[Agent Statut] & " , " & Me.[Date naissance] & " , " & Me.quotite & "' )" 

l'erreur réside sûrement dedans

sya21 · Answer

cest que du texte ou des nombres
date de naissace cest type date
quotité sexe up entite pilotage cest du nombre le reste du texte

sya21 · Answer

si tu veux je tenvoi mon formulaire par mail
jai le meme formulaire avec la requete qui marche mais le code est le meme jai fait un copier coller dans celui la et sa ne marche pas
jai changé certains champ depuis.mais jai gardé des meme nom

DarkAurora · Answer

nan c'est pas la peine merci je vais t'expliquer la syntaxe est très rigoureuse dans un "insert to" et en plus il faut ajouter des cochoneries

alors part étape tu dois : 

vérifier que tout les champs de ta table sont bien orthographier comme dans ta requête
fait de même pour tes values
ensuite vérifie que tes values reçoivent bien les valeurs que tu rentre dans ton formulaires ( avec un points d'arrêts)
vérifie que tes values correspondent bien à tes champs
ensuite lorsque tu devra remplir un champ qui contient du texte tu devra utiliser la syntaxe suivante:
ça : '" & Me.Libelle_fonction & "' au lieu de ça " & Me.Libelle_fonction & "
différence de simple quote
de même pour les champ de format date
ça : #" & Me.Libelle_fonction & "# au lieu de ça " & Me.Libelle_fonction & "

et enfin ajoute un ; à la fin
] & " , " & Me.quotite & "' );"


et regarde par la peut être que .....
http://www.commentcamarche.net/forum/affich 12903676 il me faut une paire d yeux?#14

sya21 · Answer

merci je vais essayé , quand tu me dis des points d'arret tu veux dire quoi?

sya21 · Answer

c'est value ou values? certains dise value

DarkAurora · Answer

que je t'explique mon enfant (:)) quand je dit values c'est pour me la péter je devrais dire valeur, par contre quand je dis values c'est que ça correspond à VALUES de ton insert to, la dedans il y a tout tes items comme une zone de texte ou liste déroulante et que sais je encore. bref le problème est que tu a une erreur mais que rien ne s'affiche pour te l'indiquer donc cela peut venir de ta syntaxe de ton insert to

si tu a une zone de texte pour prendre un exemple 
le champ prénom tu dois avoir une zone de texte ou une liste déroulante pour saisir le prénom ce que tu a choisis est un item que tu utilise dans VALUES de cette façon " & Me.Prenom & "

pour une chaine de caractère tu dois impérativement entouré par des guillemets sinon rien ne s'affiche dans ta table
de même pour la date que tu dois entourer de #....#

bref ça tu l'as compris

maintenant pour mettre un points d'arrêts ( et ce une fois que tu sauras l'utiliser tu verra c'est très utiles )
il suffit que tu aille dans la fenêtre de code vb tu vas sur la ligne de code ( ici la ligne de ta commande INSERT TO ) et dans la marge tu click et normalement tu dois avoir un point rouge écarlate et ta ligne se surlignera de la même couleur

en espérant que tu ais tout compris

sya21 · Answer

jai changé comme tu m'as dit jai mis un point d'arret sur la ligne de ma commande mais tj rien ne se passe
Private Sub Cmd_valid_Click()
On Error GoTo Err_cmd_valid_Click
       DoCmd.RunCommand acCmdRecordsGoToNew
       lst_id.Requery
       lst_id = ""
       'renvoi les données de la requete
       Now.RowSource = "SELECT avril09.* from avril09; "
       Me.Refresh
       If chx = "m" Or "a" Then
       dmcmd.RunSQL "INSERT INTO avril09(division,section,entité_pilotage,identifiant,UP,Nom,Prenom,Agent_Sexe,Grade,Clasniv_grade,n°_fonction,libelle_fonction,clasniv_fct,Agent_Statut,Date_naissance,quotite) VALUES ('" & Me.division & " ' , ' " & Me.section & " ' , " & Me.[entité pilotage] & " , " & Me.identifiant & " , ' " & Me.Nom & " ' , " & Me.UP & " , ' " & Me.Prenom & " ' , " & Me.[Agent_Sexe] & " , ' " & Me.Grade & " ' , " & Me.clasniv_grade & " , " & Me.[n°_fonction] & " , ' " & Me.Libelle_fonction & " ' , " & Me.clasniv_fct & " , ' " & Me.[Agent_Statut] & " ' , # " & Me.[Date_naissance] & " # , " & Me.quotite & " )"
    End If
    If chx = "s" Then
     dmcmd.RunSQL "DELETE avril09.* FROM avril09 WHERE identifiant = " & CLng(lst_id.Value)
     DoCmd.RunSQL req
     End If
    DoCmd.Close acForm, "frm_personnel"
    End Sub

DarkAurora · Answer

autant pour moi j'ai oublié de te donner une explication essentielle , lorsque tu passe ton curseur sur une variable tu peux voir ce qu'elle contiens

exemple

je met un points d'arrêts sur la ligne en question je ferme et j'ouvre mon formulaire ( si il n'est pas déjà ouvert) ensuite je remplis mes champs normalement rien ne se passe mais maintenant j'appuie sur le bouton valider ( bouton ou se situe mon code et donc mon points d'arrêts ) maintenant l'ordinateur exécute chaque instruction jusqu'à la ligne de code ou est le point d'arrêt, la le programme s'arrête et la fenêtre de vb s'ouvre tu es directement positionné sur la ligne de code arrêter, tu l'a verra en jaune et la tu pourras passer la souris sur les champs tel que " & Me.quotite & " et tu verra une sorte d'infobule qui te donneras le contenu de ta variable, si il y a ce que tu as rentré c'est déjà très encourageant

sya21 · Answer

il me met erreur de compilation , argument non facultatif
et il me surligne division du values

DarkAurora · Answer

alors déjà il y a une anomalie car au niveau du champ up correspond la valeur de nom et au niveau du champ nom correspond la valeur de up

maintenant qu'est ce qu'es division dans ta table ta clé?, ou alors tu ne saisie pas la valeur de division dans ton formulaire

je vais me renseigner sur l'erreur

sya21 · Answer

Pourtant ma requete fonctionnait parfaitement hier avant que je modifie certains cahmp du formulaire
jai insérer des prédicats d'expression dans les listes déroulantes

sya21 · Answer

c'est l'identifiant qui est la clé primaire , la division est un champ de type texte

DarkAurora · Answer

un truc con mais 

dmcmd.RunSQL "INSERT INTO avril09(division,section,entité_pilotage,identifiant,UP,Nom,Prenom,Agent_Sexe,Grade,Clasniv_grade,n°_fonction,libelle_fonction,clasniv_fct,Agent_Statut,Date_naissance,quotite) VALUES ('" & Me.division & " ' , ' " & Me.section & " ' , " & Me.[entité pilotage] & " , " & Me.identifiant & " , ' " & Me.Nom & " ' , " & Me.UP & " , ' " & Me.Prenom & " ' , " & Me.[Agent_Sexe] & " , ' " & Me.Grade & " ' , " & Me.clasniv_grade & " , " & Me.[n°_fonction] & " , ' " & Me.Libelle_fonction & " ' , " & Me.clasniv_fct & " , ' " & Me.[Agent_Statut] & " ' , # " & Me.[Date_naissance] & " # , " & Me.quotite & " )" 
End If 
If chx = "s" Then 
dmcmd.RunSQL "DELETE avril09.* FROM avril09 WHERE identifiant = " & CLng(lst_id.Value) 

ce n'est pas DoCmd à la place?

sya21 · Answer

j'avais deja corriger cette erreur qui est revenu je ne sais pa scomment bref jai corrigé jai testé et sa ne marche toujours pas la modification n'est pas prise en compte dans ma base de donnée

DarkAurora · Answer

mais tu n'a plus l'erreur d'avant si? l'erreur de non facultatif?

sya21 · Answer

oui effectivement je n'est plus cette erreur , c'est deja bien

sya21 · Answer

d'ailleur il ne ce passe plus rien quand je clique sur le bouton valider , meme avec les point d'arret

DarkAurora · Answer

bon et avec le point d'arrêts tu arrive à lire les champs de saisie de ton formulaire, je veux dire tu peux voir ce qu'ils contiennent dans ton code vba?

sya21 · Answer

non il ne se passe rien quand je clique sur le bouton valider malgrés les points d'arret

DarkAurora · Answer

le mieux serait que tu me l'envoi je te file mon adresse par mp je vais bientôt partir du taff ce seras silence radio jusqu'à demain donc j'y jetterais un coup d'oeil et je te redirais quoi

sya21 · Answer

ok c'est vraiment sympa de vouloir m'aidé car je suis en stage en bts info et je suis un peu bloqué la ^^

DarkAurora · Answer

allons voyons entre stagiaire BTS info on peut se serrer les coudes non

tu ne serais pas mon double diabolique toi? (Stage, bts info, bd access,problèmes formulaire saisie ect ect...)

de plus si tu veux on pourra partager nos expériences au niveau d'access ce que tu sais faire et ce que je sais faire.....

sya21 · Answer

oué c'est une excelente idée meme si je suis meilleur en réseau quand programmation
en tout cas merci d'avoir jeté un oeil sur mon code meme si on est tj bloqué^^

DarkAurora · Answer

je t'ai envoyer un mail pour te dire comment ça se passe, pour l'instant je me consacre un peu à mon stage et mon code, mais je réfléchis à ce qui ne va pas sur ton code et je pense à plusieurs truc à tester donc on verra

sya21 · Answer

oui oui j'ai vu je té répondu 
Fait deja ce que tu as a faire , aprés si tu as le temps pour mon code t'en mieux sinon c'est pas grave
J'essaye de corriger certaines erreur

sya21 · Answer

Je sais pas si sa peut t'aider mais j'ai une version antérieur de mon formulaire ou ma requete marchait avant que je ne fasse quelques modifications dans le monde cration de mon formulaire.Depuis elle ne marche plus
Jai remplacé les listes déroulantes par des prédicats d'expressions
Tu veux la version avec la requete qui fonctionne? le code n'a pas changé , cest juste le formulaire

sya21 · Answer

ah oui aussi , Dans les propiété du fomùrlaire jai changé la requete source 
peut etre la cause de lerreur??

DarkAurora · Answer

je ne pense pas car j'ai deux moyen de sauvegarder dans ma base de donner soit automatiquement access gère tout et donc il passe par ces champs source contrôle etc etc et quand je quitte il sauvegarde tout seul soit lorsque je souhaite saisir un autre enregistrement je clique sur suivant ça réinitialise tout et ça enregistre en plus mais manuellement cette fois ci

sya21 · Answer

donc l'erreur ne vient pas de la

DarkAurora · Answer

on ne sait jamais mais je ne pense pas

sya21 · Answer

j'essaye plein de modif sans reussite , j'ai repris ma requete qui marchait sans reussite 
je suis désespéré ^^
il me reste plus qu'une semaine pour terminer

DarkAurora · Answer

Moi aussi mais t'inquiète ça va aller :)

sya21 · Answer

oué on va cherché une nouvelle fois , le probleme c'est que sa fait une semaine que je cherche et j'en ait ...... ^^

sya21 · Answer

j'ai oublié de te dire
avant la requete marchai depuis j'ai crée 2 nouvelle tables grade et fonction et j'ai crée des relations
tu crois que l'erreur pourrait venir de la?

DarkAurora · Answer

je vais me pencher sur deux problème cet aprem le premier étant l'affichage d'un des mes formulaire l'autre étant ta base de donnée je l'analiserais et je soulignerais les points que je juge (donc ça n'engageras que moi) erroné ou autre et je te ferrais un rapport de tout ce que j'ai vu

sya21 · Answer

merci c'est cool si tu as besoin d''aide n'hesite pas

Utilisateur anonyme · Answer

il faut ajouter les quotes
par exemple ' " & me.division & " ', ' " & me.section & " ',................

sya21 · Answer

merci de ton aide , mais on a deja rajouté les cotes sans succes
vu que c'est une modification je vais remplacé le insert into par UPDATE   SET

Utilisateur anonyme · Answer

update avril09 set .... where ...

sya21 · Answer

voila ma requete update
je n'est pas inserer le nom et le prenom car il sont dans la liste deroulante de l'identifiant et je ne sais pas comment faire , est ce que je met
&" , Nom = " & lst_id.valie é " ' " _   ???

req = " UPDATE avril09 SET division = ' " & lst_div.Value & " ' " _
    & ", section='" & lst_section.Value & "'" _
    & ", entité_pilotage='" & txt_entite.Value & "'" _
    & ", identifiant='" & lst_id.Value & "'" _
    & ", UP='" & txt_up.Value & "'" _
    & ", Agent_Sexe='" & sexe.Value & "'" _
    & ", Grade='" & lst_grade.Value & "'" _
    & ", n°_fonction='" & lst_fonction.Value & "'" _
    & ", Agent_Statut='" & Agent_Statut.Value & "'" _
    & ", Date_naissance='" & txt_date_naiss.Value & "'" _
    & ", quotite='" & txt_quot.Value & "'" _

DarkAurora · Answer

bonne nouvelle!!!

ahah tu croyais que c'était une bonne nouvelle hein... et bien en partie oui^^

j'ai trouvé pourquoi ta requête ne marchais pas, en fait en modifiant comme tu me l'a dis hier certains items de ton formulaire tu en à rajouter par dessus d'autre, il y avait un conflit ce qui faisait obstacle à la compilation

regarde bien dans ton formulaire la listbox identifiant essaye de la déplacer et tu verras ton erreur, donc maintenant au moins tu compile il y a des erreurs qui se produisait à la compilation donc je me suis permis de mettre de ton code en commentaire de plus j'en ai effacé donc fais attention à ce qu'il y a et ce qu'il manque

maintenant tu verra qu'en mettant un points d'arrêts comme je t'es expliquer tu verra à l'intérieur des variables dans "VALUES" ce qui permettras de te debug pour le reste je copie colle ce mail sur le forum si tu veux bien

sya21 · Answer

oui je t'avais dit que j'avais changé certains items je dois faire quoi alors
en attendant j'essaye une autre methode avec update set

DarkAurora · Answer

non regarde ton adresse mail je t'ai renvoyé TA BDD modifié par mes soins cela ne marche pas mieux qu'avant mais je suis sûre que le principal soucis est passé il ne reste plus qu'a testé et à ne pas te mélanger les pinceaux et à bien te servir du point d'arrêts

sya21 · Answer

ok je regarde

sya21 · Answer

tu n'as pas mis la bdd es piece jointe jai que ton message^^

DarkAurora · Answer

chuuuuuuuuuuuut faut pas le dire :)

sya21 · Answer

j'ai bien mis un point d'arret sur ma requete mais il me surligne tous je vois pas de valeur

DarkAurora · Answer

dans tes paranthèese value laisse ta souris sur une variables comme par exemple Me.division tu verra ce qui s'affiche, si il s'affcihe Null c'est pas bon, si il s'affiche ce que tu as rentré c'est bon si il s'affiche autre chose que tu ne comprend pas ça sera à toi de voir si il n'y à rien ce n'est pas bon non plus j'ai tester il y a beaucoup de champ qui sont null et qui ne se remplisse pas lors de la saisie à toi de voir ce qu'il en retourne

sya21 · Answer

ils sont tous null je vais déprimer^^

DarkAurora · Answer

mais non c'est génial ( et de mémoire il ne sont pas tous nul les premier contiennent quelques choses) tu dois agir  methodiquement pour les débug un à un prend exemple sur ceux qui marche, par contre je vais te laisser car je suis en week end maintenant et je suis sûre que tu y arriveras il faut juste que tu y aille prudement et minutieusement en ne laissant rien passer et tu verra une fois que tu réussiras à en débloquer un les autres suiverons et tu auras réussis à enregistrer dans ta table

je te laisse et bon week end

sya21 · Answer

ok merci je vais essayé , meme si cest loin detre gagné 
merci de m'avoir aidé
bon week end bye

DarkAurora · Answer

alors des nouvelles?

sya21 · Answer

je me suis remis dans mon code ce matin mais je coince tj je ne sais plus trop quoi faire

DarkAurora · Answer

je vais regarder ce qui coince mais je ne te promet rien

sya21 · Answer

jai tj des valeurs null avec les points d'arrets 
deplus jai des petites erreurs qui se sont créer je ne sais pas comment

DarkAurora · Answer

déjà pour commencer j'arrive à écrire dans ta table mais le problème c'est qu'il ne récupère pas toutes les informations donc à mon avis dans 20 mn j'ai résolus ton problème sauf si je me goure alors ça me prendra la journée^^

sya21 · Answer

ok , sinon jté renvoyer ma base avec des modifs mais c'est pas pour autant que sa marche^^

DarkAurora · Answer

le problème et ne m'en veux pas je ne souhaite pas te vexer ou quoi que ce soit c'est que ton code est mal construit, c'est un équilibre fragile et mal construit qui repose sur une erreur mais qui en à engendré des centaines, si tu veux mon avis refait un formulaire claire et simple, j'ai vue que tu avait une base et tu souhaite rentré des informations dans cette base alors que dans ton formulaire aucun item n'est la pour le saisir.

rien que ton bouton valider est complexe, tu as mit un bouton valider, le seule boulot qu'il doit faire c'est de valider, il ne doit pas servir à requête ou autre, il peut éventuellement exécuter un test pour savoir si toutes les informations essentielles ont été saisie mais ça ne vas pas plus loin

de plus un formulaire associé à une table enregistres toutes les informations qu'ils faut la ou il le faut lorsque le formulaire se ferme, alors c'est pas pratique mais commence déjà par la ensuite je te filerais un bouton "suivant" qui enregistre et réinitialise le formulaire

ton code est un chateau de carte et on ne peut plus ajouter de cartes il faut le recommencer je ne peux plus t'aider je ne connais pas ta base ni ce que tu souhaite faire j'ai essayé d'intervenir au niveau de ton code j'ai réussi à écrire dans ta table, j'ai réussi à enregistrer toutes les informations saisie dans le formulaire et je ne sais pourquoi au bout de 2 essai une erreur surviens qui en à engendré 5 autres donc voila pour moi il faut que tu remettes de l'ordre dans ton code et dans ton access, refais un formulaire en t'appuyant sur celui que tu as fait

sya21 · Answer

ok , mais alors comment faire pour que mes données saisies dans mon formulaire s'enregistre automatiquement sans requete

DarkAurora · Answer

pourquoi souhaite tu faire un enregistrement avec une requête, les requêtes sont plus souvent utilisé pour une recherche, ce sont des requêtes de sélection ou de tri

une requête est une table améliorer, dans laquelle tu peux prendre plusieurs données de plusieurs table pour créer une liste plus complète je ne voit pas bien l'intérêt d'utiliser une requête

explique moi ce que tu veux faire

sya21 · Answer

je t'explique 
une fois ma modification effectué par exemple je prend une personne et je modifie son grade je veux que l'enregistrement soit pris e ncompte dans ma table agent donc comment faire?
et lorque je clique je veux supprimer un agent , pareil je veux que celui si s'efface de la table

sya21 · Answer

une autre question si sa ne t'embete pas
jai ma liste déroulante sur mes identifiants et je voudrais que en fonction de l'identifiant choisit il m'affiche toute les infos correspond a la personne .jai fait le code mais il me dit quiol est impossible de faire référence a une propriété si elle n'est pas activé

Private Sub lst_id_click()
    'declaration des variables
    Dim rs As Recordset
    Dim req As String
    
      
    'requete qui va recherche dans la table les données
    req = ("select avril09.* FROM grade INNER JOIN (fonction INNER JOIN avril09 ON fonction.[n° fonction] = avril09.n°_fonction) ON grade.Grade = avril09.Grade " _
    & " where identifiant= '" & Replace(lst_id.Text, "'", "''") & " '")
    
    'ouverture de la base de donnée
   Set rs = CurrentDb.OpenRecordset(req)
    
   
    lst_div = rs.Fields("division")
    lst_section = rs.Fields("section")
    txt_entite = rs.Fields("entité_pilotage")
    txt_up = rs.Fields("UP")
    lst_grade = rs.Fields("Grade , clasniv_grade")
    lst_fonction = rs.Fields("libelle_fonction , n°_fonction , clasniv_fct")
    txt_quot = rs.Fields("quotite")
    txt_date_naiss = rs.Fields("Date_naissance")
    
    rs.Close
End Sub

sya21 · Answer

l'erreur vient du & replace(lst_id.text)
il faut remplacer le .text par ??? list??

sya21 · Answer

quelqu un pourrait m'aider svp

DarkAurora · Answer

pour ton erreur je ne sais pas moi même mais ça doit être écrit sur l'aide ou sur internet, pour ce qui est de tes liste déroulantes je ne vois pas d'erreur au niveau du code, mais vérifie bien que les informations atterrisse bien là ou il faut

DarkAurora · Answer

une question bête dans ta table tu as mis champs texte ou numéro auto?

sya21 · Answer

l'identifiant , cest un numero , le nom et le prenom c'est du texte

une fois ma modification effectué par exemple je prend une personne et je modifie son grade je veux que l'enregistrement soit pris e ncompte dans ma table agent donc comment faire? 
et lorque je clique je veux supprimer un agent , pareil je veux que celui si s'efface de la table

DarkAurora · Answer

si le champ list_id est un numéro c'est normal qui te mette une erreur, il faut un numéro

sya21 · Answer

je met quoi alors lst_id.num  ??

DarkAurora · Answer

ça c'est à toi de voir je n'ai jamais programmé l'ouverture d'une table, mais je pense que c'est au niveau du numéro

sya21 · Answer

ok
tu ma parlé d'enregistrment automatique
j'en ai quelque un qui marche , en faite tous ceux qui ne sont pas des listes déroulantes s'enregistre et pas les autres pk??
De plus lorsque je veux supprimer un agent je suis bien obligé de mettre du code la suppression ne se fait pas automatiquement , je vais codé du genre delete(champ..) from matable

DarkAurora · Answer

je pense savoir pourquoi, en faite lorsque tu créer une liste déroulante leur contenue provient automatiquement de quelque part, tu n'en a pas fait une seule ou tu as rentré les valeurs manuellement 
dans tes propriété et dans l'onglet données c'est la que tu agit pour un enregistrement automatique. en choisissant  la source de contrôle
pour le reste c'est sur ton formulaire que ça se passe
après manger je te donnerais les propriétés de mon form

sya21 · Answer

oui je sais que mes propriété son dans les données .mais ma liste déroulante est un prédicat d'expression donc jai cherché mais je ne trouve pas

DarkAurora · Answer

je me suis mis à access il y a 5 semaine maintenant, tout ce que j'ai compris sur les prédicats d'expression c'est une certaine relations entre le formulaire et la table, je m'en suis débarrassé car lorsque j'utilisé la mollette de la souris je parcourais ma table et ce n'était vraiment pas agréable, donc j'ai agit sur les prédicats à ce moment là tout ce que je sais c'est que maintenant ça marche et avant ça ne marcher pas, j'ai des connaissances en access vba mais pas plus que toi, tu as appris de ton coté et moi du mien on peut s'aider mutuellement mais je ne sais pas tout faire dsl si je n'arrive pas à t'aider sur ce coup la

sya21 · Answer

J'ai reussis a enregistrer dans ma table 
maintenant ce que j'aimerais c'est pouvoir supprimer des personnes lorsque je clique sur mon bouton supprimer

DarkAurora · Answer

Je n'ai jamais fait mais sur internet je suis certain que ça se trouve facilement, tout comme le INSERT TO là je ne peux plus t'aider et de plus tu as réglé le problème tout seul

bravo et félicitaitons^^ :)

sya21 · Answer

effectivement le probleme est quasiment réglé car je peux ajouter et modifier des agents , il y a encore quelques champs qui ne s'enregistrent pas
en tout cas merci de ton aide
pour la suppression j'ai bien fait une requete delete from le probleme cest quelle ne marche pas pourtant elle ma l'air bonne

If chx = "s" Then
     DoCmd.RunSQL "DELETE avril09.* FROM avril09 WHERE identifiant = " & CLng(lst_id.Value)
     DoCmd.RunSQL req
     End If

Commande valider access

83 réponses

Discussions similaires

Newsletters