Problema con una routine!

[lelle]

Ho una subroutine che si attiva sul click di un pulsante:
Il primo passo che mi occorre è verificare se il risultato di una query è nullo. La query del caso si chiama Verifica_data. Se questa data è presente mi compare un messaggio che dice Data presente e va subito alla fine dell'if cioè non mi esegue DoCmd.OpenQuery "tabella 1", .... , mentre se la data non c'è esegue DoCmd.OpenQuery "tabella 1",

Avete da darmi qualche utile e prezioso consiglio?
Grazie Lelle!



Private Sub CmdImport_Click()
DoCmd.OpenQuery "Verifica_data", acNormal, acEdit
If
DoCmd.OpenQuery "tabella 1", acNormal, acEdit
DoCmd.OpenQuery "tabella 2", acNormal, acEdit
DoCmd.Close acQuery, "AggiornaData"
Beep
Beep
MsgBox "Importazione riuscita", vbOKOnly, ""
End If
End Sub

[fiscet]

mi sembra che sia un tema riguardante access.
Se è così non mi sembra il metodo corretto per avere un affected row dalla query.
Penso che sia meglio utilizzare i metodi della DAO o meglio di ADO

[lelle]

Scusa la risposta in ritardo puoi indicarmi del materiale
Sono molto ma molto impreparato a riguardo!
Da giorni sto cercando di effettuare questa operazione cercando di utilizzare un recordset.
Quello che vorrei è:
1) Input box dove inserisco il valore.
2) Controllo se questo valore esiste (la query mi controlla se c'è questo dato)
3) Se il valore non esiste procedo ed eseguo una macro
4) se il valore esiste mi fermo ed esco dall'applicazione con un messaggio
Potete aitarmi a costruirla?
Grazie
Lelle

[fiscet]

ti spedisco una mail

[fiscet]

Private Function Esegui(ByVal Mioval As Integer)
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim NomeTabella As String

NomeTabella = "Anagrafica"

Set cn = CurrentProject.Connection

rs.Open NomeTabella, cn, 1
rs.Filter = "[ID]=" & Mioval

If rs.RecordCount = 0 Then
'docmd.runmacro "Nome della macro"
Else
MsgBox "Il valore c'era"
End If

cn.Close
rs.Close
End Function

Private Sub BtEsegui_Click() 'pulsante sul form
Dim valore As Integer

valore = InputBox("Inserisci un valore ...")

Esegui (valore)
End Sub