Il Texano

Codice: Seleziona tutto

Sub test()


Dim DBCorrente As DAO.Database
Dim Tabella As DAO.Recordset
Dim Parte(1 To 5) As String
Dim Contatore
Dim valore
Dim i, app
Dim z
valore = 0
z = 1
'Apertura DB
Set DBCorrente = CurrentDb

'Apertura tabella
Set Tabella = DBCorrente.openrecordset("STR Soci", DBopendynaset)

app = Tabella.Fields("ccp") 'definisco una variabile di appoggio per il campo ccp
'Lettura dati
Do Until Tabella.EOF
    Contatore = Contatore + 1
    If Contatore = 10 Then
          Contatore = 1
    End If

    If app = Tabella.Fields("ccp") Then
        If IsNull(Tabella.Fields("progr")) Then
            i = i + 1
            z = 1
         Else: i = 0
            app = Tabella.Fields("ccp")
            z = 1
         End If
   Else: app = Tabella.Fields("ccp")
   i = 0
   z = 0
   End If
   If z = "1" Then
    Parte(1) = Tabella.Fields("CCP") 'prima parte codice Campo CCP
    Parte(2) = Format(i, "000000")        'da definire Progressivo
    Parte(3) = 321 'da definire Con
    Parte(4) = Format(valore, "000")    'numfut
    Parte(5) = Contatore 'numero di controllo

    'inserisco il codice
    Tabella.Edit
    Tabella.Fields("CodTessera") = Parte(1) & Parte(2) & Parte(3) & Parte(4) & Parte(5)
    Tabella.Update
    'vai al dato successivo
    Tabella.MoveNext
    Else
    End If
Loop


'Chiusura tabella
Tabella.Close
'Chiusura DB
DBCorrente.Close


End Sub

Codice: Seleziona tutto

Sub test()


Dim DBCorrente As DAO.Database
Dim Tabella As DAO.Recordset
Dim Parte(1 To 5) As String
Dim Contatore
Dim valore
Dim i, app
Dim z
Dim appfunz
valore = 0
z = 1
i = 1234

'Apertura DB
Set DBCorrente = CurrentDb

'Apertura tabella
Set Tabella = DBCorrente.openrecordset("STR Soci", DBopendynaset)

app = Tabella.Fields("ccp") 'definisco una variabile di appoggio per il campo ccp
'Lettura dati
Do Until Tabella.EOF
    
If IsNull(Tabella.Fields("ccp")) Then
    z = 0
    Tabella.MoveNext
   
    Else
        If Tabella.Fields("ccp") = "049" Or Tabella.Fields("ccp") = "024" Or Tabella.Fields("ccp") = "097" Or Tabella.Fields("ccp") = "205" Then
        z = 1
        i = Tabella.Fields("progr")
        'tabella.MoveNext
        Else
            If app = Tabella.Fields("ccp") Then
            If IsNull(Tabella.Fields("progr")) Then
            i = i + 1
            z = 1 'questo è uno switch per capire se deve scrivere o meno
         Else:
            'app = Tabella.Fields("ccp")
            'z = 1 'questo è uno switch per capire se deve scrivere o meno
            'i = Tabella.Fields("progr")
         End If
   Else: app = Tabella.Fields("ccp")
   i = 1234
   z = 0
   End If
End If

End If
   If z = "1" Then
    Parte(1) = Tabella.Fields("CCP") 'prima parte codice Campo CCP
        
    Parte(2) = Format(i, "0000000")        'da definire Progressivo
    
    Parte(4) = Format(valore, "0")    'numfut
    
   ' Call fSumChar(Parte(1))
    'appfunz = fSumChar(Parte(1))
    'call fSumChar(Parte(2))
    
    appfunz = fSumChar(Parte(1)) + fSumChar(Parte(2)) 'numero di controllo
    Parte(5) = CByte(Right$(appfunz & "", 1))
    'inserisco il codice
    Tabella.Edit
    Tabella.Fields("CodTessera") = Parte(1) & Parte(2) & Parte(4) & Parte(5)
    Tabella.Update
    'vai al dato successivo
    Tabella.MoveNext
    Else
    End If
Loop


'Chiusura tabella
Tabella.Close
'Chiusura DB
DBCorrente.Close


End Sub

Function fSumChar(varNum As Variant) As Long
    Dim strNum  As String
    Dim iCount  As Integer
    Dim iLen    As Integer
    Dim lSum    As Long
    If Fix(varNum) <> varNum Then
        'MsgBox "NUMERO DECIMALE non valido", vbCritical, "AVVISO"
        'fSumChar = 0
        'Exit Function
    End If
    strNum = CLng(varNum) & ""
    iLen = Len(strNum)
    For iCount = 1 To iLen
        lSum = lSum + CByte(Mid$(strNum, iCount, 1))
    Next
    fSumChar = lSum
    
End Function