Access-o-Mania

Hallo,

ich möchte gerne durch das betätigen eines Button, den Eintrag vom Textfeld SAP_Auftrag_Stoerung in das Textfeld SAP_Auftrag_Reparatur kopieren.
Wir arbeiten im "Normalfall" mit zwei verschiedenen Auftrags Nummern. Es kann jedoch sein, dass die Stör.Nr die zuerst eingegeben wird, zugleich die Rep.Nr. ist uns somit erspare ich mir das nochmalige eintragen dieser Nr.

Am besten wäre es wenn beim betätigen des Button eine MsgBox erscheint, mit der Frage: Möchte Sie die Störauftrags Nr. kopieren.  Ja/Nein Auswahl

Hallo,
und was ist jetzt die Frage?
Wie man Text von einem Textfeld in ein anderes kopiert?
Me.Textfeld2.Text = Me.Textfeld1.Text

Gruß Andreas

Hallo Andreas,

muss es so aussehen?

Private Sub Befehl340_Click()
Me.SAP_Auftrag_Reparatur.Text = Me.SAP_Auftrag_Stoerung.Text

If MsgBox(" Möchten Sie die Störauftrags Nummer kopieren?", vbYesNo, "Speichern?") = vbNo Then
  Me.Undo  'rückgängig
  Cancel = True  'Ereignisse verhindern
End If
End Sub

Nein, so:

Private Sub Befehl340_Click()
    if MsgBox(" Möchten Sie die Störauftrags Nummer kopieren?", vbYesNo, "Speichern?") = vbYes Then
        Me.SAP_Auftrag_Reparatur.Text = Me.SAP_Auftrag_Stoerung.Text
    End If
End Sub

Noch ein Tipp,
benenne die Buttons entsprechend, sonst weisst du nicht mehr was was ist.
Befehl340 ist nicht sehr aussagekräftig.

Andreas

Hallo Andreas,

der Code bleibt bei Text stehen.

Private Sub Stoerauftrags_Nr_kopieren_Click()
If MsgBox("Möchten Sie die Störauftrags Nr. kopieren?", vbYesNo, "Speichern?") = vbYes Then
Me.SAP_Auftrag_Reparatur.Text = Me.SAP_Auftrag_Stoerung.Text
End If
End Sub

Aso, bei .Text muss erst der Focus im Feld sein.
Ist denn der Inhalt in SAP_Auftrag_Stoerung bereits gespeichert? wenn ja machst du folgendes:

Private Sub Stoerauftrags_Nr_kopieren_Click()
If MsgBox("Möchten Sie die Störauftrags Nr. kopieren?", vbYesNo, "Speichern?") = vbYes Then
Me.SAP_Auftrag_Reparatur.setFocus
Me.SAP_Auftrag_Reparatur.Text = Me.SAP_Auftrag_Stoerung
End If
End Sub

Hallo Andreas,

ja die Störauftrags Nr. ist bereits gespeichert. Jetzt hängt es bei setFocus

Hast du das VBA Projekt einmal kompelliert?
Bei mir funktioniert das perfekt.

Ja der Fehler kommt bei setFocus

Hallo,
zum kopieren ist eigentlich das setFocus nicht notwendig, es muss genügen:

Me!DeinFeld1 = Me!DeinFeld2

Gruß Oma

Hallo,

wie bereits oben beschrieben, bleibt dann der Code stehen bei Text

der Code bleibt bei Text stehen.

Private Sub Stoerauftrags_Nr_kopieren_Click()
If MsgBox("Möchten Sie die Störauftrags Nr. kopieren?", vbYesNo, "Speichern?") = vbYes Then
Me.SAP_Auftrag_Reparatur.Text = Me.SAP_Auftrag_Stoerung.Text
End If
End Sub

Muss man dir alles aus der Nase ziehen? Was für eine Meldung liefert der Compiler?
Wenn du die Text-Eigenschaft verwendest musst du den Focus zuvor setzen!!!
Man,liest du denn was ich schreibe?

Hallo,

die Kompilierung zeigt keinen Fehler.

Jetzt funktioniert es bis zur MsgBox. Bei Klick auf ja erscheint die Meldung

Hallo,

ZitatWenn du die Text-Eigenschaft verwendest musst du den Focus zuvor setzen!!!

nur warum mit  .Text, es geht doch auch: Me!DeinFeld1 = Me!DeinFeld2

Gruß Oma

ja oma, aber wenn mit .Text gearbeitet wird braucht es den Fokus.
Ansonsten Lukyluke, du kannst nicht lesen, den ich schrieb:
Me.SAP_Auftrag_Reparatur.Text = Me.SAP_Auftrag_Stoerung
Für mich ist dieses Thema damit erschöpfend abgehandelt...

Andreas

Hallo,

ja. das mit dem Focus ist korrekt.

Aber wenn mit mit .Text gearbeitet werden soll und Stoerung nach Reparatur kopiert werden soll, muss es dann nicht heißen:

Me!Reparatur= Me!Stoerung.Text  ?

Gruß Oma

Hallo,

es hat mit deim Eintrag

Private Sub Stoerauftrags_Nr_kopieren_Click()
If MsgBox("Soll die Störauftrags Nummer kopiert werden?", vbYesNo, "Speichern?") = vbYes Then
Me.SAP_Auftrag_Reparatur = Me.SAP_Auftrag_Stoerung
End If
End Sub

funtioniert.

Vielen Dank

Hallo,

die einfachsten Dinge sind oft die schwersten....  ;D

Habe den Beitrag verfolg denn ich suche eine sehr ähnliche Lösung.
Nur, ich habe die Felder nicht im selben Formular stehen, sondern das Quellfeld ist in einem Unterformular innerhalb eines Hauptformulars.
Der meckert aber das er die Objekte nicht findet.
Wie kann ich da vorgehen?

Hallo,
zeige was Du verwendet hast und zum Fehler führt.

Hi,

und nenne die Namen der beteiligten Steuerelemente, inkl. Unterformular.

Hallo,

ZitatWie kann ich da vorgehen?

Kommt darauf an, von wo aus du das Kopieren auslösen willst.
Vom HFo:
Me.Zielfeld = Me.UFoControlName.Form.Quellfeld
Vom UFo:
Me.Parent.Zielfeld = Me.Quellfeld
gruss ekkehard