Jag vill kontrollera om ett fält i databasen är tomt
Har gjort följande kod:
Dim sCheckEmptyField
Set objRS = objConn.Execute("SELECT Task FROM tblTask WHERE Id = " & iNewTaskId & "")
sCheckEmptyField = objRS("Task")
If sCheckEmptyField = "" then
sTask = sTask
Else
sTask = vbCrlF + sTask
End If
Fungerar dock inte så bra... och är inte så snyggt... hur skulle man kunan göra?
Funktionallitet:
Om objRS("Task") är tom skriv in sTask annars skriv sTask och vbCrlF
Set objRS = objConn.Execute("SELECT Task FROM tblTask WHERE Id = " & iNewTaskId )
if objRs.eof then
sTask = ""
Else
sTask = vbCrlF + objRS("Task")
End If
Set objRS = objConn.Execute("SELECT Task FROM tblTask WHERE Id = " & iNewTaskId )
if objRs.eof then
sTask = ""
Else
sTask = vbCrlF + objRS("Task")
End If
Hmm, okej!
kanske förklarade dåligt...
men det ska vara:
Om objRS.EOF skriv sTask annars skriv vbCrlF + sTask
sTask har redan ett värde från en annan sql-fråga...
Får dock inte riktigt ihop det... blir en massa blankrader...
Hmm, har testat lite och får det inte att fungera riktigt...
'Kontrolera om fältet Task är tomt
Set objRS = objConn.Execute("SELECT Task FROM tblTask WHERE Id = " & iNewTaskId )
if objRS.EOF then
sTask = sTask
Else
sTask = vbCrlF + sTask
End If
Även om fältet Task i tabellen är tomt så går den inte in if-satsen
