Programmation avec VBA sous oobase

Fermé

Xilex Messages postés 7 Date d'inscription mardi 19 mai 2009 Statut Membre Dernière intervention 20 mai 2009 - 19 mai 2009 à 10:24
Xilex Messages postés 7 Date d'inscription mardi 19 mai 2009 Statut Membre Dernière intervention 20 mai 2009 - 20 mai 2009 à 09:26

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 ^^

A voir également:

Programmation avec VBA sous oobase
Application de programmation - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation

5 réponses

Réponse 1 / 5

Xilex Messages postés 7 Date d'inscription mardi 19 mai 2009 Statut Membre Dernière intervention 20 mai 2009
19 mai 2009 à 10:26

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 ^^

Réponse 2 / 5

Xilex Messages postés 7 Date d'inscription mardi 19 mai 2009 Statut Membre Dernière intervention 20 mai 2009
19 mai 2009 à 10:54

S'il vous plait....

Réponse 3 / 5

Xilex Messages postés 7 Date d'inscription mardi 19 mai 2009 Statut Membre Dernière intervention 20 mai 2009
19 mai 2009 à 13:05

Up !

Réponse 4 / 5

Xilex Messages postés 7 Date d'inscription mardi 19 mai 2009 Statut Membre Dernière intervention 20 mai 2009
19 mai 2009 à 17:06

Svp

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

Xilex Messages postés 7 Date d'inscription mardi 19 mai 2009 Statut Membre Dernière intervention 20 mai 2009
20 mai 2009 à 09:26

C'est franchement pas cool mais merci quand meme je vais me débrouiller.

A bon entendeur, salut!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

ouverture d'un fichier excel à partir d'un code VBA

Erreur d'exécution 13 Incompatibilité de type

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel