Ciao Raga,
ho scritto in fretta del codice vb per un'applicazioncina access, ed ora mi trovo nei casini.
faccio eseguire una ricerca
Dim rs As Object
Set rs = Me.Recordset.Clone
rice = Form_Maschera2.CasellaCombinata64.Value
rs.FindFirst "[codparr] = '" & rice & "'"
If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Else
MsgBox "record inesistente", vbCritical
End If
If IsNull(Form_Maschera.codparr.Value) Then
MsgBox "Questionario non compilato", vbInformation
Else
Form_Maschera.Pagina611.Enabled = True
Form_Maschera.Pagina612.Enabled = True
Form_Maschera.Pagina613.Enabled = True
Form_Maschera.Pagina611.SetFocus
Form_Maschera.Modifica.Enabled = False
Form_Maschera.Comando800.Enabled = False
Form_Maschera.Comando834.Enabled = True
Form_Maschera.Comando827.Enabled = False
'Controllo
Form_Maschera.Comando797.Enabled = True
Form_Maschera.SetFocus
Form_Maschera.Filter = "codparr = '" & codparr & "'"
Form_Maschera.FilterOn = True
Form_Maschera.AllowAdditions = False
End If
set rs = nothing
Poi faccio fare un inserimento
Form_Maschera2.CasellaCombinata64.SetFocus
Form_Maschera.AllowAdditions = True
If IsNull(Form_Maschera2.CasellaCombinata64.Value) Then
MsgBox "Scegli una parrocchia", vbQuestion
Else
'variabile per l'istruzione sql
Dim strSql As String
Dim parr As String
parr = Form_Maschera2.CODICE_PARROCCHIA.Value
strSql = "SELECT Tabellone.codparr FROM Tabellone WHERE Tabellone.codparr = '" & parr & "'"
Dim RecDati As New ADODB.Recordset
'tipo apertura del recordset
RecDati.LockType = adLockOptimistic
RecDati.CursorType = adOpenDynamic
RecDati.CursorLocation = adUseClient
'eseguo la query
RecDati.Open strSql, CurrentProject.Connection
'verifico che l'oggetto recordset ha un record
If RecDati.RecordCount > 0 Then
MsgBox "Questionario già compilato !!!", vbCritical
Else
Form_Maschera.Pagina611.Enabled = True
Form_Maschera.Pagina612.Enabled = True
Form_Maschera.Pagina613.Enabled = True
Form_Maschera.Comando800.SetFocus
Form_Maschera.Filter = ""
Form_Maschera.FilterOn = False
DoCmd.GoToRecord , , acNewRec ''''''' erorre ''''''' Form_Maschera.Testo629.Value = Form_Maschera2.CODICE_PARROCCHIA.Value
Form_Maschera.Testo806.Value = Form_Maschera2.NOME_PARROCCHIA.Value
Form_Maschera.Testo808.Value = Form_Maschera2.NOME_DIOCESI.Value
Form_Maschera.Pagina611.SetFocus
Form_Maschera.Comando800.Enabled = False
Form_Maschera.Comando834.Enabled = True
Form_Maschera.Comando827.Enabled = False
Form_Maschera.Comando797.Enabled = True
Form_Maschera.Filter = "codparr = '" & codparr & "'"
Form_Maschera.FilterOn = True
Form_Maschera.AllowAdditions = False
End If
Set RecDati = Nothing
Funziona tutto bene, ma se l'utente esegue una ricerca 2 volte prima di richiedere l'inseirmneto mi da l'errore di run-time 2105 alla riga in grassetto.
le due funzioni vengono avviate con due pulasanti differenti
