Discussion:
Controllo codice IBAN
(troppo vecchio per rispondere)
Giuseppe
2008-06-20 10:55:30 UTC
Salve a tutti ho cercato di implementare nella mia maschera
FrmAnagrafica la funzione di controllo codice IBAN che ho trovato
nella sezione moduli del sitocomune - 5.63 Funzione per verificare
l'esattezza di un codice IBAN.
Nella casella di testo dove digito il codice IBAN su evento
dopoaggiornamento ho inserito il codice

If fcBank_IBANChek(Testo0) = False Then
MsgBox "Codice Iban errato"
Cancel = True

End If
e mi dice errore di compilazione, argomento non facoltativo.
Se invece metto:

If fcBank_IBANChek_TEST(Testo0) = False Then
MsgBox "Codice Iban errrato"
Cancel = True

End If
dopo aver confermato i dati inseriti, prima mi esce un'avviso che il
codice Iban è giusto (anche se inserisco uno sbagliato), poi cliccando
su "ok", esce un'altro messaggio Il codice Iban non è corretto.
Motivazione: sono ammesse solo cifre e lettere maiuscole, e ancora
cliccando su OK continuano i messaggi.
Forse non ho ben capito come applicare la funzione. C'è qualcuno che
mi può spiegare?
Grazie.
Giuseppe.
MA
2008-06-20 11:04:39 UTC
Post by Giuseppe
Salve a tutti ho cercato di implementare nella mia maschera
FrmAnagrafica la funzione di controllo codice IBAN che ho trovato
nella sezione moduli del sitocomune - 5.63 Funzione per verificare
l'esattezza di un codice IBAN.
Nella casella di testo dove digito il codice IBAN su evento
dopoaggiornamento ho inserito il codice
If fcBank_IBANChek(Testo0) = False Then
MsgBox "Codice Iban errato"
Cancel = True
End If
e mi dice errore di compilazione, argomento non facoltativo.
la funzione
Function fcBank_IBANChek(pstrIBan As String, pstrMsg As String) As Boolean
vuole DUE argomenti e tu gliene passi uno solo
Post by Giuseppe
If fcBank_IBANChek_TEST(Testo0) = False Then
MsgBox "Codice Iban errrato"
Cancel = True
End If
dopo aver confermato i dati inseriti, prima mi esce un'avviso che il
codice Iban è giusto (anche se inserisco uno sbagliato), poi cliccando
su "ok", esce un'altro messaggio Il codice Iban non è corretto.
Motivazione: sono ammesse solo cifre e lettere maiuscole, e ancora
cliccando su OK continuano i messaggi.
Forse non ho ben capito come applicare la funzione. C'è qualcuno che
mi può spiegare?
Grazie.
Giuseppe.
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Giuseppe
2008-06-20 11:17:14 UTC
Post by Giuseppe
Post by Giuseppe
Salve a tutti ho cercato di implementare nella mia maschera
FrmAnagrafica la funzione di controllo codice IBAN che ho trovato
nella sezione moduli del sitocomune - 5.63 Funzione per verificare
l'esattezza di un codice IBAN.
Nella casella di testo dove digito il codice IBAN su evento
dopoaggiornamento ho inserito il codice
If fcBank_IBANChek(Testo0) = False Then
MsgBox "Codice Iban errato"
Cancel = True
End If
e mi dice errore di compilazione, argomento non facoltativo.
la funzione
Function fcBank_IBANChek(pstrIBan As String, pstrMsg As String) As Boolean
vuole DUE argomenti e tu gliene passi uno solo
Post by Giuseppe
If fcBank_IBANChek_TEST(Testo0) = False Then
MsgBox "Codice Iban errrato"
Cancel = True
End If
dopo aver confermato i dati inseriti, prima mi esce un'avviso che il
codice Iban è giusto (anche se inserisco uno sbagliato), poi cliccando
su "ok", esce un'altro messaggio Il codice Iban non è corretto.
Motivazione: sono ammesse solo cifre e lettere maiuscole, e ancora
cliccando su OK continuano i messaggi.
Forse non ho ben capito come applicare la funzione. C'è qualcuno che
mi può spiegare?
Grazie.
Giuseppe.
--
--
MAssimiliano Amendolawww.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Grazie per la risposta.
Devo fare così?
If fcBank_IBANChek_TEST(Testo0) = False Then
MsgBox "Codice Iban errrato"
Cancel = True

End If
If fcBank_IBANChek(Testo0) = False Then
MsgBox "Codice Iban errato"
Cancel = True

End If
End Sub
Scusa, ma non ho mai passato due argomenti. Potresti essere più
specifico?
Grazie. Ciao.
Giuseppe.
Sam --
2008-06-20 13:01:26 UTC
Post by Giuseppe
Salve a tutti ho cercato di implementare nella mia maschera
FrmAnagrafica la funzione di controllo codice IBAN che ho trovato
nella sezione moduli del sitocomune - 5.63 Funzione per verificare
l'esattezza di un codice IBAN.
Nella casella di testo dove digito il codice IBAN su evento
Guardando la funzione tu devi passare 2 argomenti,
fcBank_IBANChek(pstrIBan As String, pstrMsg As String) As Boolean
anche se non capisco il perchè di pstrMsg, visto che la function
ritorna un boolean.
Probabilmente la function originale in java (citataz
http://it.geocities.com/arodichevski/comp-iban-it.html)
prevedeva qualcos'altro.
Comunque l'uso è semplice
dim rc as boolean
rc = IBANChek( "564654646","")

nella funzione presente nel sito comune manca il controllo se la
stringa passata come Iban è maggiore dei 17 caratteri.


ciao
sam--
Giuseppe
2008-06-20 14:32:54 UTC
Post by Sam --
Post by Giuseppe
Salve a tutti ho cercato di implementare nella mia maschera
FrmAnagrafica la funzione di controllo codice IBAN che ho trovato
nella sezione moduli del sitocomune - 5.63 Funzione per verificare
l'esattezza di un codice IBAN.
Nella casella di testo dove digito il codice IBAN su evento
Guardando la funzione tu devi passare 2 argomenti,
fcBank_IBANChek(pstrIBan As String, pstrMsg As String) As Boolean
anche se non capisco il perchè di pstrMsg, visto che la function
ritorna un boolean.
Probabilmente la function originale in java (citatazhttp://it.geocities.com/arodichevski/comp-iban-it.html)
prevedeva qualcos'altro.
Comunque l'uso è semplice
dim rc as boolean
rc = IBANChek( "564654646","")
nella funzione presente nel sito comune manca il controllo se la
stringa passata come Iban è maggiore dei 17 caratteri.
ciao
sam--
Grazie anche a te per l'intervento.
Ma il codice
Post by Sam --
dim rc as boolean
rc = IBANChek( "564654646","")
dove lo metto?
Ho duplicato il file IBAN che ho scaricato dal sito comune. Ho creato
una maschera con una casella di testo non associata in cui digito il
codice IBAN da controllare.
Come faccio a far eseguire il controllo? Cosa devo mettere su evento
dopo aggiornamento?
Scusate, ma la doppia funzione non l'ho mai passata. Grazie ancora.
Giuseppe.
Sam --
2008-06-21 09:04:27 UTC
Post by Giuseppe
Post by Sam --
Post by Giuseppe
Salve a tutti ho cercato di implementare nella mia maschera
FrmAnagrafica la funzione di controllo codice IBAN che ho trovato
nella sezione moduli del sitocomune - 5.63 Funzione per verificare
l'esattezza di un codice IBAN.
Nella casella di testo dove digito il codice IBAN su evento
Guardando la funzione tu devi passare 2 argomenti,
fcBank_IBANChek(pstrIBan As String, pstrMsg As String) As Boolean
anche se non capisco il perchè di pstrMsg, visto che la function
ritorna un boolean.
Probabilmente la function originale in java (citatazhttp://it.geocities.com/arodichevski/comp-iban-it.html)
prevedeva qualcos'altro.
Comunque l'uso è semplice
dim rc as boolean
rc = IBANChek( "564654646","")
nella funzione presente nel sito comune manca il controllo se la
stringa passata come Iban è maggiore dei 17 caratteri.
ciao
sam--
Grazie anche a te per l'intervento.
Ma il codice
Post by Sam --
dim rc as boolean
rc = IBANChek( "564654646","")
dove lo metto?
Ho duplicato il file IBAN che ho scaricato dal sito comune. Ho creato
una maschera con una casella di testo non associata in cui digito il
codice IBAN da controllare.
Come faccio a far eseguire il controllo? Cosa devo mettere su evento
dopo aggiornamento?
Scusate, ma la doppia funzione non l'ho mai passata. Grazie ancora.
Giuseppe.
ipotizzando che la casella di testo si chiami Testo0
nell'evento scrivi:
Private Sub Testo0_BeforeUpdate(Cancel As Integer)
Dim rc As Boolean
Dim mgs As String
rc = fcBank_IBANChek(Me.Testo0.Text, "")
If rc = False Then
msg = "Il codice " & Testo0.Text & " non è valido"
MsgBox msg, vbCritical, "title"
Exit Sub
End If
End Sub

chiaramente la function fcBank_IBANChek è messa da qualche parte.
o nella form, o definita pubblica in un modulo.

ciao sam--
Luciano Bastianello
2008-06-21 14:24:33 UTC
Magari il mio esempio può aiutare
Calcolo Cin BBAN IBAN per VBA / VB6
http://community.visual-basic.it/lucianob/archive/2007/12/15/21393.aspx
--
-----------------------------------------------------------------
Luciano Bastianello - MBS CP Navision Development
Software Consultant - Apprentice Sorcerer
MSN: ***@hotmail.com - ICQ: 209754422
http://community.visual-basic.it/LucianoB/
-----------------------------------------------------------------
Post by Sam --
Post by Giuseppe
Post by Sam --
Post by Giuseppe
Salve a tutti ho cercato di implementare nella mia maschera
FrmAnagrafica la funzione di controllo codice IBAN che ho trovato
nella sezione moduli del sitocomune - 5.63 Funzione per verificare
l'esattezza di un codice IBAN.
Nella casella di testo dove digito il codice IBAN su evento
Guardando la funzione tu devi passare 2 argomenti,
fcBank_IBANChek(pstrIBan As String, pstrMsg As String) As Boolean
anche se non capisco il perchè di pstrMsg, visto che la function
ritorna un boolean.
Probabilmente la function originale in java
(citatazhttp://it.geocities.com/arodichevski/comp-iban-it.html)
prevedeva qualcos'altro.
Comunque l'uso è semplice
dim rc as boolean
rc = IBANChek( "564654646","")
nella funzione presente nel sito comune manca il controllo se la
stringa passata come Iban è maggiore dei 17 caratteri.
ciao
sam--
Grazie anche a te per l'intervento.
Ma il codice
Post by Sam --
dim rc as boolean
rc = IBANChek( "564654646","")
dove lo metto?
Ho duplicato il file IBAN che ho scaricato dal sito comune. Ho creato
una maschera con una casella di testo non associata in cui digito il
codice IBAN da controllare.
Come faccio a far eseguire il controllo? Cosa devo mettere su evento
dopo aggiornamento?
Scusate, ma la doppia funzione non l'ho mai passata. Grazie ancora.
Giuseppe.
ipotizzando che la casella di testo si chiami Testo0
Private Sub Testo0_BeforeUpdate(Cancel As Integer)
Dim rc As Boolean
Dim mgs As String
rc = fcBank_IBANChek(Me.Testo0.Text, "")
If rc = False Then
msg = "Il codice " & Testo0.Text & " non è valido"
MsgBox msg, vbCritical, "title"
Exit Sub
End If
End Sub
chiaramente la function fcBank_IBANChek è messa da qualche parte.
o nella form, o definita pubblica in un modulo.
ciao sam--
Giuseppe
2008-06-23 14:09:04 UTC
Post by Sam --
Post by Giuseppe
Post by Sam --
Post by Giuseppe
Salve a tutti ho cercato di implementare nella mia maschera
FrmAnagrafica la funzione di controllo codice IBAN che ho trovato
nella sezione moduli del sitocomune - 5.63 Funzione per verificare
l'esattezza di un codice IBAN.
Nella casella di testo dove digito il codice IBAN su evento
Guardando la funzione tu devi passare 2 argomenti,
fcBank_IBANChek(pstrIBan As String, pstrMsg As String) As Boolean
anche se non capisco il perchè di pstrMsg, visto che la function
ritorna un boolean.
Probabilmente la function originale in java (citatazhttp://it.geocities.com/arodichevski/comp-iban-it.html)
prevedeva qualcos'altro.
Comunque l'uso è semplice
dim rc as boolean
rc = IBANChek( "564654646","")
nella funzione presente nel sito comune manca il controllo se la
stringa passata come Iban è maggiore dei 17 caratteri.
ciao
sam--
Grazie anche a te per l'intervento.
Ma il codice
Post by Sam --
dim rc as boolean
rc = IBANChek( "564654646","")
dove lo metto?
Ho duplicato il file IBAN che ho scaricato dal sito comune. Ho creato
una maschera con una casella di testo non associata in cui digito il
codice IBAN da controllare.
Come faccio a far eseguire il controllo? Cosa devo mettere su evento
dopo aggiornamento?
Scusate, ma la doppia funzione non l'ho mai passata. Grazie ancora.
Giuseppe.
ipotizzando che la casella di testo si chiami Testo0
Private Sub Testo0_BeforeUpdate(Cancel As Integer)
Dim rc As Boolean
Dim mgs As String
rc = fcBank_IBANChek(Me.Testo0.Text, "")
If rc = False Then
msg = "Il codice " & Testo0.Text & " non è valido"
MsgBox msg, vbCritical, "title"
Exit Sub
End If
End Sub
chiaramente la function fcBank_IBANChek è messa da qualche parte.
o nella form, o definita pubblica in un modulo.
ciao sam--
Tutto a posto. Funziona.
Grazie. Ciao.