Etiket Name lagt i en tabel

Du laver dine Etiket om til en kombinationboks hvor den henter data fra en tabel hvor du har lagt de variabler som du gerne vil bruge ned i.

I forspørgelser under Kriterier skal du skrive

forms!din_formularnavn!dinkombinationboxnavn

og egenskaber for kombinationboks skal du under hændelse skal du vælge under efteropdatering kodegenerator. Der hvor du ender skal du skrive

forms!dinformularnavn.Requery

Dette er en måde at gøre det på, men da jeg ikke kende mere til din database om hvordan den er bygget op osv. kan det være lidt svært at hjælp mere præsis

/lars

Hej ogtak for foreslaget
jeg har 32 tabeller med gns 15 varialer altså 480 combo boxe!
Der er heller ikke plads til trykknappen fra combo boxen
Er der andre måder?

Er det det ved etiketten der viser et andet navn på det tilknyttede felts navn i dataark visning du vil ændre - når du snakker om dansk/engelsk giver det lidt mening - jeg opfatter det dermed som ønske om præsentation af andre feltnavne i en forms dataark visning.
Etikettens egenskaben (som du kan se det i egenskabsarket i designvisning) )hedder caption (på dansk titeltekst) og det kan godt ændres dynamisk

Et eksempel viser hvordan:

En database har nogle tabeller der hver for sig skal vises som som dataark i underformlarer. Der skal kunne skiftes mellem engelske og tyske feltnavne.

1. For hver tabel laves en kopi (kun struktur) - og den navngives: FA<tabel kilde> - altså FALaan hvis tabelen hedder Laan
2. Felter (i f.eks. FALaan) laves alle til tekstfelter og et nyt tekstfelt 'lang' tilføjes
3. Der indskrives 2 poster, en hvor lang='eng' og en hvor lang='ger' og felterne gives tyske og engelske oversættelse
4. Der oprettes underformularer med dataarkvisning - en til hver af de oprindelige tabeler (autoformular)
5. På en hovedform: 'Main' inkluderes underformene - ingen brug af under/over ordnede lænker
6. En combo på hovedform: navn:langchoice,rækkekildetype: værdiliste, rækkekilde: eng;ger
7. For at huske sprogvælg hackes en property ind databasen vha.
Sub newprop()
    Dim DB As DAO.Database
    Dim p
    Set DB = DBEngine(0)(0)
    Set p = DB.CreateProperty("langchoice", DB_TEXT, "eng")
    DB.Properties.Append p
End Sub
(En tabel er for meget til sådan en lille ting)

8. Vba kode i et standard modul:

Public Sub setFormLabels(f As Form)
    Dim ctl As Control
   
    For Each ctl In f.Controls
        If ctl.ControlType = acLabel Then
            ctl.Caption = DLookup(ctl.Parent.name, "FA" & f.RecordSource, _
                    "lang='" & CurrentDb.Properties("langchoice") & "'")
        End If: Next
End Sub

9. I Main formens class  module:

Private Sub Form_Open(Cancel As Integer)
    langChoice = CurrentDb.Properties("langchoice")
    changeSubformLabels
End Sub

Private Sub langChoice_AfterUpdate()
    CurrentDb.Properties("langchoice") = langChoice
    changeSubformLabels
End Sub

Private Sub changeSubformLabels()
    Dim cnt As Control

    For Each cnt In Controls
    If cnt.ControlType = acSubform Then
    setFormLabels cnt.Form
    End If: Next
End Sub

i access 2000
http:/kisserup-strand.dk/downloads/feltalias.zip

1000 tak for hjælpen
Kan du lave det så jeg kan give point

1000 tak for hjælpen
Vil du lave det så jeg kan give point

Hej per2edb
Her er så et svar - så ramte jeg åbenbart rigtigt i forståelsen af dit spørgsmål.

Ja det gjorde du. Tak for hjælpen