DoCmd.GoToRecord benutzt man zum Wechseln des Datensatzes, also zum Beispiel zum nächsten, vorherigen, ersten, letzten oder zu einem neuen Datensatz gehen, wenn man sich in der entsprechenden Tabelle oder Abfrage befindet.

Zum Suchen eines bestimmten Datensatzes A oder B benutzt man "FindFirst" .

Was heisst "muss die Tabelle offen sein?" Was ist die Datensatzherkunft Deines Formulars??

Ich vestehe nicht wirklich, was Du da tust und was Du tun willst.

gruß Marie

Hallo Booyeoo,

Wo kommt der Text her ?


Soll das ganze in die Tabelle und B soll durch A ersetzt werden, oder möchtest Du eine relation zu beiden haben ?
Gruß Ralf

Genau Ralf ich möchte eine Relation zwischen den Beiden User A und B herstellen.

Ich habe eine Tabelle und eine Formular User.
In der Tabelle gibt es Usernamen, Liznenz_vergeben_an und Liznez_bekommen_von Spalten.
Nun soll , nachdem man im Formularfeld bei dem User (A) einen Namen (B) ins Lizenz_bekommen_von-Feld eingegeben hat, der Datensatz mit dem angegbenen Namen (B) um den Namen (A) im Lizenz_vergeben_an-Feld automatisch vervollständigt werden.

Vorher:
Name Vergeben_an Bekommen_von
A
B

Nachher:
Name Vergeben_an Bekommen_von
A B
B A

Habe jetzte versucht den FindFirst befehl zu finden, aber es gibt nur DoCmd.FindRecord, der ist wahrscheinlich gemeint.

Bisher:

Private Sub Licence_Inherited_From_LostFocus()
Dim username As String
If Me.Licence_Inherited_From <> "" Then
    username = Me.Loginname
    DoCmd.FindRecord (Me.Licence_Inherited_From) 'da muss noch irgendwie goto rein
    Licence_Inherited_To = username
    MsgBox ("Der User " & Loginname & "wurde geändert!")
End If
End Sub

Vielen Dank für eure Hilfe

Mist der löscht die Leerzeichen zwischen den A und B's... also das B hinter dem A gehört in die Spalte Vergeben_an und das A hinter dem B in die Spalte Bekommen_von

Grüße
Boo

Hi,
Ich versteh das ganze immer noch nicht so ganz.

Beantworte bitte mal die 1. Frage:



Gruß Ralf

Den Text gibt man in dieses Feld manuell bzw per Strg+V, also copy and paste, ein. Nachdem das Feld verlassen wird, also Focus lost, starten das Makro sucht den eingegebenen User usw...

Guten Morgen,

Ich würde 2 Tabellen anlegen, sagen wir mal LizenzNehmer und LizenzGeber.
Da ein LizenzNehmer auch ein LizenzGeber sein kann, wenn ich dich richtig verstanden habe,und ein Lizenzgeber auch mehrmals Lizenznehmer sein kann, und das ganze natürlich auch umgekehrt, muss das ganze eine m:n Beziehung sein.

Dafür ist eine 3. Tabelle notwendig.Die nennen wir Lizenztransfer.

In der Tabelle Lizenzgeber legst Du einen Primärschlüssel an,
Lizenzgeber_id als Autowert.

In der Tabelle Lizenznehmer dasselbe allerdings Lizenznehmer_id als Autowert.

In der Tabelle Lizenztransfer kommen die beiden Felder Lizenzgeber_id und Lizenznehmer_id hinein.

Lizenzgeber_id aus Tabelle Lizenzgeber wird nun 1:n mit Lizenzgeber_id aus Tabelle Lizenztransfer verknüpft.


Lizenznehmer_id aus Tabelle Lizenznehmer wird nun 1:n mit Lizenznehmer_id aus Tabelle Lizenztransfer verknüpft.

Jetzt hast Du jetzt einen zusammengesetzten Primärschlüssel in der Tabelle Lizenztransfer, somit ist jeder Lizenztransfer eindeutig zugeordnet.

Wenn Du jetzt im Formular das Feld Licence_from als Kombifeld einrichtest, kannst Du als Datenbasis die entsprechenden Daten aus Tabelle Lizenzgeber nehmen.

Für das andere Feld gehst Du auch so vor, allerdings nimmst Du die Daten aus Tabelle Lizenznehmer.

Ich hoffe das hilft Dir ein wenig weiter.
Gruß Ralf

Hallo,

Die Tabellen-Lösung habe ich nach langem hin und her verworfen aber danke für den Vorschlag.
Nun bleibe ich bei meiner Makro-Lösung jedoch fehlt mir eine Sache:

Wie bestimme ich die Zeilennr. (ID) eines bestimmten Records?!?!?!

Ich habe eine Tabelle [User] mit Spalten: Name, PIN,..., Vererbt an:,...

Ich möchte mit
DoCmd.GoToRecord acForm, Screen.ActiveForm.Name, acGoTo, 2
zu einem bestimmten Datensatz springen und zwar zu dem der in der Spalte Vererbt an steht. d.h die 2 soll ja durch die entsprechende ID ersetzt werden.

oder mit

DoCmd.FindRecord Me.Vererbt_an, acAnywhere, , acSearchAll, , acAll
irgendwie, jedoch funktioniert diese Methode weniger als die erste , bei mir.


Er soll aber nicht im Vererbt an Feld suchen sondern nur in der Spalte Name.
Und ich befinde mich in einem Formular.

Grüße

Du must dem feld erst den focus geben, dann nur in dem feld und nicht in allen feldern suchen...



Vererbt_an.SetFocus
DoCmd.FindRecord "Schmidt", , True, , True

aso... eh - Name.focus

Name ist ein ungünstiger Name da Name eventuell nur [Name].setFocus geschrieben werden kann damit Access weiß das du das Feld name und nicht die Eigenschaft Name meinst...

Danke Proggie, funktioniert genauso wie ichs haben wollte perfekt.

Grüße