Eintrag vom Textfeld in ein anderes Textfeld kopieren

[lukyluke68]

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

[Hondo]

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

[lukyluke68]

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

[Hondo]

Nein, so:

Code (vb) [Auswählen] Erweitern

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

[lukyluke68]

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

[Hondo]

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

[lukyluke68]

Hallo Andreas,

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

[Hondo]

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

[lukyluke68]

Ja der Fehler kommt bei setFocus

[oma]

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

Me!DeinFeld1 = Me!DeinFeld2

Gruß Oma

[lukyluke68]

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

[Hondo]

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?

[lukyluke68]

Hallo,

die Kompilierung zeigt keinen Fehler.

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

[oma]

Hallo,

Wenn 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

[Hondo]

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