Hejsan, i kursen så får vi göra ett program. men alla fällt måste vara ifyllda
så jag försökte vara smart och låte vb fylla i dom fält som jag inte svarar på

<code>
If txtSpel.Text = "" Or _
txtPlasering.Text = "" Then
txtPlasering.Text = " "
If comKategori.Text = "" Then
comKategori.Text = " "
If comBetyg.Text = "" Then
comBetyg.Text = " "
If comAntalSkivor.Text = "" Then
comAntalSkivor.Text = " "
If comSpelaLan.Text = "" Then
comSpelaLan.Text = " "
If comCrack.Text = "" Then
comCrack.Text = " "
If txtOvrigt.Text = "" Then
txtOvrigt.Text = " "
End If
End If
End If
End If
End If
End If
End If
</code>

detta fungerar om jag bara fyller i fältet spel..
men ifall jag fyller i ett annat fält så får jag noll fel...
Kan någon se vad för fel som jag har gjort..
eller hur jag kan lösa problemet..

'När man väljer ny post
hela coden för funktionen add

<code>
Public Function add()

If txtSpel.Text = "" Or _
txtPlasering.Text = "" Then
txtPlasering.Text = " "
If comKategori.Text = "" Then
comKategori.Text = " "
If comBetyg.Text = "" Then
comBetyg.Text = " "
If comAntalSkivor.Text = "" Then
comAntalSkivor.Text = " "
If comSpelaLan.Text = "" Then
comSpelaLan.Text = " "
If comCrack.Text = "" Then
comCrack.Text = " "
If txtOvrigt.Text = "" Then
txtOvrigt.Text = " "
End If
End If
End If
End If
End If
End If
End If

rs.AddNew

rs("Spel") = txtSpel.Text
rs("Plasering") = txtPlasering.Text
rs("Kategori") = comKategori.Text
rs("Betyg") = comBetyg.Text
rs("AntalSkivor") = comAntalSkivor.Text
rs("SpelaLan") = comSpelaLan.Text
rs("Crack") = comCrack.Text
rs("Ovrigt") = txtOvrigt.Text

'*************************
'Här gnäller han att det är fel
rs.Update


txtSpel.Text = ""
txtSpel.Enabled = False
txtPlasering.Text = ""
txtPlasering.Enabled = False
comKategori.Text = ""
comKategori.Enabled = False
comBetyg.Text = ""
comBetyg.Enabled = False
comAntalSkivor.Text = ""
comAntalSkivor.Enabled = False
comSpelaLan.Text = ""
comSpelaLan.Enabled = False
comCrack.Text = ""
comCrack.Enabled = False
txtOvrigt.Text = ""
txtOvrigt.Enabled = False

Toolbar1.Buttons("tolSpara").Enabled = False
Toolbar1.Buttons("tolAngra").Enabled = False
Toolbar1.Buttons("tolNy").Enabled = True
Toolbar1.Buttons("tolAvsluta").Enabled = True
mnuDatabasSpara.Enabled = False
mnuDatabasAngraAndra.Enabled = False
mnuArkivNyPost.Enabled = True
mnuArkivAvsluta.Enabled = True

'Stänger databasen
dbadd = False

'uppdaterar listboxen
list

End Function
</code>

Hej
Till att börja med bör du skriva så här.
If txtSpel.Text = "" Or _
txtPlasering.Text = "" Then txtPlasering.Text = " "
If comKategori.Text = "" Then comKategori.Text = " "
If comBetyg.Text = "" Then comBetyg.Text = " "
If comAntalSkivor.Text = "" Then comAntalSkivor.Text = " "
If comSpelaLan.Text = "" Then comSpelaLan.Text = " "
If comCrack.Text = "" Then comCrack.Text = " "
If txtOvrigt.Text = "" Then txtOvrigt.Text = " "

Testa det kanske bara var detta .Du hade glömt Space _ efter Or Then
här < txtPlasering.Text = "" Then >
/Sven

funkade fint..

men varför behöver man inte
end if ?

Om Vilkorssatsen bara skall uppfylla 1 sak så är det bäst att skriva
If vilkor1 = vilkor2 Then Label1.Caption = "dom är lika"

Skall det uppfyllas flera saker måste du ha End If

