German Meldung: Local variable cannot hide a global variable

Discussion in 'German Forum' started by JOTHA, Jul 18, 2009.

  1. JOTHA

    JOTHA Well-Known Member Licensed User

    Hallo,

    nach langer Zeit melde ich mich mal wieder mit folgendem Problem:

    Ich möchte den Inhalt von einigen Zellen aus einer Tabelle in Textfelder einfügen.

    Dazu möchte ich den Befehl "SelectionChanged" verwenden.

    Code:
    '----------------------------------------------------
    'Wenn in die Tabelle "V-Mat-Kunde suchen" geklickt wird:
    '----------------------------------------------------
    Sub TabelleVMatKundeSuchen_SelectionChanged (ColName, Row)
    VMatAusbuchenAnKundenNummer.Text = TabelleVMatKundeSuchen.Cell (
    "KD-Nr.", TabelleVMatKundeSuchen.SelectedRow)
    VMatAusbuchenAnKunde.Text = TabelleVMatKundeSuchen.Cell (
    "Kunde", TabelleVMatKundeSuchen.SelectedRow)
    VMatAusbuchen.Show
    End Sub
    '----------------------------------------------------
    Leider erhalte ich folgende Fehlermeldung schon beim Start des Programmes:

    Wo liegt das Problem?

    Bin für jede Hilfe oder Hinweis dankbar!
     
  2. specci48

    specci48 Well-Known Member Licensed User

    Hallo Jotha,

    die Fehlermeldung erhält man u.a., wenn man als Paramter einer Sub einen Variablennamen verwendet, denn man schon in Bereich "Sub Globals" verwendet hat.
    Ich tippe daher mal darauf, dass Du hier eine globale Variable "ColName" oder "Row" definiert hast. In diesem Fall kann man einfach die Parameter der (lokalen) Sub abändern, z.B.:
    Code:
    Sub TabelleVMatKundeSuchen_SelectionChanged (ColNameNew, RowNew)
    Damit sollte das Problem behoben sein.


    Gruß
    specci48
     
  3. JOTHA

    JOTHA Well-Known Member Licensed User

    DANKE - es funzt!

    Hallo specci48,
    ... genau so ist es!

    Es funzt jetzt! :sign0060:

    VIELEN DANK! :sign0100:
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice