EMM 1997 INDIETRO
Macro Access per avere la maschera di figura. L'evento click del pulsante S� valorizza il campo S�/No ed esegue la requesry in modo che la sottomaschera presenti solo i valori marcati con no. 
Private Sub cas_Categoria_AfterUpdate()
  SelezionaCarta.Requery
End Sub

Private Sub cas_Serie_AfterUpdate()
  SelezionaCarta.Requery
End Sub
Private Sub btn_si_Click()
Dim varItem As Variant, _
    varData As Variant, _
    strBookmark As String

With SelezionaCarta
 For Each varItem In .ItemsSelected
   varData = .ItemData(varItem) + 1
   CurrentDb.Execute _
     "UPDATE Elenco_CELO SET Elenco_CELO.CELO = " & varData & " " & _
     "WHERE Elenco_CELO.ID = " & .Column(0, varItem) & "; "
   .Requery
   .Selected(varItem) = True
 Next
 End With
SelezionaCarta.SetFocus
End Sub 
' Crea la cartella WEB nella stessa cartella dell'archivio.
' Se esiste esce.
Public Function Imposta_Dir()
On Error GoTo infoerr
    Dim db As Database
    Dim path As String
    
    Set db = CurrentDb()
    path = db.Name
    ChDir (Left(path, Len(path) - Len("Docile23.mdb")))
    Let path = CurDir + "\web"
    MsgBox "Vado a creare la cartella:" + path, vbInformation, "Impostazione"
    MkDir (path)
    MsgBox "Esecuzione terminata con successo", vbInformation, "Impostazioni"
Exit Function

infoerr:
    If Err.Number = 75 Then
        MsgBox "Esiste gi� una cartella ""web""! Esecuzione abortita", vbCritical, "ERRORE"
    Else
        MsgBox Err.Description, vbCritical, str(Err.Number)
    End If
    Exit Function
Hosted by www.Geocities.ws

1