Zugriff 2013 - Wert aus Textfeld speichern und erneut anzeigen, wenn das Formular nach dem Schließen geöffnet wird

Question

Ich möchte einen Wert aus einem Textfeld beispielsweise in einer Zeichenfolge speichern und beim Öffnen des Formulars erneut anzeigen.

Ich habe zwei Textfelder PriceRangeOne und PriceRangeTwo .. Der Benutzer hier 20 zum Beispiel eingeben und 40

Das Problem, das ich habe ist, dass, wenn der Benutzer zwischen Form und die Werte in diesem Textfeld Bericht gelöscht werden beeing. Wie kann ich sie speichern?

Ich habe versucht, eine Quellcodeverwaltung zu den Feldern hinzufügen, aber hatte Namensfehler, obwohl ich verschiedene Namen verwendet.

Ich habe versucht, dies zu ändern, um das Hinzufügen und es in einem

Dim eingabe As String = textBox1.Text or .Value 

Noch onload abrufen nicht gearbeitet hat. Kennt jemand einen Weg, dies zu tun?

Answer 1

In der Regel ist die effizienteste und zuverlässigste Methode, ein Formular automatisch zu öffnen, wenn die Datenbank geöffnet wird. Es könnte ein Dashboard sein, oder nur ein Formular mit nichts anderem. Was auch immer Sie verwenden, starten Sie es, wenn die Datenbank geöffnet und minimieren Sie es dann. Jetzt haben Sie ein Formular, das immer geöffnet ist, solange die Anwendung geöffnet ist. Fügen Sie diesem Formular/Dashboard ein paar Textfelder hinzu.

Wenn Sie Ihr in dieser Frage referenziertes Formular schließen, schreiben Sie die Werte von PriceRangeOne und PriceRangeTwo in die Textfelder des Formulars, das ich oben beschrieben habe. Wenn Sie dann ein neues Formular oder einen neuen Bericht öffnen, können Sie auf die Werte in diesen Textfeldern verweisen. Da das Formular immer geöffnet ist, können Sie jederzeit von jedem Formular oder Bericht aus auf diese Werte verweisen, bis Sie Ihre Datenbank schließen.

Answer 2

Gelöst es mit Variablen.

ich deklarierte globale Variablen in meinem standart Modul

Zum Beispiel

Public PriceOne As Double 
Public PriceTwo As Double 

, als ich in meiner Form hätte dies in Close() und Open():

Private Sub Form_Close() 
PriceOne = Me.Field 
PriceTwo = Me.FieldTwo 
End Sub 

Private Sub Form_Open(Cancel As Integer) 
Me.Field = PriceOne 
Me.FieldTwo = PriceTwo 
End Sub 

perfekt funktioniert !