Tuto VB/Access

Euh ... tu fais référence à quel post ? ^^

???? qui c'est ça ...
AHHHHHHHHHHHHHHHH un fantômeeeeeeeeee

Me faut juste un peu de temps pour comprendre à quoi servent toutes les fonctions que tu met dedans mais sinon ça va.

Pis non, le mercredi Rikk elle est pas sur le pc.

C'est chiant, on s'ennuie ! :(

Elle est trop égocentrique, elle pense qu'à elle. ^^

Mais au fait, tu passes combien de temps sur mon problème le soir ?
Je voudrais pas te prendre toutes tes soirées.

Ps : une petite question.
Pour le mode de calcul retenu.

Dans combo3.click, tu met :

.Text1.Text = ModESEnt_STD.getModCalcRetenu

Et dans ModESEnt_STD :

getModCalcRetenu = entStd.Mod_calc_retenu

Ma question c'est comment tu peux récupérer le mode de calcul alors que tu ne passe aucun paramètre ? Oô

Okkkkkk !

J'avais pas compris. :)

Ps : niiice, je viens aussi de comprendre comment marchait les recordset.sort

EDIT : ah oui mais non, ça marche pas. xD

Je comprendo. ^^


Euh ... dis moi, si j'ai 3 champ dans mon datagrid.
Ça ne suffit pas ça pour le trier ?

Private Sub grid_HeadClick(ByVal ColIndex As Integer)
    On Error GoTo err
    Select Case ColIndex

    Case 1
        Me.adoData.Recordset.Sort = "[Libelle]"
    Case 2
        Me.adoData.Recordset.Sort = "[Position_affichage]"
    Case 3
        Me.adoData.Recordset.Sort = "[id_std]"
    End Select

C'est ce que je pensais aussi.
Mais si je clique sur Position_affichage, il me tri par Libelle.

Et si je clique sur les 2 autres, il me tri ça n'importe comment. xD

EDIT : c'est bon j'ai trouvé mon erreur.
Fallait commencer à 0 et non à 1.

Par contre il me tri 1 - 12 - 2 ...
Faut que je change ça.

J'ai enfin pris ton savoir supérieur en vb en défaut.

J'suis content de moi .... mais j'suis bloqué. xD

S'pa grave, je vais bien finir par trouver.

Bon, ce que je veux c'est qu'une nouvelle form avec un tableau s'affiche si je choisi M1 par exemple.

J'ai donc dans ModfrmForm1 :

If .Option1.Value = True Then
          sup = MsgBox("Veuillez confirmer le choix du mode de calcul M1", vbInformation + vbOKCancel + 0, "Confirmation")
              If sup = vbOK Then
                  Form1.Enabled = False
                  Form3.Show
               
                  Form3.adoData3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & bdd
                  Form3.adoData3.RecordSource = "select valeur, Ja from calcul_ligne"
                  Form3.adoData3.CommandType = adCmdText
                  Form3.adoData3.Refresh
              End If

Ensuite dans la Form3, j'ai 2 champs, et quand je clique sur le bouton, je veux qu'ils s'ajoutent :

Private Sub btAjout_Click()
    Form3.adoData3.Recordset![Valeur] = Trim(Me.txtval.Text)
    Form3.adoData3.Recordset![ja] = Trim(Me.txtJa.Text)
End Sub

Si c'est une erreur alakon, t'as le droit de me frapper.

Ps : une valeur s'ajoute (pas à la suite comme je le voudrais, mais elle s'ajoute tout de même), donc pas la peine de me demander si le DataSource a été ajouté ou quelque chose comme ça. ^^

.... -_-"

C'est bien une erreur alakon.

Elle vaut au moins 10 coups de fouets.

Encore une fois merci. :)

Non ce n'est pas indiscret. ^^

En fait je suis en fin de dernière année de DUT informatique et je devais faire un stage de 11 semaines.
J'avais comme projet de réaliser un site extranet.
Comme j'en avais déjà fais plusieurs ça a été assez rapide.

Et ils ont décidé de me garder pour les vacances pour réaliser ça.
Ça leur enlève du travail et moi ça m'évite de retourner à l'usine. :)

Merci de ces précisions.

Mais j'ai toujours un problème de type d'argument ByRef incompatible sur un.

Il ne faudrait pas que je rajoute un ByVal dans la définition de ma fonction ?

Raaaaa, j'ai rajouté un ByVal rs As ADODB.Recordset mais maintenant l'erreur (qui est la même) est sur deux. :(

J'suis pas sur non plus.

Je tente, j'invente ... et j'me plante. :D

Ba euhhh ... ça me semblait être le meilleur endroit.

C'est la première fois que je touche au vb. -_-"

M'enfin tu peux aller les voir, ils sont mauvais.
L'année dernière (donc en première année, c'est un ami qui expliquait des choses aux profs.).
Sachant qu'ils sont censés être docteurs. Ça fait peur quand même.