Avatar billede olehen Nybegynder
15. marts 2007 - 13:41 Der er 2 kommentarer og
1 løsning

Valg af synlige txtboxe igennem en cbobox

Når jeg vælge C A som er i den første case så vil den gerne indsætte værdierne i excel. Køre jeg C C vil den ikke indsætte væriderne - hvorfor??


Private Sub cboFac_Change()
         
    Select Case Me.cboFac.Text
        Case "C A", "Dt", "Sec"
            With Me.txtMax
                .Visible = False
                .Value = Null
            End With
            With Me.MaxLabel
                .Visible = False
            End With
        Case Else
            With Me.txtMax
                .Visible = True
                .Value = Null
            End With
            Me.MaxLabel.Visible = True
   
    Select Case Me.cboFac.Text
        Case "C C", "C A", "Dt", "FX", "Gar", "LC", "Od", "Sec"
            With Me.txtInst
                .Visible = False
                .Value = Null
            End With
            With Me.InstLabel
                .Visible = False
            End With
        Case Else
            With Me.txtInst
                .Visible = True
                .Value = Null
            End With
            Me.InstLabel.Visible = True
    End Select
Avatar billede snowball Novice
15. marts 2007 - 14:15 #1
Du mangler en "End Select" inden du starter på din "Select Case Me.cboFac.Text"
Avatar billede olehen Nybegynder
15. marts 2007 - 14:37 #2
Ja, det er rigtig. Mangler lige de to sidste linier.

End select
End Sub

Men problemet er måke i min indsæt knap hvor jeg har følgende kode for max og inst. For koden virker jo fint når jeg vælger C A i min cboFac box. Det er selve værdien som kun kan indsætte hvis jeg vælger C A, Dt eller Sec. Den virker ikke for de andre i den næste case. Det har noget at gøre med den "Null" værdi jeg tildeler den som den ikke kan finde ud af..

'check for a Max value
    If Me.txtMax.Visible = True Then
    If Trim(Me.txtMax.Value) = "" Then
        Me.txtMax.SetFocus
        MsgBox "Please enter Maximum/Principal value"
        ElseIf Me.txtMax.Visible = False Then
        GoTo Final
      End If
Final:
    Exit Sub
  End If

og

'check for a inst
    If Me.txtInst.Visible = True Then
    If Trim(Me.txtInst.Value) = "" Then
        Me.txtInst.SetFocus
        MsgBox "Please enter Inst value"
        ElseIf Me.txtInst.Visible = False Then
        GoTo Final1
        End If
      Exit Sub
    End If
Final1:
Avatar billede olehen Nybegynder
30. marts 2007 - 11:05 #3
lukket
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester