[access] problema preview

[sanny82]

Sono ancora io adesso ho un altro prolema molto strano...
Quando sono nella maschera clicco su visualizza report, me lo fà vedere , ma non mi fa vedere quello ho scitto nella text;invece se quando ho l'anteprima del report clicco sul pulcante struttura e dopo di nuovo su quello dell'anteprima mi fà vedere anche i valori nelle text....
Perchè succede tutto questo????
Grazie mille

[raffaeu]

beh senza codice o sono un genio o non saprei proprio ... posta il codice prima, seno' io che ho letto ora il tuo tread non posso aiutarti ...

[sanny82]

Già scusa.Eccolo!

Private Sub Comando56_Click()
  
  'Apro la preview
    stDocName = "ReportProposteNuovo"
    DoCmd.OpenReport stDocName, acViewPreview
    
    
'Faccio lo splittaggio

lunghezza = Len(Report_ReportProposteNuovo.Testo27)
lunghezza = lunghezza - 1
stringa = Left(Report_ReportProposteNuovo.Testo27, lunghezza)
Dim ciccio() As String
ciccio = Split(stringa, "|")

Dim i As Integer 'se sono + di 32000 gli elementi dell'array usa il tipo long
For i = 0 To UBound(ciccio)

   Dim pippo() As String
pippo = Split(ciccio(i), "#")

Dim c As Integer 'se sono + di 32000 gli elementi dell'array usa il tipo long

For c = 0 To UBound(pippo)
  
'Scrivo nelle text se si verifica la condizione

If i = "0" Then
If c = "0" Then
Report_ReportProposteNuovo.Testo82.Value = pippo(c)
End If
If c = "1" Then
Report_ReportProposteNuovo.Testo85.Value = pippo(c)
End If
End If

If i = "1" Then
If c = "0" Then
Report_ReportProposteNuovo.Testo87.Value = pippo(c)
End If
If c = "1" Then
Report_ReportProposteNuovo.Testo89.Value = pippo(c)
End If
End If

If i = "2" Then
If c = "0" Then
Report_ReportProposteNuovo.Testo91.Value = pippo(c)
End If
If c = "1" Then
Report_ReportProposteNuovo.Testo92.Value = pippo(c)
End If
End If

If i = "3" Then
If c = "0" Then
Report_ReportProposteNuovo.Testo95.Value = pippo(c)
End If
If c = "1" Then
Report_ReportProposteNuovo.Testo96.Value = pippo(c)
End If
End If

Next c
Next i

End Sub

Grazie mille

[sanny82]

:quote: