Newsgroup: it.comp.appl.access
Titolo: Problema di sincronizzazione

Ciao a Tutti
Ho questo problema : in una maschera ho un pulsante che mi apre una
maschera popup e mi sincronizza le due , solo che se nella maschera popup
che apro non c'č un valore che permette la sincronizzazione , la maschera
stessa
si blocca , ora il codice per aprire la maschera č questo.
Dim intNuovo As Integer
Dim intStile As Integer
Dim strNomeDoc As String, strCriteriCollegamento As String
Dim IntFinestraMsg
strNomeDoc = "foto"
If strCriteriCollegamento = "[CodiceCatalogo] =
Forms![AA_ApriliaCatalogo]![CodiceCatalogo]" = True Then
strCriteriCollegamento = "[CodiceCatalogo] =
Forms![AA_ApriliaCatalogo]![CodiceCatalogo]"
DoCmd.OpenForm strNomeDoc, , , strCriteriCollegamento
DoCmd.MoveSize (300 * 0.98), (70 * 2.98)
 Else:
strTitolo = "              Informazione "
StrMsg = " Foto momentaneamente non disponibili  "
 IntFinestraMsg = vbOKOnly
 intNuovo = MsgBox(StrMsg, IntFinestraMsg, strTitolo)
End if
Il valore del controllo CodiceCatalogo č quello che permette la
sincronizzazione .
se il valore non č uguale in entrambi i controlli mi dovrebbe apparire il
messaggio.
Solo che non funziona cosě come ho fatto.
Una mano per favore
Ciao Giuseppe

 Ciao Giuseppe
Non mi è proprio chiaro cosa tu voglia fare, ma ci sono due cose che a mio
avviso hanno veramente poco senso:
1) che significati ha i due segni di uguale nella If:
If strCriteriCollegamento = "[CodiceCatalogo] =
Forms![AA_ApriliaCatalogo]![CodiceCatalogo]" = True Then
penso che tu voglia scrivere:
If strCriteriCollegamento = "[CodiceCatalogo] =
Forms![AA_ApriliaCatalogo]![CodiceCatalogo]" Then
2) Non vedo alcuna riga di codice prima della If che imposti alcun valore
nella variabile strCriteriCollegamento, ed allora che significato ha
chiedersi con una If quale sia il suo valore visto che non può essere che
una stringa vuota.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


Il problema sta proprio nell'inserire del codice nella variabile ,
praticamente
devo dire  , se il valore del controllo nelle due maschere è lo stesso
effettua
il collegamento , altrimenti   messaggio,
nonostante la buona volontà ,non ci riesco, se mi puoi dare  una  mano
te ne sono grato .
Ciao Giuseppe

 Ciao Giuseppe


 ha scritto nel messaggio
news:eWsOd.24361$lB4.6...@twister1.libero.it...

Ciao Roberto
scusa ma ho avuto dei problemi  non ho potuto rispondere prima
Cerco di spiegare il mio problema
Ho una Maschera "AA_ApriliaCatalogo", con un controllo CodiceCatalogo  più
un pulsante per aprire  una maschera popup  "Foto" .
In base al valore del controllo CodiceCatalogo la maschera popup si
sincronizza e
mi visualizza la foto appropriata , con questa istruzione :
Private Sub Comando7_Click()
 Dim strNomeDoc As String, strCriteriCollegamento As String
 strNomeDoc = "foto"
 strCriteriCollegamento = "[CodiceCatalogo] =
Forms![AA_ApriliaCatalogo]![CodiceCatalogo]"
  DoCmd.OpenForm strNomeDoc, , , strCriteriCollegamento
 DoCmd.MoveSize (300 * 0.98), (70 * 2.98)
Fin qui bene .
Il problema sorge se cliccando sul pulsante per aprire la popup "Foto"  il
valore preso dal controllo CodiceCatalogo non trova un corrispondente nella
Popup,
in poche parole non avviene la sincronizzazione e la maschera si blocca .
Praticamente vorrei che all' apertura o prima dell'apertura  della maschera
popup , se non avviene
la sincronizzazione perchè non  trova  un valore corrispondente  , compaia
un
messaggio  tipo "Immagine non disponibile"  e finito lì .
Spero essermi fatto comprendere,
Ciao Giuseppe

 ha scritto nel messaggio
news:bqNOd.869578$35.33...@news4.tin.it...

Con una DCount (vedi help) verifica se nella tabella origine record della
mascgera foto esiste un record che nel campo CodiceCatalogo abbia il valore
contenuto nella casella di testo
Forms![AA_ApriliaCatalogo]![CodiceCatalogo]; se la funzione DCount ti
restituisce il valore zero significa che il record non esiste, nel qual caso
non apri la maschera foto, ma invii un messaggio all'utilizzatore con una
MsgBox.
