Newsgroup: it.comp.appl.access
Titolo: codice fiscale uguale a partita iva

Salve a tutti.
Ho una maschera di inserimento anagrafica con i campi PartitaIva e
Codicefiscale.
Ad entrambi ho applicato le funzioni di controllo presenti sul sito
comune.
Per il codice fiscale:
If CheckCodFiscale(Codfisc) = False Then
MsgBox "Codice Fiscale errato"
 Cancel = True
End If
Per la partita Iva:
If CheckPartitaIva(partitaiva) = False Then
   MsgBox "Partita Iva errata"
  Cancel = True
End If
Il problema è che se inserisco il codice fiscale di una società che
non è quello a 16 caratteri alfanumerici ma è di 11 cifre e non è
detto che sia uguale alla partita Iva, mi dà codice fiscale errato e
non mi permette di inserirlo.
Come posso integrare il doppio controllo?
Grazie. Ciao.

 ha scritto nel messaggio 
news:f683375a-d914-4329...@c58g2000hsc.googlegroups.com...


Dalla lunghezza del testo:
if len(me.miotesto) > 11 then
'codice fiscale
else
'partita Iva
end if
A secoda dei casi applicherai o meno il controllo...
cioa, Carlo

 ha scritto nel messaggionews:f683375a-d914-4329...@c58g2000hsc.googlegroups.com...

Scusa il ritardo, ma sono stato fuori.
Ho fatto così e funziona :
Private Sub codfisc_BeforeUpdate(Cancel As Integer)
If Len(Me.Codfisc) > 11 Then
If CheckCodFiscale(Codfisc) = False Then
MsgBox "Codice Fiscale errato"
 Cancel = True
End If
Else
If CheckPartitaIva(Codfisc) = False Then
   MsgBox "Partita Iva errata"
  Cancel = True
End If
End If
End Sub
ma se la partita iva o codice fiscale fornitomi sono errati e non
riesco al momento a farmi dire quelli esatti mi dà errore di runtime
'94 e non mi fa confermare il resto dei dati inseriti. Cos'altro
bisogna aggiungere per poter omettere questo campo nel caso di dati
errati?
Inoltre mi sarebbe utile nel caso di partita iva e codice fiscale
uguali andare  avanti con tab su codice fiscale e ricevere la
richiesta "codice fiscale uguale alla partita iva?" e rispondendo sì
mi copia il valore del campo partita iva.
Mi date qualche dritta. Grazie.

 ha scritto
Scusa il ritardo, ma sono stato fuori.
[cut...]
ma se la partita iva o codice fiscale fornitomi sono errati e non
riesco al momento a farmi dire quelli esatti mi dà errore di runtime
'94 e non mi fa confermare il resto dei dati inseriti. Cos'altro
bisogna aggiungere per poter omettere questo campo nel caso di dati
errati?
Inoltre mi sarebbe utile nel caso di partita iva e codice fiscale
uguali andare  avanti con tab su codice fiscale e ricevere la
richiesta "codice fiscale uguale alla partita iva?" e rispondendo sì
mi copia il valore del campo partita iva.
Mi date qualche dritta. Grazie.
------------Risposta---------------
Ti consiglio di approfondire questi argomenti sulla guida, in particolare le 
proprietà di evento dei controlli.
Una strada (pappa pronta):
Private Sub codfisc_GotFocus()
If isnull(me.codfisc) or me.codfisc = "" then
dim msg as integer
msg = msgbox("CF uguale alla PIva?",vbyesno,"CF = Piva")
if msg = 6 then
me.codfisc = Me.PIva '(controlla il nome del controllo)
else
exit sub
end if
end if
End Sub
Private Sub codfisc_BeforeUpdate(Cancel As Integer)
If isnull(me.codfisc) or me.codfisc = "" then
cancel = false
exit sub
end if
dim msg as integer
If Len(Me.Codfisc) > 11 Then
    If CheckCodFiscale(Codfisc) = False Then
    msg = msgbox("Codice Fiscale errato. Proseguire ugualmente?",vbyesno,"CF 
errato")
        if msg = 6 then
        cancel = false
        exit sub
        else
        cancel = true
        exit sub
        end if
    else
    cancel = false
    exit sub
    end if
Else
If CheckPartitaIva(Codfisc) = False Then
   msg = msgbox("Partita IVA errata. Proseguire ugualmente?",vbyesno,"PIva 
errata")
    if msg = 6 then
        cancel = false
        exit sub
        else
        cancel = true
        exit sub
        end if
else
cancel = false
exit sub
End If
End If
End Sub
Ciao, Carlo 

 ha scritto

Ciao Carlo. Grazie per le risposte (pappa pronta).
Certo sono comode ma non  pretese. Sicuramente è più soddisfacente
riuscirci da soli.
Infatti ero riuscito a farmi porre la domanda se copiare il valore
della partita Iva nel codice fiscale riuscendoci ma senza la
possibilità di rispondere si o no.
E guardando la tua soluzione non ci sarei arrivato da solo.
Cmq c'è un'altra piccolissima cosa che non va e che vorrei risolvere
avvalendomi ed adattando la tua soluzione. E' che se la partita iva è
vuota, soprattutto se si tratta di persona fisica è matematico, la
domanda se copiare o no, non me la deve porre.
Cerco di farcela da solo, altrimenti posto il codice che ho pensato
andasse bene eppoi chiedo a te e al newsgroup consigli per renderlo
efficace.
Grazie ancora.
Giuseppe.