nouveau enregistrement

Question

Salut,

J'ai un formulaire qui a ete rempli et dont les donnees ont ete enregistres. Je veux creer un bouton pour effacer toutes les donnees qui ont ete rentres dans le formulaire mais pas de la bd pour ainsi pouvoir rentrer un nouveau enregistrement.

Donc pour ce faire j'ai utilise ceci qui ne fonctionne pas :
DoCmd.GoToRecord , , acNewRec

Le message d'erreur me dit : You can't go to the specified record
Donc que dois-je faire ?
Merci d'avance
Bises 

bergamotte   :shy)

cs_Crazyht · Answer

Une RichTextBox s'utilise comme une textbox, tu n'es pas obligé de te servir des proprietes supplementaire.

A++

Crazyht :)

katarhackt669 · Answer

dsl, j'ai mal posté
en fait , j'ai déjà essayé avec une listbox, mais le résultat ne s'affiche que à la fin de la procédure... D'autre part, je ne sais pas utiliser les richtextboxes..
Merci encore.
@++

cs_Crazyht · Answer

Aurais tu le numero d'erreur ?

MsgBox Err.Number & Err.Description

au lieu de 
MsgBox Err.Description
pour qu'il apparaisse au debut du texte

A++

Crazyht :)

BasicInstinct · Answer

C'est pas joli ce que je vais te dire, mais tu peux effacer "a la main" l'ensemble des zone de saisies

Si tu as joliment nommé des textboxs, tu doit pouvoir faire un truc du style:
Dim MyC as Control
for Each MyC in MonFormulaire
if left(Myc..name,3)="txt" then 'tous mes controles commencent par txt
MyC.text=""
end if
next

Mais il doit qd meme y avoir une meilleur methode que celle la!
 :clown)  BasicInstinct  :clown)

cs_bergamotte · Answer

En fait dans mon formulaire il y a un combo que j'y ai insere et un textfield. Et c'est deux champs lorsque je veux un nouvel enregistrement reste rempli alors que les autres sont a null. Et c'est bizare parce que je n'ai plus le message d'erreur qui s'affiche.

J'essaie de bidouiller pour avoir tous mes champs a null alors voici mon code :

Me.Combo45.RowSourceType = "Table/Query"
Me.Combo45.RowSource = " "

DoCmd.GoToRecord , , acNewRec
 
Me.HomeDept = ""

Voila, Je sais c'est tres barbare et en plus ca ne marche pas.

bergamotte   :shy)

cs_Crazyht · Answer

Me.Combo45.SetFocus
Me.Combo45.Text = ""
 
Pour vider le texte de la combo ca doit suffir 

A++

Crazyht :)

cs_bergamotte · Answer

Oui je suis d'accord avec toi BI
Mais en plus de ca j'ai un probleme avec la sauvegarde dont je t'ai parle tout a l'heure. Lorsque je veux un nouvel enregistrement et que j'appuie sur le bouton nouveau. J'ai donc le pb des combos qui s'effacent pas automatiquement mais en plus les informations que je rentrais precedement sont enrgistres meme si je n'ai pas cliquer sur le bouton enregistrer.

Idee, idee, viens a nous

bergamotte   :shy)

cs_bergamotte · Answer

Merci tu es un pro.
Ca fonctionne a merveille maintenant il me reste un pb celui de l'enregistrement et oui parce que lorsque je fais un nouvel enregistrement ca enregistre ce que j'ai tape avant, alors que je ne voudrais pas et je ne sais pas quelle est la fonction qui pourrais m'eviter ce pb non negligeable.

bergamotte   :shy)

BasicInstinct · Answer

j'ai pas vraiment le temps de regarder tout de suite, mais la solution existe, si si je te jure :))
si le contenu de ta combo ne change pas, il suffit de faire

Me.ComboBox.SetFocus
Me.ComboBox.Text = ""
Me.MonPremierControleAAvoirLeFocus.SetFocus (si <> de combobox)

sinon, faut faire un truc comme Combobox.requery (pas sur du tout de la syntaxe)

Bizzzzzz

 :clown)  BasicInstinct  :clown)

cs_bergamotte · Answer

En fait pour la combo il suffit de faire ca :
Me.Combo45.SetFocus
Me.Combo45.Text = ""

C'est Crazyht qui me l'a dit.
Mais toujours besoin d'aide pour l'enregistrement.

Et oui, je penserais a toi et aux autres dans les remerciements, je pense que ca va peut etre faire bizare de mettre des pseudos ils vont croire que je me fous de leur gueule ca peut etre drole !!!!!!!!!!
Bises
bergamotte   :shy)

cs_Crazyht · Answer

Tu mets ca avant le DoCmd.GoToRecord , , acNewRec

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

C'est sous access 97 les argument on peut etre changer en 2000 ou XP :(

A++

Crazyht :)

BasicInstinct · Answer

Bah, faudrait pas que ca te nuise non plus, Pi s'ils te croient pas, ils pourront tjs me contacter :)) Parce que je ne pense pas que je pourrais me deplacer pour leur dire en face

 :clown)  BasicInstinct  :clown)

cs_bergamotte · Answer

Oh merci beaucoup grace a toi je viens de finir mon projet.
Je penserais a toi pour les remerciements.
Merci beaucoup
Bisous

bergamotte   :shy)

cs_Crazyht · Answer

De rien :)

A++

Crazyht :)

cs_bergamotte · Answer

Ne t'inquiete pas je pense qu'ils ne seront pas trop choques eux aussi ce sont des informaticiens ils savent ce que c'est. Enfin j'espere, c'est vrai que vu leur age et le temps qu'ils mettent a resoudre un pb peut etre que finalement ...
Enfin je verrais ca a la fin de l'annee.

Sinon pour l'enregistrement c'est bon plus de pb Crazyht m'a donne la solution. Et ca marche bien sur.

Bisous

bergamotte   :shy)

Nouveau enregistrement

15 réponses

Discussions similaires