Discussion :

[overdoze]

Bonjour à tous et à toute,

Je dévéloppe actuellement une application sur la gestion des notes avec VB.6.
Dans mon application j'utilise deux frames :l'un qui contient un MsFlexGrid pour un affichage global des données, et l'autre qui contient des TexteBox pour l'affichage en détail d'une donnée. Je voudrais que lorsqu'on clique sur un élément du Flexgrid, celui ci s'affiche en détail dans l'autre frame.

Mais voilà, lorsque je lance le programme tout tourne normalement. Mais lorsque je clique sur une ligne du Flexgrid le compilateur m'affiche:
"Erreur d'exécution 3001"
"Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres"

Et lorsque je clique sur débogage c'est cette ligne qui est mise en jaune:
rspost.Find "[ID_POSTE]=" & val

je vous mets ci dessous toute la procedure:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Rechercher(val As String)
If Not Trim(val) = "" Then
    rspost.MoveFirst
    rspost.Find "[ID_POSTE]=" & val
        If rspost![flag] = True Then
            cmdSuppL.Enabled = False
            CmdRestL.Enabled = True
        Else
            cmdSuppL.Enabled = True
            CmdRestL.Enabled = False
        End If
   Afficher
End If
End Sub
 
Private Sub mfgFRS_Click()
    Rechercher (mfgFRS.TextMatrix(mfgFRS.Row, 0))
End Sub

Quelqu'un pourrait-il me dire ce qui cloche là dedans?
J'espère avoir été assez précis. Je reste à votre disposition pour plus amples explications.
Merci

[SfJ5Rpw8]

Bonjour,

commence par changer le nom de ta variable ... val étant un mot réservé VB ( c'est une fonction ... voir )

[overdoze]

Le changement du nom de variable ne résolu pas le pbs. Le compilateur m'affiche toujours le meme message.

J'ai eu des éléments de réponses dans ma quête mais je cogne une fois de plus face à un nouveau mur.
voici le nouveau code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
PrivateSub Rechercher(val AsString)
IfNot Trim(val) = ""Then rspost.MoveFirst
    rspost.Find"[ID_POSTE]=""&val&"
        If rspost![flag] = TrueThen
            cmdSuppL.Enabled = False
            CmdRestL.Enabled = True
        Else
            cmdSuppL.Enabled = True
            CmdRestL.Enabled = False
        EndIf
   Afficher
EndIf
EndSub
 
PrivateSub mfgFRS_Click()
    Rechercher (mfgFRS.TextMatrix(mfgFRS.Row, 0))
EndSub
 
code

Il fallait tenir compte du type de t ID_POSTE qui texte dns notre cas.
c'est pourkoi il faut convertir val qui reçois une valeur numérique.

mais le nouveau probleme se situe maintenant dans la ligne juste ne dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If rspost![flag] = TrueThen

le compilateur m'affiche: "Erreur d'exécution 3021"
BOF ou EOF est égal à true ou l'enrégistrement actuel a été supprimé. L'opération demandée nécessite un enrégistrement actuel.

Alors que je n'est dans ma table que 3 données pour le moment.
Merci de bien vouloir me guider

[LeForestier]

Bonjour,
1°) Tu traite le MSFlexGrid comme une feuille excel
2°) Je ne vois aucune fonction relative à un Grid !!!.
La fonction Row, par exemple n'est pas une fonction FlexGrid.
Sélectionne ton FlexGrid et tape F1, toutes les fonctions serront disponnibles et presque toutes avec des exemples.
A+

[ucfoutu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub MSFlexGrid1_Click()
  MsgBox MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, MSFlexGrid1.MouseCol)
End Sub

A toi de jouer avec, maintenant.

Bonne continuation...

[LeForestier]

du fait que l'ont clique sur le grid les propriétés Row et Col sont déja définies, il est plus simple d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub MSFlexGrid1_Click()
    MsgBox MSFlexGrid1.Text
End Sub

ou pour employé la fonction TextMatrix

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   MSFlexGrid1.textMatrix( 3 , 6 ) = "Test"

Permet de placer du texte ou valeur dans une cellule sans déplacer les valeurs de Col et Row

A+

[sovo]

Bonjour,
2°) Je ne vois aucune fonction relative à un Grid !!!.
La fonction Row, par exemple n'est pas une fonction FlexGrid.
Sélectionne ton FlexGrid et tape F1, toutes les fonctions serront disponnibles et presque toutes avec des exemples.
A+

ha bon tu es sur d'avoir la bonne version de MSFlexGrid ?? Je pense plutot que c'est l'utilisation qui n'est pas bonne, mais tout ca a ete ratraper plus bas.

[LeForestier]

ha bon tu es sur d'avoir la bonne version de MSFlexGrid ?? Je pense plutot que c'est l'utilisation qui n'est pas bonne, mais tout ca a ete ratraper plus bas.

Bonsoir à tous,
Tu à raison Sovo, c'est plutôt un lapsus la façon dont il employais row n'était pas bonne, mais apparement cela à été édité.

Pour répondre à overdoze,
Tu dit que tu à changer le nom de la variable mais je constate quand même que tu emploi toujours val en string, et comme te le faisait remarquer ouskel'n'or, c'est un mot réservé de VB, tant que tu ne changeras pas ça, ça n'ira pas.
A+