Discussion :

[chuspyto]

bonsoir

un utilisateur s'identifie dans une texte box et une fois identifier est enregistré dans une table via un recordset dans un champ "nomAutorisation".cet utilisateur s'identifie sous cette forme: AAAutilisateur
comment faire pour que dans la table a l'enregistrement je n'ai plus les AAA?
j'ai essayé mais je ne sais quoi mettre a la place d'utilisateur sachant qu'il varient.est ce que je doit ecrire autant de ligne qu'il y a d'utilisateur?
comment l'inserer avant enregistrement dans une table?
nomAutorisation etant le nom du champ de la table

Code :

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

nomAutorisation=mid("AAAutilisateur"),4)

merci

[loufab]

Bonjour,

tout simplement :

Code :

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

=right(mavariable,len(mavariable)-3)

ou encore

Code :

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

=replace(mavariaaable,"AAA","",,1)

ou encore (plus torturé)

Code :

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

 mid(mavariable,4,len(mavariable)-3)

Je crois qu'on a fait le tour !

[chuspyto]

bonjour
,ou dois je placer cette ligne,juste avant le recordset?ou avant le while?
voici mon 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
Private Sub essai_AfterUpdate()
Dim test As String
Dim testDate As Date
Dim dbsdepart As Database
Dim rstdepart As Recordset
Set dbsdepart = CurrentDb
Set rstdepart = dbsdepart.OpenRecordset("TableAutorisationTemporaire", dbOpenDynaset)
 
      While Not rstdepart.EOF
            With rstdepart
            test = rstdepart.Fields("nomAutorisation").Value
            testDate = rstdepart.Fields("dateAutorisation").Value
            rstdepart.MoveNext
      End With
 
    If StrComp(Me.essai, test, vbTextCompare) = 0 Then
       If StrComp(CStr(testDate), CStr(Date), vbTextCompare) = 0 Then
       Call equipes

merci

[loufab]

C'est difficile de te répondre...

[loufab]

Je le verrai plutot dans ta comparaison... non ?!

[chuspyto]

j'ai du mal a suivre.si je le mets dans la comparaison,la ligne va etre pris en compte dans l'enregistrement?
cela pourrait devenir cela???

Code :

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

1
2
3
4
5
6
7
8
9
10
  While Not rstdepart.EOF
            With rstdepart
            test = rstdepart.Fields("nomAutorisation").Value
            testDate = rstdepart.Fields("dateAutorisation").Value
            rstdepart.MoveNext
      End With
 
    If StrComp(Me.essai, test, vbTextCompare) = 0 Then
      nomAutorisation = Replace(essai.value, "AAA", "", , 1)
       Call equipes

[loufab]

Je ne vois pas ou tu écris dans ta table avec le code fourni.

Normalement l'écriture via un recordset ce fait comme ceci.

Code :

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

1
2
3
4
5
 
rst.addnew
rst.fields() = valeur
...
rst.update

Dans ton code tu ne fais que balayer un table, capturer des valeurs que tu compare, voilà ou s'arrête le code fourni.

[chuspyto]

avec cette ligne de code,ca n'enregistre pas automatiquement dans le champ de la table??

Code :

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

nomAutorisation = Replace(essai.value, "AAA", "", , 1)

[loufab]

Non ! Comme je te l'ai fait remarqué sur mon précédent post.

Tu dois ABSOLUMENT lire le tuto sur DAO ! La programmation sous ACCESS ne s'improvise pas.

Tu verras se tuto est très enrichissant.

[chuspyto]

bonjour,
peux tu me dire si cela pourrait convenircar une errreur est apparue erreur execution "94" ne peut contenir une valeur null?
cette ligne est pointée

Code :

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

monLogin1=rstdepart.Fields("NomLogin").value

voici mon 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
If StrComp(Me.essai, test, vbTextCompare) = 0 Then
      monLogin1 = Replace(essai.value, "AAA", "", , 1)
       Call equipes
 
Set dbsdepart = CurrentDb
    Set rstdepart = dbsdepart.OpenRecordset("nomAutorisation", dbOpenDynaset)
        With rstdepart
                rstdepart.AddNew
                monLogin1=rstdepart.Fields("NomLogin").value             
                rstdepart.Update
                rstdepart.Bookmark = .LastModified
 
        End With
    rstdepart.Close
    dbsdepart.Close

merci

[Pierre Fauconnier]

Bonjour

Vu que ton recordset pointe vers un nouvel enregistrement

Code :

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

rstdepart.AddNew

l'évaluation d'un champ du recordset (sauf clé primaire automatique) renverra toujours NULL ce que ne peut accepter monLogin1, soit parce que c'est un contrôle, une variable typée autre que variant, ...


Si j'ai bien compris ton code, dans le bloc With... End with, tu dois inverser les termes de l'égalité

Code :

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

rstdepart.Fields("NomLogin") = monLogin1

Ce sont les bases du VBA et de DAO qu'il faut revoir, comme le dit loufab()

[loufab]

Si tu utilise With ce n'est pas la peine de spécifier le nom du recordset.

Clique sur With et tape F1.

Non le F1 n'est pas réservé au sot. Tout le monde s'en sert, même les plus chevronnés.