Vad har jag gjort för fel när detta felmeddelande kommer?? Invalid use of Null

Min kod ser ut så här:

Dim DBFileName As String
Dim Dcon As ADODB.Connection
Dim RS As ADODB.Recordset

DBFileName = GetIni("Databasinfo", "Path", App.Path & "\info.ini")


Set Dcon = New ADODB.Connection
Set RS = New ADODB.Recordset

Dcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source=" & DBFileName


RS.Open "SELECT * FROM TBL_ProjektLogg WHERE ProjektNummer=" & CurrentProjekt & "", Dcon





frmProjekt.txtProjNr = RS("ProjektNummer").Value
frmProjekt.lblNamn.Caption = RS("Namn").Value
frmProjekt.lblKund.Caption = RS("Kund").Value
frmProjekt.txtBeskrivning.Text = RS("Beskrivning").Value
frmProjekt.txtMatrial.Text = RS("Matrial").Value '<<< DENNA RAD BLIR MARKERAD NÄR FELET UPPSTÅR

frmProjekt.txtSummaTimmar = RS("SummaTim").Value
frmProjekt.txtHourCost = RS("TimKost").Value
frmProjekt.txtTotalSum = RS("TotalSum").Value


RS.MoveNext

RS.Close
Dcon.Close

Något av det data du plocka ut ur databasen returnerar NULL.

Du försöker antagligen skriva in ett NULL värde i ett textfält

Raden du har markerat ser mysko ut

>frmProjekt.txtMatrial.Text = RS("Matrial").Value

Har du inte stavat Matrial fel?? Material ska det säkert vara :-))

Lägg in denna kod så klarar du säkert av det:
if not isnull(RS("Matrial") then
frmProjekt.txtMatrial.Text = RS("Matrial").Value
endif

Då kommer du bara flytta om fältet inte är null.

Stefan

Hej
Problemmet är lika gammalt som databasprogrammering.
Ahlla har råkat ut för detta. :-)

Du kan komma förbi med att göra så här.

frmProjekt.txtMatrial.Text = "" & RS("Matrial").Value

Tom sträng är inte samma som Null

mvh
Sven

Tackar för hjälpen, ni har räddat min dag..:-)

/Tomas