Newsgroup: it.comp.appl.access
Titolo: codice che non so fare

buonasera a tutti voi
dovrei aggiornare un set di record in una tabella campo nome [Stam_Arc] 
checkbox
ho questo codice
Private Sub insert_Click()
On Error GoTo Err_Insert_Click
    Dim stDocName As String
    Dim strSQL As String
    stDocName = "Archivio_Pazienti"
    strSQL = strSQL & " id  >= '" & [a] & "' AND"
     strSQL = strSQL & " id  <= '" & [b] & "' "
 
    MsgBox strSQL
 
    DoCmd.OpenTable "Archivio_Pazienti", acViewNormal, acEdit
    DoCmd.ApplyFilter , strSQL
'con questo codice si apre la tabella con il set record di mio interesse
'adesso qui cosa dovrei scrivere per fare aggiornare il checkbox da false a 
true?
'grazie x l'aiuto
'Saluti
'Exit_Insert_Click:
    Exit Sub
 
Err_Insert_Click:
    MsgBox Err.Description
    Resume Exit_Insert_Click
End Sub 
 

 Private Sub insert_Click()
[..]
 
È più semplice eseguire una Update Query da codice.
 
Dim SQL As String
 
SQL="UPDATE Archivio_Pazienti "
SQL = SQL & "SET Archivio_Pazienti.StamArch = Yes "
SQL = SQL & "WHERE (((Archivio_Pazienti.ID)>=2 "
SQL = SQL & "And (Archivio_Pazienti.ID)<=4));"
 
CurrentDB.Execute SQL
 
Bruno

non funziona si blocca
CurrentDB.Execute SQL
cosa devo fare
 
"Danny"  ha scritto nel messaggio news:nd499j$4ud$1...@gioia.aioe.org...



Definire 'si blocca'

non aggiorna in set
va in debug
errore di run time
parametro insufficiente . previsto 2
 
"RobertoA"  ha scritto nel messaggio 
news:nd5i1d$dgk$1...@virtdiesel.mng.cu.mi.it...



Volevo dire, definire 'si blocca' in modo comprensibile
Porta pazienza ma se non ci indichi ESATTAMENTE e DETTAGLIATAMENTE cosa 
ti succede e poi cosa vorresti ti succedesse, le speranze di risolvere 
sono all'incirca zero
L'sql suggerita da Bruno e' perfettamente lecita
Ma e' aggiornabile 'sta tabella?
Se la apri in design, riesci a modificare il campo desiderato?
Non e' che l'mdb e' in read-only sulle proprieta' del file?
 

il una maschera ho un pulsante
dietro questo pulsante c'è il codice che ho inviato precedentemente
io vorrei che quando clicco il pulsante mi dovrebbe aggiornare il set che 
filtro
e checkbox si chiama Stam_Arc
che da false dovrebbe diventare true
se provo ad aggiornale manualmente la tabelle si aggiorna
se provo a fare una query di aggiornamento da query li aggiorna
con questo benedetto pulsante non funziona
grazie
 
Private Sub insert_Click()
On Error GoTo Err_Insert_Click
 
    Dim stDocName As String
    Dim strSQL As String
    Dim SQL As String
 
 
    stDocName = "Archivio_Pazienti"
   strSQL = strSQL & " id  >= '" & [a] & "' AND"
     strSQL = strSQL & " id  <= '" & [b] & "' "
'MsgBox strSQL
 
    'DoCmd.OpenTable "Archivio_Pazienti", acViewNormal, acEdit
    'DoCmd.ApplyFilter , strSQL
    SQL = "UPDATE Archivio_Pazienti "
SQL = SQL & "SET Archivio_Pazienti. Stam_Arc = Yes " '= True  '= True
SQL = SQL & strSQL
MsgBox SQL
 
 
CurrentDb.Execute SQL
 
 
"RobertoA"  ha scritto nel messaggio 
news:nd5q0m$l5o$1...@virtdiesel.mng.cu.mi.it...



Quando rispondi su un ng, devi proseguire SOTTO al testo della 
discussione, altrimenti se gli altri scrivono sotto e tu rispondi loro 
sopra, non si capisce una mazza
Quando dici "...se provo a fare una query di aggiornamento da query li 
aggiorna, con questo benedetto pulsante non funziona..." dovresti anche 
dirci l'errore o il messaggio che ti butta fuori quando 'non funziona'
Quando dici che la query di aggiornamento funziona cosa intendi esattamente?
Perche' per me la query di aggiornamebnto e'  CurrentDb.Execute SQL
 


quoto, cazzarola ! 
 
e figurete che io talvolta non capisco una mazza anche quando
è spiegato decentemente ... 
 
 

 cosa devo fare
 
Sicuramente ti manca qualcuna delle seguenti References:
 
- Visual Basic For Applications
- Microsoft Access 16.0 Object Library
- Microsoft Office 16.0 Access database engine Object Library
 
Bruno

 
 
"Bruno Campanini"  ha scritto nel messaggio 
news:nd6ddo$1bah$1...@gioia.aioe.org...

ho risolto con questo Codice che Allego
Grazie a tutti Voi
se gli date una controllata puo darsi che c'è qualcosa di troppo
però funziona
 
Private Sub insert_Click()
 
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim i As Boolean
Dim iCnt As Double
Dim intCount As Integer
Dim intRisp As String
 
Set db = CurrentDb
strSQL = "SELECT Archivio_Pazienti.* " _
        & "FROM Archivio_Pazienti " _
        & "WHERE Archivio_Pazienti.id Between " _
        & "'" & Me.a & "'" & " And " & "'" & Me.b & "'" & ";"
 
MsgBox strSQL
intCount = 1
Set rst = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
 
intSelect = partenza_a_scelta
 
Select Case intSelect
 
Case partenza_a_scelta
 
    intRisp = True
 
    i = intRisp
 
End Select
 
With rst
        Do Until .EOF
        .Edit
        iCnt = .RecordCount
        !Stam_Arc = (i)
        i = i
        .Update
        .MoveNext
        Me.Repaint
        intCount = intCount + 1
        Loop
MsgBox "Aggiornamento effettuato." & Chr(10) & Chr(13) & "Aggiornati n° " & 
iCnt & " record.", vbInformation + vbOKOnly
    .Close
    db.Close
    End With
 
Set rst = Nothing
Set db = Nothing
Me.Requery
 
End Sub