Newsgroup: it.comp.appl.access
Titolo: CriteriCollegamento

Questa istruzione per sincronizzare una maschera popup
alla sua apertura .
Private Sub Comando7_Click()
Dim strmsg As String, strTitolo As String
    Dim intstile As Integer
    Dim strNomeDoc As String, strCriteriCollegamento As String
    strNomeDoc = "foto"
    strCriteriCollegamento = "[Catalogue_Release] =
Forms![AA_ApriliaCatalogo]![ParCodiceCatalogo]"
Il criterio di collegamento è  il controllo Catalogue_Release =  il
controllo ParCodiceCatalogo
Vorrei sapere se possibile e come fare per  indicare come criterio di
collegamento
sempre Catalogue_Release , ma con solo i primi quattro caratteri del
controllo ParCodiceCatalogo
caratteri Alfanumerici, il controllo ParCodiceCatalogo visualizza sempre un
valore di sei caratteri
Grazie anticipato
Giuseppe

 ha scritto nel messaggio
news:kw7nc.220925$rM4.9...@news4.tin.it...

Istruzione Left sull'help.
Ciao Nicola

 ha scritto nel messaggio
news:OP8nc.221348$rM4.9...@news4.tin.it...

Avevo già guardato sull'help  Left
solo che non riesco a metterlo in pratica
sulla mia istruzione ,
se qualcuno mi dà una indirizzata
Ciao Giuseppe

 ha scritto nel messaggio
news:2eonc.224429$rM4.9...@news4.tin.it...

Ciao Giuseppe.
Dividiamo il problema in 2:
1)ERRORE di sintassi.
     quello che hai scritto non può funzionare in quanto hai
      racchiuso tra "Vitgolette" anche la parte dinamica collegata alla
      form dalla quale prendere il valore.....!!!!
ERRATO:
    strCriteriCollegamento = "[Catalogue_Release] =
     Forms![AA_ApriliaCatalogo]![ParCodiceCatalogo]"
FORSE CORRETTO(Ma il campo Catalogue_Release è Numerico...??)
 strCriteriCollegamento = "[Catalogue_Release] = " & _
                 Forms![AA_ApriliaCatalogo]![ParCodiceCatalogo]
CORRETTO(E il campo di cui sopra è Testo e credo sia il tuo caso)
 strCriteriCollegamento = "[Catalogue_Release] = " & chr(34) & _
                     Forms![AA_ApriliaCatalogo]![ParCodiceCatalogo] &
chr(34)
2)Istruzione Left$ o Mid$ io prediligo Mid$
    Criterio4=Mid$(Forms![AA_ApriliaCatalogo]![ParCodiceCatalogo] ,1,4)
In questo caso però la corrispondenza è stretta, quindi probabilmente non
otterrai nulla come ritorno.
Poichè credo tu voglia una corrispondenza allargata devi usare LIKE come
operatore e non "=" in più forse ti conviene inserire "*" dopo l'estrazione
dei
primi 4 caratteri.
In pratica:
    Dim FullCrit as string
    Dim FourFirst as string
    FullCrit=Forms![AA_ApriliaCatalogo]![ParCodiceCatalogo]
    FourFirst =chr(34) & Mid$(FullCrit ,1,4) & "*" & chr(34)
    strCriteriCollegamento = "[Catalogue_Release] = " & FourFirst
Prova ora.
A parte averti scritto il codice spero di averti chiarito il concetto.
@Alex.


Grazie per il codice , ho provato ma con
Dim strmsg As String, strTitolo As String
    Dim intstile As Integer
    Dim strNomeDoc As String, strCriteriCollegamento As String
    strNomeDoc = "foto"
Dim FullCrit As String
Dim FourFirst As String
FullCrit = Forms![AA_ApriliaCatalogo]![ParCodiceCatalogo]
FourFirst = Chr(34) & Mid$(FullCrit, 1, 4) & "*" & Chr(34)
strCriteriCollegamento = "[Catalogue_Release] = " & FourFirst
 DoCmd.OpenForm strNomeDoc, , , strCriteriCollegamento
DoCmd.MoveSize (300 * 0.98), (70 * 2.98)
non funziona  , la maschera Foto non viene sincronizzata
Giuseppe

 Giuseppe
Non saprei cosa dirti io sono solito fare cosě e funziona.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG