[VB6] split particolare

[beppenet]

il fatto è che txtGgDataEmis = Day(txtDataEmis) da errore solo se inserisco quel loop che riempie la combo perchè txtDataEmis risulta poi essere vuoto...non so se vi è kiaro...speriamo

	Set cmbIdComR.DataSource = rs
        cmbIdComR.DataField = "commessa"
        
   
    'Riempio la ComboBox della Commessa di Riferimento
    Do Until rs.EOF
       cmbIdComR.AddItem rs("commessa")
        rs.MoveNext
    Loop
   

Private Sub txtDataEmis_Change()

    txtGgDataEmis = Day(txtDataEmis)
    txtMmDataEmis = Month(txtDataEmis)
    txtAaDataEmis = Year(txtDataEmis)

End Sub

sembra come se alla fine del loop si trovasse tutto su un recordset vuoto e quindi i campi del form rimangono vuoti rendendo impossibile la funzione Day(txtDataEmis)

...

[vaargard]

comincia col controllare se il campo rs("commessa") è valorizzato oppure è vuoto!!!!

[beppenet]

infatti....come vi dicevo, la funzione Day(txtDataEmis) dava errore perchè dopo aver caricato DataGrid e campi del Form coi dati, il campo del Form "txtDataEmis" risultava essere vuoto (probabilmente xkè ero al EOF).... ho risolto con un semplice IF (non ci avevo pensato!)

    If Not Len(Trim(txtDataEmis.Text)) = 0 Then
        'MsgBox txtDataEmis
        txtGgDataEmis = Day(txtDataEmis)
        txtMmDataEmis = Month(txtDataEmis)
        txtAaDataEmis = Year(txtDataEmis)
    End If

grazie per la pazienza raga !

buon lavoro a tutti !