[VB] Valore Null

[Francesco_76]

Rieccomi

Scusate ma sono ancora (e ancora per molto) un principiante di VB

Faccio una ricerca nel database e posiziono i risultati nel mio form, e fino qui tutto bene, il problema sorge quando raccolgo dei risultati con valore "Null",

Non posso mettere un controllo su ogni sigolo campo quindi vorrei sapere se è possibile mettere un controllo su tutti

Dim sSearch As String
Dim Db As Database
Dim Rs As Recordset
If Text1 <> "0" Then
sSearch = "select * from [Anagrafico Incarico] where ID = " & Text1 & ""
Set Db = OpenDatabase(App.Path & "\database.mdb", False, False)
Set Rs = Db.OpenRecordset(sSearch)
Set Data1.Recordset = Rs

Nome = Rs!Nome
Cognome = Rs!Cognome
CodiceFiscale = Rs![Codice Fiscale]
LuogodiNascita = Rs!Città
DatadiNascita = Rs![Nato/a il]








Else

Label1 = ";-))"

End If

Rs.Close

La parte in grassetto e quella incriminata

Grazie Mille

[maleresidente]

[supersaibal]Originariamente inviato da Francesco_76
Rieccomi

Scusate ma sono ancora (e ancora per molto) un principiante di VB

Faccio una ricerca nel database e posiziono i risultati nel mio form, e fino qui tutto bene, il problema sorge quando raccolgo dei risultati con valore "Null",

Non posso mettere un controllo su ogni sigolo campo quindi vorrei sapere se è possibile mettere un controllo su tutti

Dim sSearch As String
Dim Db As Database
Dim Rs As Recordset
If Text1 <> "0" Then
sSearch = "select * from [Anagrafico Incarico] where ID = " & Text1 & ""
Set Db = OpenDatabase(App.Path & "\database.mdb", False, False)
Set Rs = Db.OpenRecordset(sSearch)
Set Data1.Recordset = Rs

Nome = Rs!Nome
Cognome = Rs!Cognome
CodiceFiscale = Rs![Codice Fiscale]
LuogodiNascita = Rs!Città
DatadiNascita = Rs![Nato/a il]








Else

Label1 = ";-))"

End If

Rs.Close

La parte in grassetto e quella incriminata

Grazie Mille

[/supersaibal]

prova cosi:

Nome = Rs!Nome & ""
Cognome = Rs!Cognome & ""
CodiceFiscale = Rs!(Codice Fiscale) & ""
LuogodiNascita = Rs!Città & ""
DatadiNascita = Rs!(Nato/a il) & ""

ciao.

[xegallo]

[supersaibal]Originariamente inviato da Francesco_76
Rieccomi

Scusate ma sono ancora (e ancora per molto) un principiante di VB

Faccio una ricerca nel database e posiziono i risultati nel mio form, e fino qui tutto bene, il problema sorge quando raccolgo dei risultati con valore "Null",

Non posso mettere un controllo su ogni sigolo campo quindi vorrei sapere se è possibile mettere un controllo su tutti

Dim sSearch As String
Dim Db As Database
Dim Rs As Recordset
If Text1 <> "0" Then
sSearch = "select * from [Anagrafico Incarico] where ID = " & Text1 & ""
Set Db = OpenDatabase(App.Path & "\database.mdb", False, False)
Set Rs = Db.OpenRecordset(sSearch)
Set Data1.Recordset = Rs

Nome = Rs!Nome
Cognome = Rs!Cognome
CodiceFiscale = Rs![Codice Fiscale]
LuogodiNascita = Rs!Città
DatadiNascita = Rs![Nato/a il]








Else

Label1 = ";-))"

End If

Rs.Close

La parte in grassetto e quella incriminata

Grazie Mille

[/supersaibal]

if isnull(rs!("nome"))= false then
nome= rs!(nome)
end if

[Francesco_76]

[supersaibal]Originariamente inviato da maleresidente



prova cosi:

Nome = Rs!Nome & ""
Cognome = Rs!Cognome & ""
CodiceFiscale = Rs!(Codice Fiscale) & ""
LuogodiNascita = Rs!Città & ""
DatadiNascita = Rs!(Nato/a il) & ""

ciao. [/supersaibal]

Cosi Funziona...

Grazie ad Entrambi

[Francesco_76]

Scusate visto che ci siamo "approfitto"

Come posso obbligare la maiuscola in una TextBox

esempio

Mettiamo che io abbia una TextBox l'utente scrive o in maiuscolo ho in minuscolo (un po come gli pare) cosa devo associare a "LostFocus()"
per fare in modo che il testo appena scritto si converta tutto in maiuscolo

Grazie

[xegallo]

[supersaibal]Originariamente inviato da Francesco_76
Scusate visto che ci siamo "approfitto"

Come posso obbligare la maiuscola in una TextBox

esempio

Mettiamo che io abbia una TextBox l'utente scrive o in maiuscolo ho in minuscolo (un po come gli pare) cosa devo associare a "LostFocus()"
per fare in modo che il testo appena scritto si converta tutto in maiuscolo

Grazie

[/supersaibal]

usi l'evento key press memorizzi il carattere in una stringa usi Ucase()

[ladyBlu]

[supersaibal]Originariamente inviato da Francesco_76
Scusate visto che ci siamo "approfitto"

Come posso obbligare la maiuscola in una TextBox

esempio

Mettiamo che io abbia una TextBox l'utente scrive o in maiuscolo ho in minuscolo (un po come gli pare) cosa devo associare a "LostFocus()"
per fare in modo che il testo appena scritto si converta tutto in maiuscolo

Grazie

[/supersaibal]

fai così:

miaText = UCase(miaText)

[Johnny_Depp]

Private Sub Text1_Change()
    Text1 = UCase(Text1)
End Sub

[Johnny_Depp]

:quote:

mi hai anticipato!!!

[xegallo]

[supersaibal]Originariamente inviato da Johnny_Depp

Private Sub Text1_Change()
    Text1 = UCase(Text1)
End Sub

[/supersaibal]

facendo così lo ripeti + volte quando digita e quando viene eseguita e cambia