Faneblad events

Hej frederikschack

Koden skal ligge bag selve "Tab controllen" = faneblads objektet, i stedet for bag den enkelte faneblad.


Jeg har en applikation, hvor jeg bruger følgende hændelse.
Når der klikkes på et faneblad, aktiveres Change_hændelsen på faneblads objektet, som så via en IF struktur, spø´r på, hvilket faneblad aktiverede hændelse (hvilket faneblad der er aktiv!)


Private Sub tabFaneblade_Change()


    'hvis FI fanebladet er aktiv
    If Me.tabFaneblade.Value = 1 Then

      .......


    If Me.tabFaneblade.Value = 2 then

      .........

    End if


Mvh Nicolai

Hej Lalocin,

Jo, det har jeg også set andre steder og man kan evt. bruge en case istedet for if.

Men jeg kan ikke finde ud af hvilken hændelse der bliver aktiveret og hvad den måtte hedde? Der er ikke noget kontrolelement der hedder tabEtEllerAndet hos mig? Og Fl bliver slet ikke aktiveret.

M.v.h.
Frederik

Hej Frederik

TabEtEllerAndet er noget jeg har døbt det for min egen skyld.


Jeg har nu oprettet en Faneblad.mdb for eksemplets skyld.

I databasen er der en formular, hvorpå jeg har trukket en fanebladskontrol ind, fra værktøjskassen i Access Design Mode.

Jeg har højre klikket på kontrollen, MEN ved siden af de 2 obligatoriske faneblade ... og under EVENT fanen, valgt CHANGE hændelsen.

Jeg har ikke omdøbt kontrollen, så den er her med sit standardnavn.

Koden er følgende:


Private Sub TabCtl0_Change()
Dim v As Integer

v = Me.TabCtl0.Value

    Select Case v
   
        Case 0
   
            MsgBox "Faneblad, Page 1 er aktiveret"
       
       
        Case 1
       
       
            MsgBox "Faneblad, Page 2 er aktiveret"
           
    End Select


End Sub





Jeg kan evt. maile dig et visuelt eksempel ?


Mvh Nicolai

Jeg har et eksempel, du måske kan bruge, liggende på www.parodux.com under gratis!~)

Argh !!!

Glemte ....

Når jeg har højre klikket på kontrollen ved siden af fanerne ... så vælger jeg først "Properties" og så derefter EVENt fanebladet, sorry :o)


Mvh Nicolai

Smukt! Det virker :) Smid et svar.

Hej Frederik

Regner med, at det er mig der skal lægge et svar ?


"Svar"


Mvh Nicolai :o)

Det kører sgu godt i dag .... !!!


Her er et "svar"



Mvh Nicolai