Bouton enregistrement automatique une fois
Bonjour,
Je découvre InfoPath et je viens de concevoir un modèle de formulaire.
Je voudrais maintenant insérer un Bouton qui permettrait d’enregistrer automatiquement les fichiers en reprenant le contenu de 2 zones de texte contenant les données de dates et d’heure (Fonction « Maintenant » exemple : 2012-09-19T09:43:27) + les données d’une seconde zone de texte qui correspond au nom de la personne qui traite le dossier) et ceci à un emplacement sur notre serveur.
Je ne suis pas du tout programmeur et j’aurais besoin de votre aide pour connaitre les lignes de codes que je dois indiquer dans les différentes zones de codification du bouton d’enregistrement (j’ai vu que c’était dans les propriétés du bouton et dans Modifier le code du formulaire).
Pour corser un peu le problème, je souhaiterais que le bouton d’enregistrement ne soit actif qu’une seule fois, afin de ne pas créer plusieurs fichiers lors d’une éventuelle mise à jour ultérieur.
Voilà ce que montre le système au niveau du bouton.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
Namespace Form_Contact_Techinserv_
Public Class FormCode
' Les variables membres ne sont pas prises en charge dans les formulaires activés pour le navigateur.
' À la place, écrire et lire ces valeurs à partir de FormState
' dictionnaire utilisant du code tel que le suivant :
'
' Private Property _memberVariable() As Object
' Get
' _memberVariable = FormState("_memberVariable")
' End Get
' Set
' FormState("_memberVariable") = value
' End Set
' End Property
' REMARQUE : la procédure suivante est requise par Microsoft Office InfoPath.
' Elle peut être modifiée à l'aide de Microsoft Office InfoPath.
Private Sub InternalStartup(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Startup
AddHandler EventManager.FormEvents.Submit, AddressOf FormEvents_Submit
AddHandler DirectCast(EventManager.ControlEvents("CTRL49_5"), ButtonEvent).Clicked, AddressOf CTRL49_5_Clicked
End Sub
Public Sub FormEvents_Submit(ByVal sender As Object, ByVal e As SubmitEventArgs)
' Si l'opération d'envoi est réussie, définir
' e.CancelableArgs.Cancel = False
' Tapez votre code ici.
End Sub
Public Sub CTRL49_5_Clicked(ByVal sender As Object, ByVal e As ClickedEventArgs)
' Tapez votre code ici.
End Sub
End Class
End Namespace |
Merci pour vos informations.
Excellente fin de journée.
Enregistrement automatique
Bonjour,
Je vous remercie pour votre réponse et je vous prie de bien vouloir m'excuser pour mon délai de réponse, d'autres préoccupations m'ont empèchées de suivre ce projet.
Je viens de tester votre solution et je pense avoir loupé un truc, car lorsque je clic sur le bouton enregistrer, j'ai un message d'erreur qui dit ceci :
L'emplacement suivant n'est pas valide
L'emplacement doit être une URL absolue et commencer par : HTTP:// ou HTTPS://
Mon but étant simplement d'enregistrer sur notre serveur local : s:\zone de stockage
Merci pour votre aide, Excellent week end.