Programmation avec VBA sous oobase
Bonjour,
Je suis actuellement stagiaire en informatique dans un hopital privé et mon maitre de stage m'a donné unprojet que lui même ne connais pas ni ne sait résoudre donc je n'ai aucun tuyau et aucune documentation...
1 ) J'ai réaliser un formulaire avec des tables et maintenant je dois développer la macro qui va avec. J'ai réussit a extraire les informations dans les zones de texte ( nom, prénom... ) et je suis censée les comparer avec ceux qui existent déja ( pour prévenir l'utilisateur que monsieur x est déja sur la liste et qu'il ne se trompe pas ) mais je ne sais pas comment extraire les informations de la base de donnée existante pour faire les compraisons...
2 ) Lorsque l'utilisateur a rentré ses données, il appuit sur le bouton validation et toutes els données doivent être transmises dans la base de données dans le bon ordre ( ne pas mettre le nom dans les complications) ... et je ne sais pas non plus comment faire.
3 ) Il me faut faire une comparaison des dates d'entrée et de sortie... j'ai créer donc une variable datent et datsor mais je ne sais pas de quel type elles sont ni comment les extraire ( ce n'est pas du texte... )
Je vous remercie d'avance de m'éclairer un peu ^^
Je suis actuellement stagiaire en informatique dans un hopital privé et mon maitre de stage m'a donné unprojet que lui même ne connais pas ni ne sait résoudre donc je n'ai aucun tuyau et aucune documentation...
1 ) J'ai réaliser un formulaire avec des tables et maintenant je dois développer la macro qui va avec. J'ai réussit a extraire les informations dans les zones de texte ( nom, prénom... ) et je suis censée les comparer avec ceux qui existent déja ( pour prévenir l'utilisateur que monsieur x est déja sur la liste et qu'il ne se trompe pas ) mais je ne sais pas comment extraire les informations de la base de donnée existante pour faire les compraisons...
2 ) Lorsque l'utilisateur a rentré ses données, il appuit sur le bouton validation et toutes els données doivent être transmises dans la base de données dans le bon ordre ( ne pas mettre le nom dans les complications) ... et je ne sais pas non plus comment faire.
3 ) Il me faut faire une comparaison des dates d'entrée et de sortie... j'ai créer donc une variable datent et datsor mais je ne sais pas de quel type elles sont ni comment les extraire ( ce n'est pas du texte... )
Je vous remercie d'avance de m'éclairer un peu ^^
Configuration: Windows XP Internet Explorer 6.0
5 réponses
-
C'est franchement pas cool mais merci quand meme je vais me débrouiller.
A bon entendeur, salut! -
Svp
-
Up !
-
S'il vous plait....
-
PS : voici mon code déja existant ( ############### c'est là ou je bloque... ):
Sub Main
/*************************************Declaration des variables**********************************************/
dim mon_formulaire as object
dim datent=########
dim datesor=#########
dim nom as string
dim prenom as string
dim recherche_nom as string
dim recherche_prenom as string
dim nombre_enregistrement as integer
dim boucle as integer
dim valeur as string
dim validation as integer
dim compteur as integer
/*************************************Initialisation des variables*********************************************/
mon_formulaire=Thiscomponent.forms.getbyname("stat-rea")
validation = 0
compteur = 0
/*******************************************Programme principal************************************************/
do
if(datent<=datesor)then
nom=mon_formulaire.TextBox1.text
for boucle= 0 to nombre_enregistrement
recherche_nom = ############
if(nom==recherche_nom)then
position = boucle
compteur=compteur+1
end if
next
if compteur > 0 ) then
if(position>compteur) then
position = position - compteur
else position = compteur - position
end if
prenom
for boucle = position to compteur
recherche_prenom =#####################
if (recherche_prenom == prenom ) then
valeur = msgbox( " Attention, il existe déja un/une "&nom&" "&prenom&". Souhaitez vous continuer?",vbyesno)
if( valeur = "yes") then validation =1
end if
next
validation = 1
end if
else msgbox( " Attention, il y a des erreurs! Vérifier que les dates soient cohérentes. ")
end if
while ( (validation != 1) || (valeur == "No") )
End Sub
Ah oui, c'est mon premier VBA, je fais du C généralement donc si les fonctions ne sont pas bonnes vous pouvez me le signaler ^^
