J'ai une base de données Access 2000 avec un formulaire personnalisé. Les gens entrent des informations dans ceci. Sur l'un des champs, je veux ajouter automatiquement un ". Zip" à l'un des champs.Access 2000 ajouter automatiquement du texte à un champ d'entrée de formulaire
Comment?
En supposant que vous avez une zone de texte appelé txtFileName, vous pouvez utiliser son événement AfterUpdate pour ce faire:
Private Sub txtFileName_AfterUpdate()
If Not IsNull(txtFileName) Then
txtFileName = Trim$(txtFileName)
If Not Right$(txtFileName, 4) = ".zip" Then
txtFileName = txtFileName & ".zip"
End If
End If
End Sub
Merci. Ça ne fonctionne pas..? Private Sub FirstName_AfterUpdate() If Not IsNull (Prénom) Then FirstName = Trim $ (Prénom) Si Not Right $ (Prénom, 4) = ".zip" Then FirstName = Prénom & ".zip" Fin Si Fin Si End Sub – Peter
Son travail pour moi ... Il doit y avoir un autre facteur, externe à mon code. Qu'est-ce qui se passe avec toi? – awrigley