Newsgroup: it.comp.appl.access
Titolo: Posizionamento su record corretto + verifica esistenza record

Salve,
Ho una maschera (tabulare) con una serie di richieste di interventi su
impianti dei clienti.
Su ogni riga ho messo un pulsante che consente di aprire una maschera
che indica i lavori necessari da fare a fronte di quell'intervento con
il seg. codice (su click):
(La maschera di "di origine " è [Chiamate - calendario] la maschera
che la procedura apre è [Segnalazioni lavori - nuova da chiamate])
Dim rst As DAO.Recordset
Dim stLinkCriteria As String
Set rst = CurrentDb.OpenRecordset("Segnalazioni lavori")
    rst.AddNew
    rst.Fields("COD_IMP").Value = [Forms]![Chiamate -
calendario]![COD_IMP]
    rst.Update
    DoCmd.OpenForm "Segnalazioni lavori - nuova da chiamate"
    Set rst = Nothing
End If
Il tutto funziona ma ho 2 problemi che non riesco a risolvere:
1) se faccio "n" volte click sul pulsante la procedura ovviamente mi
crea "n" record per quell'intervento: 
come posso verificare che per quella data e per quell'impianto
([COD_IMP]) non ci sia già un record e eventualmente aprirlo
direttamente?
2) all'apertura della maschera non riesco a posizionarmi sul record
corrispondente alla maschera tabulare di origine (non riesco a
scrivere correttamente la where sul cmd openform che indichi due
condizioni: la data - corrispondente alla data della maschera"origine"
- e il codice dell'impianto)
Spero di essere stato chiaro e non troppo prolisso.
Grazie
Sandro



Chiedo scusa, mi sono "impicciato" con il copia-incolla:
il codice completo è il seguente
Dim rst As DAO.Recordset
Dim stLinkCriteria As String
Set rst = CurrentDb.OpenRecordset("Segnalazioni lavori")
    rst.AddNew
    rst.Fields("COD_IMP").Value = [Forms]![Chiamate -
calendario]![COD_IMP]  
    rst.Fields("Data").Value = [Forms]![Chiamate - calendario]![Data
richiesta intervento]
    rst.Update
    DoCmd.OpenForm "Segnalazioni lavori - nuova da chiamate", acNormal
    'DoCmd.GoToRecord , , acLast
    Set rst = Nothing
End If
(nel record che creo mi riporto la data indicata nella maschera
"origine")

 Sandro
Ciao.
-- 
Sergio MAZZA 

 wrote:
 (...) 
Mi permetto di perfezionare i suggerimenti di Sergio al fine di
evitare problemi derivanti dal formato di memorizzazione delle date:
If DCount("*","Segnalazioni lavori","[nomeCampoData]=#" &
Format$(me!campoData;"mm-dd-yyyy") & "# 
And [cod_imp]=" & me![cod_imp])>0 then
    msgbox "ci sono"
else
    msgbox "non ci sono"
endif
DoCmd.OpenForm "Segnalazioni lavori - nuova da
chiamate",,,"[campoData]=#" & 
Format$(me!campoData,"mm-dd-yyyy") & "# And [cod_imp]=" & me![cod_imp]
Vincenzo Turturro 
Certificato Eucip Core Level 
ITA 0000-002299 del 14/05/2007 
--------------------------------------------- 
il sito comune di it.comp.appl.access: 
http://www.sitocomune.com
 
--------------------------------------------- 
risorse Access: 
http://www.accessgroup.it
 
--------------------------------------------- 
Il sito comune di it.comp.as400 
http://www.faq400.com
 
---------------------------------------------

"VT @ Work" <V...@Work.it> ha scritto nel messaggio 
news:46a8736d...@firewall.regione.toscana.it...

Grazie Vincenzo; non mi ricordo mai se serve o no...
Ciao.
-- 
Sergio MAZZA 

Grazie infinite a Sergio e Vincenzo...

Sergio MAZZA 
