begin process at 2012 02 15 20:33:27
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

Message Box

 > 

au secour !!!


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

au secour !!!

mercredi 25 mai 2005 à 10:58:29 | au secour !!!

mboudllal

 vous pouvez me dire qui ce qui va pas dans ce bloc svp
" il me dis else sans if !!!!!!!
Y = InputBox("mflmlfl")
    If Y = "hub" Then form1.Show
        Else: If Y = "routeur" Then form2.Show
            ElseIf Y = "switch" Then form3.Show
End If
    End If
        End If

merciii
mercredi 25 mai 2005 à 11:06:15 | Re : au secour !!!

econs

Administrateur CodeS-SourceS


Réindente ton code, et tu verras que tes IF, Else et EndIf ne sont pas bien gérés.


Y = InputBox("mflmlfl")
If Y = "hub" Then
    Form1.Show
Else
    If Y = "routeur" Then
        form2.Show
    ElseIf Y = "switch" Then
        form3.Show
    End If
End If
End If

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
mercredi 25 mai 2005 à 11:08:56 | Re : au secour !!!

BasicInstinct

Membre Club
Réponse acceptée !
essaie de ne pas mettre plusieurs instructions sur la mm ligne.



Y = InputBox("mflmlfl")
    If Y = "hub" Then 
            form1.Show
    Else
            If Y = "routeur" Then 
                  form2.Show
            Else
                  If Y = "switch" Then 
                           form3.Show
                  else
                           msgbox "Inconnu"
                  End If
             End If
     End If


BasicInstinct
mercredi 25 mai 2005 à 11:09:27 | Re : au secour !!!

Surfurax

ton ":" entre le "Else" et le "If" signifie que tu passes à une nouvelle instruction en d'autres termes, tu as écrit la chose suivante :

Y = InputBox("mflmlfl")
If Y = "hub"
    Then form1.Show
Else

If Y = "routeur" Then
    form2.Show
ElseIf Y = "switch" Then
    form3.Show
End If
End If
End If

ce qui en VB signifie n'importe quoi

la bonne écriture doit plutôt ressembler à ça :

Y = InputBox("mflmlfl")
If Y = "hub"
    Then form1.Show
ElseIf Y = "routeur" Then
    form2.Show
ElseIf Y = "switch" Then
    form3.Show
End If

il faut seulement 1 EndIf si tu as plusieurs ElseIf consécutif et non pas 1 EndIf par ElseIf.

@+

" mailto:paulferrand@yahoo.fr" Surfurax[/url
mercredi 25 mai 2005 à 11:45:04 | Re : au secour !!!

mboudllal

cooooool ca marche
merci les gars.
une autre petite question

j un interface graphique avec des zones de texte et un boutton de commande enregistrer, c koi les commandes qui me permetteron d'enregistrer se que je tappe dans les zonnes de texte sur ma base de donné access ?
merci
mercredi 25 mai 2005 à 11:56:19 | Re : au secour !!!

econs

Administrateur CodeS-SourceS

Il faudrait pour celà que tu nous donnes le nom de tes champs texte, et à quels champs ils correspondent dans ta base de données.


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
mercredi 25 mai 2005 à 12:08:36 | Re : au secour !!!

ITALIA

Membre Club
Réponse acceptée !
Et la prochaine fois met un tutre plus explicite...on s'en doute que t'as besoin d'aide !!!

En DAO, c'est à dire en cochant Projet...Références...Microsoft DAO3.51 Object Library

Set Db = OpenDatabase("C:\MaBase.mdb)
Set Req = Db.OpenRecordset("SELECT *FROM NomTable")
Req.AddNew
Req("NomChamp") = Text1.text
Req.Update
Set Req= Nothing
Set Db = Nothing

It@li@
mercredi 25 mai 2005 à 15:42:40 | Re : au secour !!!

mboudllal

cool ca marche encore
t'assure vraiment ITALIA

FORZA ITALIA
          merci
mercredi 25 mai 2005 à 15:58:27 | Re : au secour !!!

ITALIA

Membre Club
FORZA MILANO

It@li@
mercredi 25 mai 2005 à 16:52:47 | impression

mboudllal

dis moi stp comment je peut imprimer a partir d'une form dans laquel j inséré un BDGrid, un  Data et un bouton de commande " imprimer"

1 2

Cette discussion est classée dans : end, show, secour


Répondre à ce message

Sujets en rapport avec ce message

mode asynchrone!!! SOS [ par j_aub ] slt ttt le monde,je veux travaillé en mode asynchrone pour lancer des fonctions d'1 web services.par exemple pour ma 1ère fonction d'authentification userform.show [ par celinevba ] Salut tous !J'ai un projet en VBA Excel contenant plusieurs userform. Il est possible de naviguer d'une feuille l'autre. Pour cela, j'ai cod par exe Fenêtre form qui plante excel [ par vini123 ] HELP une journée de Travail passée à chercher le bug mon patron me demande du résultat ...A l'aide de hide et de show je cache et affiche récepectivem Form qui plante excel [ par vini123 ] Le problème vient d'un ensemble de macro évènementielle qui gère l'apparition de fenêtres contenant des comboBox. UserForm3 appelle UserForm4 par un U comment passser d'un test a un autre [ par ] Voila en fait j'aurais une petite question.J'ai mis 8 label et un bouton (nommé verifier).Le gars qui va sur cette application doit remplir les 8 cham Problème avec mon premier algo [ par Moundir76 ] Bonjour, j'ai un souci je dois realiser un algo qui compare trois nombres et les affiches par ordre croissant. Cependant, mon algo n'affiche qu'une co code source j'ai besoin d'aide [ par marwakarim ] Svp c urgent j'ai besoin de m'aider dans a comprendre ces code je suis debutante en vb6 c urgenttttttttt code1: Private Sub ChangeGrafs_DragDrop(Sour m'aide a comprendre le but de ce code [ par marwakarim ] If p > 1 Then JouerLeFichier App.Path + "\" & "_ERREUR.WAV" MsgBox "Mot de passe et/ou Nom Utulisateur non valide(s), réessayez !", , probleme avec insert into [ par alanort ] bonjour, voila je travaille avec VB Express 2008, et je travaille avec une base de donnée access 2003. j'aimerai pouvoir ajouter une mesure en cliqu Dimensionnement de Form [ par Bernard74 ] Bonjour, Avec ce code, je peux agrandir ou diminuer la taille des forms de mon projet, par contre je ne sais pas comment repositionner les forms, aprè


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,090 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales