Discussion :

[DuracellSubaquatique]

Bonjour,

Dans mon formulaire, j'ai vérouillé FERTtxt car le FERT ne dois pas être changé pour les enregistrements existant. Donc, pour créer un FERT, mon InputBox remplis FERTtxt.

Deux problèmes se posent à moi:
-J'aimerai imposer l'entrée d'un caractère (lettre ou chiffre) suivi de 5 chiffres dans l'InputBox.
-Losque je clic sur annuler de l'InputBox, l'enregistrement est quand même créé avec FERTtxt vide. Je voudrais qu'aucun n'enregistrement soit créé si je clic sur annulé de l'inputbox.

Voici le code de mon bonton de commande:

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
Private Sub Commande56_Click()
 
On Error GoTo Err_Commande56_Click
 
    DoCmd.GoToRecord , , acNewRec
 
FERTtxt = InputBox("Enter the new FERT: (6 figures)", "Creating of a FERT")
 
Exit_Commande56_Click:
    Exit Sub
 
Err_Commande56_Click:
    MsgBox Err.Description
    Resume Exit_Commande56_Click
End Sub

Comment dois-je faire?

Merci

[fgiambelluco]

Bonjour
pour

-J'aimerai imposer l'entrée d'un caractère (lettre ou chiffre) suivi de 5 chiffres dans l'InputBox.

c'est impossible sans passer par la création d'un petit formulaire qui sera géré comme la InputBox.

pour

-Losque je clic sur annuler de l'InputBox, l'enregistrement est quand même créé avec FERTtxt vide. Je voudrais qu'aucun n'enregistrement soit créé si je clic sur annulé de l'inputbox.

Il vaut mieux passer par une variable

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
Private Sub Commande56_Click()
 
On Error GoTo Err_Commande56_Click
    Dim Reponse
    DoCmd.GoToRecord , , acNewRec
    Reponse=InputBox("Enter the new FERT: (6 figures)", "Creating of a FERT") 
    If Reponse <>"" Then
        FERTtxt =Reponse
    End If
Exit_Commande56_Click:
    Exit Sub
 
Err_Commande56_Click:
    MsgBox Err.Description
    Resume Exit_Commande56_Click
End Sub

[DuracellSubaquatique]

Merci fgiambelluco,
Ca fonctionne très bien. Je n'avais pas pensé que que la réponse de l'inputbox est vide losqu'on annule.

Pour le petit formulaire, je crois avoir compris comment le créer.

Merci beaucoup

[DuracellSubaquatique]

Bonjour,
Je n'arrive pas à contrôler correctement mon petit formulaire remplaçant l'Inputbox.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande56_Click()
 
On Error GoTo Err_Commande56_Click
    DoCmd.GoToRecord , , acNewRec
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "CreatFERT"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Commande56_Click:
    Exit Sub

Code du bonton du petit formulaire (qui ne fonctionne pas):

Code :

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

1
2
3
4
Private Sub Creatcmd_Click()
FERTtxt = NewFERTtxt
DoCmd.Close
End Sub

Dois-je créer une Public Sub?

Merci

[ilank]

Bonjour,

d'abord tu crées l'enregistrement avant que la valeur ne soit saisie.

Bon essaie ceci

Dans le formulaire de remplacement de l'inputbox; CreatFert

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
Dim ValRetour as String
 
Public Property Get GetNew() As String
 If Not Me.Visible Then Me.Visible=True
 While Me.Visible 
    DoEvents
 Wend
 GetNew=ValRetour
 Docmd.Close acForm, Me.Name, AcSaveNo
End property
 
Private Sub cmdOk_Click()
 If Not IsNull(TxtNewVal.Value) Then ValRetour=TxtNewVal.Value
 Me.Visible=False
End sub
 
Private Sub cmdCancel_Click()
 Me.Visible=False
End sub

Dans l'autre formulaire

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande56_Click()
 Dim NewFERT as String
 NewFERT=Form_CreatFERT.GetNew
 If NewFERT<>"" Then
    DoCmd.GotoRecord Record:=AcNewRec
    FERTtxt=NewFERT
 Endif
End sub

[fgiambelluco]

Re

Code du bonton du petit formulaire (qui ne fonctionne pas):

Code :

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

1
2
3
4
Private Sub Creatcmd_Click()
FERTtxt = NewFERTtxt
DoCmd.Close
End Sub

Il manque la référence à l'autre formulaire (celui que tu veux remplir)

Code :

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

1
2
3
4
Private Sub Creatcmd_Click()
    Forms![TonFormulaire]!FERTtxt = NewFERTtxt
    DoCmd.Close
End Sub

[DuracellSubaquatique]

Merci fgiambelluco!
Pour le finir, j'aimerais qu'avant d'agir, la macro vérifie que le fert entré n'existe pas déja. Voici ce que j'ai fait (et qui ne fonctionne pas du tout):

Code :

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

1
2
3
4
5
6
Private Sub Creatcmd_Click()
If NewFERTtxt <> [Articles]![Fert] Then
    Forms![FertProperties]!FERTtxt = NewFERTtxt
    DoCmd.Close
End If
End Sub

Que dois-je faire?

Merci