Commandbutton - combobox kombination

".. ComboBox, som starter med at være tom.." hvis combobox er tomt, kan der ikke vælger noget som helst i den..

Combo1.ListIndex

'en combobox med indholdet
' "" (tom linie)
' "1" (form1)
' "2" (form2)
'
' "1" og "2" kan erstattes af tal og tekst, lige hvad du vil ha'..
' husk at ændre det i både koden og comboboxen

Private Sub Combo1_Click()
Command1.Enabled = False ' disabled commandbutton

If Combo1.Text <> "" Then ' hvis det valgte ikke er tomt
  Form1.Visible = False ' gem form1
  form2.Visible = False ' gem form2
 
  If Combo1.Text = "1" Then ' hvis "1" er valgt
    Form1.Visible = True ' vis form
  Else ' "2" er valgt
    form2.Visible = True ' vis form
  End If
  Command1.Enabled = True ' enable commandbutton
End If
End Sub

Private Sub Kommandoknap3_Click()
On Error GoTo Err_Kommandoknap3_Click
If Kombinationsboks0 <> "" Then
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Data"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox " Du skal vælge i Kombinationsboksen først"
End If
Exit_Kommandoknap3_Click:
    Exit Sub

Err_Kommandoknap3_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap3_Click
   
End Sub

kabbak: Fed detalje med error-boksen, men når jeg så har foretaget mit valgt i ComboBox'en kommer beskeden stadig!!!

Gider I i øvrigt ikke skrive svar i stedet for kommentarer, så i kan på point når problemmet engang er løst?

JaMark

- Et svar.

Har du prøvet min?

thesurfer: Jeg er ikke sikker, men jeg kan ikke helt gennemskue den. Er det i din løsning meningen at det nye vindue skal åbne når man har valgt noget i ComboBox'en, for det er nemlig ikke meningen.

du skal selvfølgelig udskifte Kombinationsboks0 med navnet på din kombinationsboks, jeg tror det er derfor du får fejl.

Jeg forstår ikke helt hvad det er du vil..
du starter med form1 som har en combobox og en commandbutton..
hvis du gør form1.visible = false, vil den forsvinde, og du kan derefter ikke vælge combo eller button..

kabbak: Det var lidt bedre, men nu skriver den "object required"!!

Det er i øvrigt meningen at Form1 skal lukke og Form2 skal åbne når der så trykkes på knappen.

Jeg har skrevet koden om, så den (åbenbart kun næsten) passer til mit program:

Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
If Combo1 <> "" Then
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Data"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox " Du skal vælge materiale først"
End If
Exit_Command1_Click:
    Exit Sub

Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click
   
End Sub

skulle virke , NB. jeg har access 2000

Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
  Dim stDocName As String
    Dim stLinkCriteria As String
      If Combo1 <> "" Then
    DoCmd.Close
    stDocName = "Form2"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox " Du skal vælge i Kombinationsboksen først"
End If
Exit_Command1_Click:
    Exit Sub

Err_Command1_Click:
    MsgBox Err.Description
    Resume Exit_Command1_Click
End Sub

"Form2" skal udskiftes med din Form2's navn

kabbak> Du ser ud til at have styr på det.. :)

jamark> Afvis mit svar. Jeg slutter her og kabbak overtager :)

thesufer > måske, men jeg savner respons, skal snart i seng :-O)

Jeg takker jer begge. Jeg fik begge forslag til at virke og jeg synes faktisk at de begge er gode så jeg deler altså pointene.

dele og dele, thesufer fik det hele

Ups. Undskyld kabbak. Det var en fejl. Jeg laver lige en ny tråd, så du også kan få nogle point. Den hedde "point til kabbak".

han får bare 30 points fra mig.

http://www.eksperten.dk/spm/418767