ACCESS, von kombifeld auslesen

hallo,

habe folgendes problem bei access(2000).

habe ein formular mit einem kombinationsfeld und einem textfeld.

im hintergrund ist eine PC-Tabelle mit den Feldern PC-ID, PC-NAME, MAC-Adresse, IP-Adresse,...

Über das KombiFeld wähle ich den PC-NAMEn aus. Nach der auswahl soll er in das andere Textfeld automatisch die dazugehörige MAC-Adresse anzeigen.

Mein gedanke:

ich möchte dem Textfeld sagen: "SELECT [MAC-Adresse] von der [PC-Tabelle] WHERE [PC-NAME]=Kombifeld UND zeige es im Textfeld an"

wie bau ich das da ein????

 

tabellenverknüpfungsabfrage hört sich nicht schlecht an.
kannst du mir mehr drüber erzählen?

 

ok. also ich habs doch mit der 1.variante geschafft und es funktioniert so wie ich es mir vorstelle. vielen dank!

nun zum nächsten problem

ich habe eine andere tabelle mit beutzern und deren informationen.
die BenutzerID ist mit ANWENDER in der PC-Tabelle verknüpft (1:n).
im datenblattansicht zeigt er mir den BenutzerNamen an, was auch richtig bzw. übersichtlicher ist. im Formular zeigt er mir die BenutzerID an. Woher soll ich wissen wer das ist? muss ich da spaltenbreite oder so ändern? aber wenn ich in die eigenschaften vom textfeld gehe, dann gibt es so eine option nicht... also ich sehs nicht...

 

Hi

in dem Falle hast du das gesuchte Feld wohl in der 2ten Spalte?
Dann stell die Spaltenbreiten des Kombofeldes auf

0cm;4cm

oder so. Damit bleibt die ID stets der INhalt des Feldes, es wird aber der Benutzername angezeigt und beim Eingeben nach diesem vervollständigt

 

es ist kein kombofeld. ist ein textfeld. und in den eigenschaften im formular kann ich nirgends etwas mit spaltenbreite finden

 

sorry war im urlaub gewesen, konnte deswegen nicht antworten.

ja es soll eigentlich eine n:n beziehung sein, wie du schon erklärt hast.

hab bisschen rumprobiert, und es klappt soweit. wenn ich den pc-namen auswähle, dann zeigt er mir alle anderen daten in textfeldern etc an.

nur habe ich dieses formular mit dem assistenten erstellt und so ein layout ausgewählt (Industrie). das rote.
ich hab das auch soweit jetzt wieder "gradeformatiert" aber diesen haupthintergrund vom formular bekomm ich nicht weg. das ist so ein muster. wenn ich bei eigenschaften auf hintergrundfarbe gehe und änder, passiert nix, weil ja das muster drüber liegt....

 

ok ich habe verstanden was du meinst. das habe ich bei der PC-Tabelle und Software-Tabelle gemacht.
hab eine mitteltabelle eingefügt die PC-ID und SoftwareID enthält. dadurch hab ich dann die n:n beziehung

und jetzt...

nachdem das suchen über den pc-namen im kobinationsfeld geklappt hat, und er mir die restlichen textfelder ausgefüllt hat, will ich folgendes machen:

einen button ÄNDERN.

die textfelder sind nämlich gesperrt und deaktiviert, sodass man gar nicht reinklicken bzw. etwas ändern kann. wenn ich diesen button ÄNDERN geklickt habe, soll er mir die felder freigeben. d.h. aktivieren und entsperren.

nach den änderungen will ich auf den button SPEICHERN klicken, und er soll 1.speichern und 2.wieder die felder deaktivieren und sperren.

dazu brauche ich VBA oder?

 

Hi

das heißt n:m

Ansonsten: Korrekt, du benötigst VBA.

Sobald du auf Ändern klickst muss folgendes durchgeführt werden:

Code:

me.Textfeldname.enabled = true
me.Textfeldname.locked = false

beim Speichern sollte folgendes passieren:

Code:

me.dirty = false 'Speichern
me.Textfeldname.enabled = false
me.Textfeldname.locked = true

 

ok danke, klappt.

aber brauche ich das speichern überhaupt?
ich schreibe doch eh direkt in die tabelle oder?

also er speichert auch so.

wenn ich nun 20 textfelder habe, muss ich für jedes einzelne diesen code schreiben oder gibts etwas einfaches?

 

Nicht zwingend...du hast normalerweise bei einem Formular an der linken Seite einen Balken, dort ist entweder ein schwarzes Dreieck oder ein Stift drin. Der Stift kommt, sobald du ein gebundenes Feld änderst. SOlange der Stift zu sehen ist, ist die Änderung nur transparent, sprich: du siehst sie, sie ist aber kein Bestandteil der Tabelle

also er speichert auch so.

Entweder für 20 oder falls sie Textfeld1, textfeld2 oder so heißen

Code:

For i = 1 to AnzahlTextfelder

me.controls("Textfeld" & i).enabled=true
me.controls("Textfeld" & i).locked = false

next i

 

hab was besseres gefunden:

Code:

Private Sub Schreibschutz(boolSchreibschutz As Boolean)

Dim ctl As Control

For Each ctl In Me.Controls

If ctl.Tag = "x" Then              [COLOR="SeaGreen"]'x muss als Marke in jedem[/COLOR]  
 ctl.Enabled = Not boolSchreibschutz [COLOR="SeaGreen"]'textfeld stehen, den man[/COLOR]
 ctl.Locked = boolSchreibschutz        [COLOR="SeaGreen"]'einbeziehen möchte[/COLOR]
           
End If

Next ctl
    
End Sub

Wenn man auf den Button ÄNDERN klickt:

Code:

Schreibschutz [COLOR="Red"]FALSE[/COLOR]

Wenn man auf den Button SPEICHERN klickt:

Code:

Schreibschutz [COLOR="Blue"]TRUE[/COLOR]

Ma guggn was das nächste Problem sein wird

 

eierlegende wollmilchsau??? was soll das denn heissen?

mache jetzt mal feierabend. schreibe wenn ich daheiom bin wieder... dann erklär ich dir das formular. oder kanns ja mal schicken.

bis dann byebye

 

ch weiss nicht obs wichtig ist, aber das UFo befindet sich in einem RegisterMenu.
das registersteuerelement heisst Menu und die registerkarte heisst Monitor

hier mal ein bild



ganz oben soll man die option haben, ob man nach einem usernamen suchen möcjte oder nach dem pc namen. aber das funktioniert noch nicht so wie ich mir das vorstelle. nur nach dem pc-namen suchen geht.

und ich weiss noch nicht, ob ich diese DATEN ÄNDERN und DATEN SPEICHERN buttons ausserhalb des registers zu erstellen soll oder in jedem register menü. wenn ich es ausserhalb erstelle, müssen ALLE felder in dem kompletten register freigeschaltet werden. wenn ich es innhalb des registern erstelle, dann nur die die in dieser registerkarte sind. ich denke ich mache für jede registerkarte neue buttons...