VBA_dev_Anne_Marie
XLDnaute Occasionnel
Bonjour,
Je voudrais concaténer les variables dans ma clé. J'ai des doutes sur la ligne prod.cd_produit & " / " & strQ &" = " & proto.cd_protocole ".
En faite, dans la colonne cd_produit j'ai des valeurs caractères comme T345, la variable strQ est aussi en caractères. En concaténant ces valeurs (T345/L123, avec "/") je voudrais chercher la même ligne avec la même valeur dans la table cd_protocole.
Voici une partie de mon code :
Merci beaucoup de votre aide
Je voudrais concaténer les variables dans ma clé. J'ai des doutes sur la ligne prod.cd_produit & " / " & strQ &" = " & proto.cd_protocole ".
En faite, dans la colonne cd_produit j'ai des valeurs caractères comme T345, la variable strQ est aussi en caractères. En concaténant ces valeurs (T345/L123, avec "/") je voudrais chercher la même ligne avec la même valeur dans la table cd_protocole.
Voici une partie de mon code :
VB:
Public Sub INFO_PROTO1(ByRef strQ As String)
Dim RECSET As New ADODB.Recordset, numero_de_police
numero_de_police = Worksheets("1 - Feuille de Suivi Commercial").Range("C6").Value
If Len(numero_de_police) > 0 Then
RECSET.Open " select proto.b_perf_cma as b_perf_cma from db_dossier sousc,db_produit prod, db_protocole proto" & _
" where sousc.no_police = '" & numero_de_police & "' and sousc.cd_dossier = 'SOUSC' and " & _
" sousc.lp_etat_doss not in ('ANNUL','A30','IMPAY') and sousc.is_produit = prod.is_produit and prod.cd_produit & " / " & strQ &" = " & proto.cd_protocole ", cnn_Medt, adOpenDynamic, adLockBatchOptimistic