Difficultés avec la composition d'un SQL en VBA

Bonjour,

J'ai un problème avec la modification du SQL de l'une de mes requêtes.

Tout d'abord, voici ce que je souhaite faire (si vous avez d'autres suggestions que la modification du SQL, je suis très ouverte aux idées):

Je souhaite "improviser" des droits d'accès sur mes données pour les différents utilisateurs qui utiliseront ma base de données. Premièrement, j'ai créé des tables pour définir mes utilisateurs, avec leur profil (droit d'accès) et leur mot de passe pour chacun.

J'ai un état qui me sert de "plateforme principale" pour l'utilisateur.
Cet état est conçu grâce à une requête "05_01-PLATEFORME" qui va tirer les informations dont j'ai besoin de plusieurs autres tables et requêtes, dont la requête "08_00-CHOIX_ALLOC_TABLE" qui est filtrée par un critère "NoET_AL" correspondant au numéro associé à l'utilisateur.

Ce qui me pose problème est que plusieurs utilisateurs ont accès en même temps à ma base et je ne sais pas si je peux me contenter de changer le critère une seule fois à la connexion de l'utilisateur sans que le numéro d'un autre utilisateur lors de sa connexion vienne influencer les données du premier utilisateur. C'est peut-être ici que vous pourriez me donner d'autres suggestions...

Je sais que ce n'est infaillible comme processus pour contrer les mauvaises intentions, mais ce n'est qu'une question de présentation.

Sinon, la solution que j'ai trouvée pour pallier à ce problème est de modifier le code SQL de ma requête, au besoin, c'est-à-dire à chaque fois que mon utilisateur clique à l'endroit qui le ramène à sa plateforme.

Ma requête prend en compte beaucoup d'éléments et j'obtiens toujours un message d'erreur qui me dit que la clause FORM n'est pas correcte, voici donc mon code VBA appliqué sur mon bouton:

Dim strNoET As String
Dim strSQL As String
Dim strSQLSELECT As String
Dim strSQLWHERE As String

strNoET = Me.No_ET

strSQLSELECT = _
"SELECT [06-ALLOCATIONS_BUDGET].No_AL, [05-MESURES].NoRM_ME, [04-REGROUPEMENTS_M].Titre_RM," & _
"[06-ALLOCATIONS_BUDGET].NoME_AL, [05-MESURES].Titre_ME, [NoME_AL] & " - " & [Titre_ME] AS Expr1, [06-ALLOCATIONS_BUDGET].NoET_AL, [06-ALLOCATIONS_BUDGET].BudCal_AL," & _
"[NoRM_ME] & " - " & [Titre_RM] AS Expr2" & vbCrLf & _
"FROM ([04-REGROUPEMENTS_M] INNER JOIN [05-MESURES] ON [04-REGROUPEMENTS_M].No_RM = [05-MESURES].NoRM_ME)" & _
"INNER JOIN [06-ALLOCATIONS_BUDGET]" & _
"ON [05-MESURES].No_ME = [06-ALLOCATIONS_BUDGET].NoME_AL"

strSQLWHERE = _
"WHERE ((([06-ALLOCATIONS_BUDGET].NoET_AL)='" & _
Replace(strNoET, "'", "''") & ")" & _
"AND (([06-ALLOCATIONS_BUDGET].BudCal_AL)<>0));"

strSQL = strSelect & vbCrLf & _
        strWHERE

CurrentDb.QueryDefs("08_00-CHOIX_ALLOC_TABLE").SQL = strSQL

MsgBox CurrentDb.QueryDefs("08_00-CHOIX_ALLOC_TABLE").SQL

Voici le code SQL de ma requête qui doit être modifié dans la clause WHERE pour que le "450" soit changé pour le numéro de l'utilisateur à l'aide de mon code VBA:

SELECT [06-ALLOCATIONS_BUDGET].No_AL, [05-MESURES].NoRM_ME, [04-REGROUPEMENTS_M].Titre_RM, [06-ALLOCATIONS_BUDGET].NoME_AL, [05-MESURES].Titre_ME, [NoME_AL] & " - " & [Titre_ME] AS Expr1, [06-ALLOCATIONS_BUDGET].NoET_AL, [06-ALLOCATIONS_BUDGET].BudCal_AL, [NoRM_ME] & " - " & [Titre_RM] AS Expr2

FROM ([04-REGROUPEMENTS_M] 
INNER JOIN [05-MESURES] ON [04-REGROUPEMENTS_M].No_RM = [05-MESURES].NoRM_ME) 
INNER JOIN [06-ALLOCATIONS_BUDGET] ON [05-MESURES].No_ME = [06-ALLOCATIONS_BUDGET].NoME_AL
WHERE ((([06-ALLOCATIONS_BUDGET].NoET_AL)=<gras>450</gras>) AND (([06-ALLOCATIONS_BUDGET].BudCal_AL)<>0));

Voici le lien pour consulter ma base de données:
https://drive.google.com/file/d/1x5JpJ45sjqe_1kaI3IQ4FomyPd4fBtaH/view?usp=sharing

Je ne sais pas non plus si ma clause Where fonctionne parce que ça bloque avant.. donc la fonction Replace() n'est peut-être pas nécessaire non plus..

Pouvez-vous m'aider?

Merci beaucoup!!