controllo sul campo..

[dops]

ciao.. ho una list box che contiene i calori del campo "nome" del database, al click su uno di questi valori faccio scrivere in alcune txtbox i corrispondenti campi.. il problema nasce quando un campo è vuoto, quindi il debug mi dice "utilizzo non valido di Null". A questo punto visto che è possibile che alcuni campi rimangano vuoti, vorrei fare un controllo che eviti questo errore. Questo è il codice con cui stò lavorando:

Private Sub lstDb_Click()
'Visualizzazione dei record corrispondenti alla selezione
Set DB = OpenDatabase(App.Path & "\dbad97.mdb")
  sSql = "Select * FROM tabprinc WHERE Nome= '" & Trim$(lstDb) & "'"  
  Set Rs = DB.OpenRecordset(sSql)
   Do While Not Rs.EOF    
  'Aggiungo il valore del campo corrispondente
  txtnome.Text = Rs!Nome
  txtcognome.Text = Rs!Cognome
  txtdatanascita.Text = Rs!datanascita
  txtluogonascita.Text = Rs!luogonascita
   Rs.MoveNext
  Loop
Rs.Close            
Set Rs = Nothing    
DB.Close            
Set DB = Nothing
End Sub

così com'è se un campo è vuoto mi dà il suddetto errore..
quale controllo posso mettergli dopo il Do While Not Rs.EOF ?
Ciao

[debbelandia]

Private Sub lstDb_Click()
'Visualizzazione dei record corrispondenti alla selezione
Set DB = OpenDatabase(App.Path & "\dbad97.mdb")
  sSql = "Select * FROM tabprinc WHERE Nome= '" & Trim$(lstDb) & "'"  
  Set Rs = DB.OpenRecordset(sSql)
   Do While Not Rs.EOF    
  'Aggiungo il valore del campo corrispondente
  if Rs!Nome <> "" then 
    txtnome.Text = Rs!Nome
  end if
  if Rs!Cognome <> "" then
    txtcognome.Text = Rs!Cognome
  end if
  if Rs!datanascita <> "" then
    txtdatanascita.Text = Rs!datanascita
  end if
  if Rs!luogonascita <> "" then
    txtluogonascita.Text = Rs!luogonascita
  end if
  Rs.MoveNext
  Loop
Rs.Close            
Set Rs = Nothing    
DB.Close            
Set DB = Nothing
End Sub

[dops]

o mamma e quelli saranno una trentina di campi.. non si può fare una cosa per tutti ?

[xegallo]

Originariamente inviato da dops
o mamma e quelli saranno una trentina di campi.. non si può fare una cosa per tutti ?

si ma dovresti usare le varie text come elementi di una matrice

[dops]

aaa.. tipo txtnome(0) etc.. ?
no vabbè le scrivo tutte e trenta

[dops]

ho un'altra domanda.. e questa volta non rubo spazio :
stò cercando di fare una selezione all'evento change di una txtbox mo vi faccio vedere il codice, quello in grassetto è quello che non riesco a fare, o forse sbaglio tutto :

Private Sub ricnome_Change()
Set DB = OpenDatabase(App.Path & "\dbad97.mdb")
  sSql = "Select * FROM tabprinc WHERE Nome= '" & Trim$(txtnome) & "'"
  Set Rs = DB.OpenRecordset(sSql)
  Do While Not Rs.EOF
  lstDb.Selected = txtnome
  
    Rs.MoveNext
  Loop
Rs.Close           
Set Rs = Nothing    
DB.Close            
Set DB = Nothing
End Sub

cioè praticamente quello che voglio fare è selezionare il campo presente nella listbox (lstdb) mentre scrivo nella txtbox (txtnome), cioè mettiamo ad esempio che io stia scrivendo il nome "raffaele", mentre scrivo raf.. mi deve selezionare i campi che iniziano con raf
Ho impostato bene il codice o ho sbagliato tutto?

[dops]

nessuno mi risponde?

[xegallo]

Originariamente inviato da dops
aaa.. tipo txtnome(0) etc.. ?
no vabbè le scrivo tutte e trenta

veramente l'idea sarebbe

for i = 0 to rs.fields.count - 1
   if isnull(rs.field(i).value) = false
      txt(i).text = trim(rs.field(i).value)
   else
      txt(i).text = vbnullstring
   end if
next

[dops]

aaa ecco un ciclo for.. grazie
non è che puoi rispondere pure all'altra domanda?

[dops]

aspè.. però mi dà un errore

  
For i = 0 To Rs.Fields.Count - 1
   If IsNull(Rs.Field(i).Value) = False Then
      txt(i).Text = Trim(Rs.Field(i).Value)
   Else
      txt(i).Text = vbNullString
   End If
Next

il debug mi dice impossibile trovare il membro dei dati e mi segna in giallo il "Filed" in grassetto..
perchè?