VBA per un database con access
Ciao a tutti,
vi spiego, sto facendo per fini scolastici un database per la gestione di un canile.
L'ho completato ho inserito:tabelle,relazioni,query,maschere,report e macro
Ma mi manca il VBA, c'è qualcuno che può aiutarmi?
é un database fatto per l'utente esterno, ma non mi viene idea di cosa possa eseguire il vba...
Non so cosa fare.. qualche idea?
Grazie in anticipo
vi spiego, sto facendo per fini scolastici un database per la gestione di un canile.
L'ho completato ho inserito:tabelle,relazioni,query,maschere,report e macro
Ma mi manca il VBA, c'è qualcuno che può aiutarmi?

é un database fatto per l'utente esterno, ma non mi viene idea di cosa possa eseguire il vba...
Non so cosa fare.. qualche idea?

Grazie in anticipo

Risposte
Ho creato una nuova tabella clienti con i seguenti campi:
ID clienti(che è un codice che riprende le prime 2 lettere del nome e le prime 3 del cognome);Nome;Cognome e Cellulare
e una maschera di lettura,
sulla maschera ho creato il vba.
Ho aperto la maschera in modalità struttura,ho selezionato cognome,proprietà;Dopo aggiornamento ho selezionato Routine evento, e poi ho scritto il seguente codice vba:
Option Compare Database
Private Sub Cognome_AfterUpdate()
Dim sCognome As String
Dim sNome As String
Dim sIDCliente As String
sCognome = Forms!Clienti.Cognome
sNome = Forms!Clienti!Nome
sIDCliente = Left(sCognome, 3) & Left(sNome, 2)
sIDCliente = UCase(sIDCliente)
If Len(sIDCliente) = 5 Then
If Nz(Forms!Clienti!IDCliente, "") = "" Then
Forms!Clienti!IDCliente = sIDCliente
End If
End If
End Sub
Ma mi da problemi,perchè alla chiusura del vba,e all'apertura della maschera dovrei riuscire ad inserire un nuovo record con nome cognome e cellulare e mi dovrebbe assegnare automaticamnete l'id, perchè non mi riesce?
ID clienti(che è un codice che riprende le prime 2 lettere del nome e le prime 3 del cognome);Nome;Cognome e Cellulare
e una maschera di lettura,
sulla maschera ho creato il vba.
Ho aperto la maschera in modalità struttura,ho selezionato cognome,proprietà;Dopo aggiornamento ho selezionato Routine evento, e poi ho scritto il seguente codice vba:
Option Compare Database
Private Sub Cognome_AfterUpdate()
Dim sCognome As String
Dim sNome As String
Dim sIDCliente As String
sCognome = Forms!Clienti.Cognome
sNome = Forms!Clienti!Nome
sIDCliente = Left(sCognome, 3) & Left(sNome, 2)
sIDCliente = UCase(sIDCliente)
If Len(sIDCliente) = 5 Then
If Nz(Forms!Clienti!IDCliente, "") = "" Then
Forms!Clienti!IDCliente = sIDCliente
End If
End If
End Sub
Ma mi da problemi,perchè alla chiusura del vba,e all'apertura della maschera dovrei riuscire ad inserire un nuovo record con nome cognome e cellulare e mi dovrebbe assegnare automaticamnete l'id, perchè non mi riesce?
