Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access remontée d'information sur formulaire + VBA

remontée d'information sur formulaire + VBA

2 réponses
Avatar
Nasser
Bonjour à tous,

Voilà mon pb :

J'ai une Table [demande_de_personnels] où il y a un la notion de section et
lorsque
la section change, je veux qu'il me rapporte depuis la table SECTION le
libellé de la direction associée.


j'utilise pour cela le code VBA suivant

Private Sub SECTION_Change()

Dim strV As Variant
Dim rst As DAO.Recordset
Dim strSQL As Variant

strSQL = "SELECT sections.[LIBELLE DIRECTION] FROM sections WHERE
sections.[SECTION]= [SECTION] ;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbReadOnly)
If Not (rst.BOF = True And rst.EOF = True) Then
rst.MoveFirst
strV = rst.Fields(0)
Else
strV = ""
End If

[LIBELLE] = strV

End Sub

L'annomalie : Il remonte tjs le 1er libellé direction de la table SECTION

NB : Champs section = Format texte, 4 caractères


D'avance merci à ceux qui pourront me répondre

Nasser
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Denis Taglia
Bonjour,
C'est dans le where qu'il y a pb a mon avis.
where sections.section=" & me.section & ";" si numérique
where sections.section= ' " & me.section & " ' ;" si texte
Denis

"Nasser" a écrit dans le message de
news:3f9cc836$0$259$
Bonjour à tous,

Voilà mon pb :

J'ai une Table [demande_de_personnels] où il y a un la notion de section
et

lorsque
la section change, je veux qu'il me rapporte depuis la table SECTION le
libellé de la direction associée.


j'utilise pour cela le code VBA suivant

Private Sub SECTION_Change()

Dim strV As Variant
Dim rst As DAO.Recordset
Dim strSQL As Variant

strSQL = "SELECT sections.[LIBELLE DIRECTION] FROM sections WHERE
sections.[SECTION]= [SECTION] ;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbReadOnly)
If Not (rst.BOF = True And rst.EOF = True) Then
rst.MoveFirst
strV = rst.Fields(0)
Else
strV = ""
End If

[LIBELLE] = strV

End Sub

L'annomalie : Il remonte tjs le 1er libellé direction de la table SECTION

NB : Champs section = Format texte, 4 caractères


D'avance merci à ceux qui pourront me répondre

Nasser




Avatar
Nasser
Merci je vais essayer demain si cela fonctionne

@+

Nasser
"Denis Taglia" a écrit dans le message de
news:
Bonjour,
C'est dans le where qu'il y a pb a mon avis.
where sections.section=" & me.section & ";" si numérique
where sections.section= ' " & me.section & " ' ;" si texte
Denis

"Nasser" a écrit dans le message de
news:3f9cc836$0$259$
Bonjour à tous,

Voilà mon pb :

J'ai une Table [demande_de_personnels] où il y a un la notion de section
et

lorsque
la section change, je veux qu'il me rapporte depuis la table SECTION le
libellé de la direction associée.


j'utilise pour cela le code VBA suivant

Private Sub SECTION_Change()

Dim strV As Variant
Dim rst As DAO.Recordset
Dim strSQL As Variant

strSQL = "SELECT sections.[LIBELLE DIRECTION] FROM sections WHERE
sections.[SECTION]= [SECTION] ;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbReadOnly)
If Not (rst.BOF = True And rst.EOF = True) Then
rst.MoveFirst
strV = rst.Fields(0)
Else
strV = ""
End If

[LIBELLE] = strV

End Sub

L'annomalie : Il remonte tjs le 1er libellé direction de la table
SECTION



NB : Champs section = Format texte, 4 caractères


D'avance merci à ceux qui pourront me répondre

Nasser