bliver snart SINDSYG !!

Hvad mener du med sætte ind, du kan f.eks. bruge en button :


Private Sub Command1_Click()
InputBox \"This is a test.\", \"Title\", \"Hi there!\"
End Sub

Du får den fejl fordi du sætter koden ind uden for en funktion. Prøv f.eks. at sætte den ind i din Form_Load:

Private Sub Form_Load()
InputBox \"This is a test.\",\"Title\",\"Hi there!\"
End Sub

Eller men Command1 og Label1 :

Private Sub Command1_Click()
Dim strInput
strInput = InputBox(\"This is a test.\", \"Title\", \"Hi there!\")
Label1 = strInput
End Sub

jeg har lavet en box hvor folk kan skrive noget i...hvis den er tom så skal der kommer en besked at den er tom efter man har trykke på et knap...den virker ik :(



Private Sub knap_Click()
Text = Text
If Text = \"\" Then
  Msgbox(Den er tom)
  Goto Komher
Else if text = \"123\" then
  Msgbox(Du fik skrevet koden)
End If
Komher
End Sub

Det er da noget rod... Hvorfor har du to variable med navnet Text? Og hvorfor bruger du den label?

magik > slap helt af...det er min alderførste script !

Oki... Men prøv at slette linjen hvor der står Text = Text...

Private Sub Command1_Click()
Dim strInput
strInput = InputBox(\"This is a test.\", \"Title\", \"Hi there!\")
If strInput <> \"\" Then
Label1 = strInput
Else
Label1 = \"Så skriv da noget !!\"
End If
End Sub

hvad står strinput for ??

min box hedder Text...

box = textbox

hy > du har lavet noget som jeg slet ik har brug for...det var kun et message den skulle skrive...ik noget med at du skulle skrive noget i textboxen osv..

Går ud fra at Text er dit tekst-felt ;)

Private Sub Knap_Click()
If Text = \"\" Then
  MsgBox \"Den er tom\"
ElseIf Text = \"123\" Then
  MsgBox \"Du fik skrevet koden\"
End If
End Sub

den virker :)
og jo text er min text box...tak for hjælpen :)

hvor \"elself\" og \"ik else\" if ?

Aner det ikke, spørg Microsoft ;)

Det hedder ElseIf...

nej, men kan godt kalde det else ?

Ja, hvis du ikke skal teste på noget...

Private Sub Knap_Click()
If Text = \"\" Then
  MsgBox \"Den er tom\"
ElseIf Text = \"123\" Then
  MsgBox \"Du fik skrevet koden\"
Else
  MsgBox \"Du har skrevet noget forkert\" \'<----
End If
End Sub

bare det sidste ting...hvorfor beregner den ik de to tal jeg skrive ind ..

Private Sub Knap_Click()
Dim total
If txt = \"\" And txt1 = \"\" Then
  MsgBox \"De er begge TextBox tomme\"
Else
  total = txt - txt1
  MsgBox \"& total\"
End If
End Sub

og tak for hjælpen :)

MsgBox total

i stedet for MsgBox \"& total\"

takker for point ;)