If vilkor1 = vilkor2 Then
Label1.Caption = "dom är lika"
Label2.Caption = "Test är klart"
End If
/Sven

funkar fint och tack så mycket...
Nu är det bara att fortsätta jaga buggar.

Bara en undran:

<code>

If vilkor1 = vilkor2 Then Label1.Caption = "dom är lika": Label2.Caption = "Test"

</code>


/Benny

Phuuuuuuuuuuuuuuuuuuuuuu.
Ok om du spelar marig

If vilkor1 = vilkor2 Then
Label1.Caption = "dom är lika"
Label2.Caption = "Test är klart, vilkoren är lika"
End If
Jag har ju sagt till dig att du skall vara i Nybörjar Forumet
eller frimärkssamling :-)
/Sven

Det är inte bra att lagra ett mellanslag. Kommer man inte kuna söka efter tomma poster. Det är enklare att spara null. I västa fall, ändrar du fältet i databasen att tillåta noll längd strängar
<code>
Public Function add()

rs.AddNew
If Len(txtSpel.Text) > 0 Then
rs("Spel") = txtSpel.Text
txtSpel.Text = ""
End If
If Len(txtPlasering.Text) > 0 Then
rs("Plasering") = txtPlasering.Text
txtPlasering.Text = ""
End If
If Len(comKategori.Text) > 0 Then
rs("Kategori") = comKategori.Text
comKategori.Text
End If
If Len(comBetyg.Text) > 0 Then
rs("Betyg") = comBetyg.Text
comBetyg.Text
End If
If Len(comAntalSkivor.Text) > 0 Then
rs("AntalSkivor") = comAntalSkivor.Text
comAntalSkivor.Text
End If
If Len(comSpelaLan.Text) > 0 Then
rs("SpelaLan") = comSpelaLan.Text
comSpelaLan.Text
End If
If Len(comCrack.Text) > 0 Then
rs("Crack") = comCrack.Text
comCrack.Text
End If
If Len(txtOvrigt.Text) > 0 Then
rs("Ovrigt") = txtOvrigt.Text
txtOvrigt.Text
End If

'*************************
rs.Update


txtSpel.Enabled = False
txtPlasering.Enabled = False
comKategori.Enabled = False
comBetyg.Enabled = False
comAntalSkivor.Enabled = False
comSpelaLan.Enabled = False
comCrack.Enabled = False
txtOvrigt.Enabled = False

Toolbar1.Buttons("tolSpara").Enabled = False
Toolbar1.Buttons("tolAngra").Enabled = False
Toolbar1.Buttons("tolNy").Enabled = True
Toolbar1.Buttons("tolAvsluta").Enabled = True
mnuDatabasSpara.Enabled = False
mnuDatabasAngraAndra.Enabled = False
mnuArkivNyPost.Enabled = True
mnuArkivAvsluta.Enabled = True

'Stänger databasen
dbadd = False

'uppdaterar listboxen
list

End Function
</code>

Nop....

SvenPon cod alternativ funkade..


Jag måste säga att jag har lärt mig mer på detta projekt än med böcker....

Nop är inget svar.
KAn du berätta var du menar?

Anders

<code>
rs.AddNew
If Len(txtSpel.Text) > 0 Then
rs("Spel") = txtSpel.Text
txtSpel.Text = ""
End If
</code>

funkade inte..
Det blir fel lite längre ner i listan när han ska uppdatera

allternativet som
Sven pop gjorde funkade...

Nop är väll ett bra svar :-)

Men ditt allternativ var mycet intressant ... bara att databasen inte axepterar ett noll svar.

KAn ju förklara hur jag tänkt. Ett fält har ofta null som standardvärde. Det är därför jag inte sätter något värde om det saknas.
Men om fältet inte accepterar nul kommer min kod inte att fungera. Eller om fälten har ett angivet standardvärde.

<code>
If Len(txtSpel.Text) > 0 Then
rs("Spel") = txtSpel.Text
txtSpel.Text = ""
Else
rs("Spel") = Null
End If
</code>
Om man vill söka på toma värden skriver man då:
<code>
strSQL = "SELEXT * FROM TabellNamn WHERE FältNamn Is Null"
</code>

Tyvär så axepterar den inte ett null värde.. Vet inte varför