Buonasera a tutti,
vi chiedo un aiuto perchè non riesco a trovare soluzione a questo problema.
In una maschera che mi permette di creare dei records commesse, ho creato una casellacombinata353 di tipo elenco valori che su attivazione esegue questo codice:
Function updateCasellaCombinata3531()
'Dim valAttuale As String
'Dim valAttuale As Variant
'Dim esisteInNuovaLista As Boolean
' valAttuale = Form_Commessa!CasellaCombinata353.Value
' valAttuale = Replace(valAttuale, " ", "")
' esisteInNuovaLista = False
Dim strSql, tipiDisegno As String
Dim RS As Dao.Recordset
Dim db As Database
Dim arrayTipiDisegno() As String
Dim intCounter As Integer
'MsgBox intCounter
Set db = CurrentDb
strSql = "selmacchinacliente"
Set RS = db.OpenRecordset(strSql)
If RS.EOF Then
tipiDisegno = "A.B.C.D.E.F.G.H.LIB"
Else
If RS!dsTipoPremontaggio = "" Then
tipiDisegno = "A.B.C.D.E.F.G.H.LIB"
Else
tipiDisegno = RS!dsTipoPremontaggio
End If
End If
'MsgBox RS!dsTipoPremontaggio
tipiDisegno = Replace(tipiDisegno, ":", " .")
tipiDisegno = Replace(tipiDisegno, " . ", ".")
arrayTipiDisegno = Split(tipiDisegno, ".")
Do While Form_Commessa!CasellaCombinata353.ListCount > 0
Form_Commessa!CasellaCombinata353.RemoveItem (0)
Loop
Dim valArray As String
For intCounter = LBound(arrayTipiDisegno()) To UBound(arrayTipiDisegno())
valArray = arrayTipiDisegno(intCounter)
valArray = Replace(valArray, " ", "")
'If valArray = valAttuale Then
' esisteInNuovaLista = True
' End If
' MsgBox valArray
Next intCounter
' inserito oggi 2901 commento su 3 righe
'If Not esisteInNuovaLista Then
' MsgBox esisteInNuovaLista
' Form_Commessa!CasellaCombinata353.Value = ""
' End If
For intCounter = LBound(arrayTipiDisegno()) To UBound(arrayTipiDisegno())
Form_Commessa!CasellaCombinata353.AddItem (arrayTipiDisegno(intCounter))
Next intCounter
End Function
Va tutto bene in fase di variazione di record maschera.
In fase di creazione record quando arrivo sul campo casellacombinata353 e seleziono il valore dall'elenco mi dice che per apportare modifiche al campo è necessario salvare il record.
qualcuno mi può aiutare?
Grazie a tutti.
Giuseppe