[Løst]Else without If

[Blaster2k]

Hvorfor i all verden får jeg "error Else without If" på dette?

 

Private Sub Form_Load()

Dim tblTabell As Object
Set db = OpenDatabase(App.Path & "\bqdb.mdb")
Set tblTabell1 = db.OpenRecordset("Tabell1")

       If Form1.HScroll1.Value = 1 Then
With tblTabell1
   Text1.Text = !1
   Text2.Text = !2
   Text3.Text = !3
   Text4.Text = !4
   Text5.Text = !5
   Text6.Text = !6
   Text7.Text = !7
   Text8.Text = !8

       Else
With tblTabell1
  Text1.Text = ""
  Text2.Text = ""
  Text3.Text = ""
  Text4.Text = ""
  Text5.Text = ""
  Text6.Text = ""
  Text7.Text = ""
  Text8.Text = ""
       End If

End Sub

Endret 12. august 2004 av Blaster2k

[Gjest Slettet+8745264]

Tror du må skrive "Else if" istedenfor "Else".

[svamp]

Uansett må du lukke with'ene dine med End With.

[Jonas]

Tror nok det bare er fordi du har glemt å lukke "with'en"

Private Sub Form_Load()

Dim tblTabell As Object
Set db = OpenDatabase(App.Path & "\bqdb.mdb")
Set tblTabell1 = db.OpenRecordset("Tabell1")

   If Form1.HScroll1.Value = 1 Then
   
       With tblTabell1

           Text1.Text = !1
           Text2.Text = !2
           Text3.Text = !3
           Text4.Text = !4
           Text5.Text = !5
           Text6.Text = !6
           Text7.Text = !7
           Text8.Text = !8
       
       End With

   Else

       Text1.Text = ""
       Text2.Text = ""
       Text3.Text = ""
       Text4.Text = ""
       Text5.Text = ""
       Text6.Text = ""
       Text7.Text = ""
       Text8.Text = ""
       
   End If

End Sub

Formatering er viktig, og desuten tror jeg ikke en rad kan hete "1" eller "2" osv ..

[Blaster2k]

takker og bukker.

[d0ppler]

jeg tror også du kanskje bør forstå bruken av WITH, siden du faktisk ikke refererer til tblTabell én eneste gang innen for with/end with.

 

Og hva menes med dette :

Text1.Text = !1

?

Her får du garantert syntax-feil

 

Skal dette være en tekst du skal sette inn, så må du skrive " rundt !1 som dette:

Text1.Text = "!1"

 

For meg så virker det som du prøver å tilordne Text1.Text en verdi som IKKE er 1, noe som en datamaskin aldri vil kunne klare å tolke riktig.