Controllo codice IBAN

Discussione:

(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.

2008-06-20 11:04:39 UTC

Permalink

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

Permalink

Post by Giuseppe

la funzione
Function fcBank_IBANChek(pstrIBan As String, pstrMsg As String) As Boolean
vuole DUE argomenti e tu gliene passi uno solo

--
--
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

Permalink

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

Permalink

Post by Sam --

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

Permalink

Post by Giuseppe

Post by Sam --

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","")

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

Permalink

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 --

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","")

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

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","")

Tutto a posto. Funziona.
Grazie. Ciao.