Schleife über Textfelder in access-Formular und ändern Sie die Daten

Ich versuche Daten zu ändern, wenn ein access-Formular geöffnet. Auf die minute Daten sagt Wahr, und ich möchte, um das zu ändern, ja zu sagen, statt. Ich habe es zu gehen, aber ich bin neu in vba und weiß nicht wirklich, was ich Tue. Ich habe alle Textfelder die gleiche-Tag 'QtTxtBox' in der Hoffnung, dies würde helfen, aber es ist nicht. Unten ist, was ich habe, so weit, kann mir jemand helfen?

      Dim ctlVar As Control
      For Each ctlVar In Me.Controls
        If ctlVar.ControlType = acTextBox Then
            If acTextBox.text = "True" Then
               acTextBox.text = "yes"
            End If
      End If

InformationsquelleAutor user1643333 | 2013-05-01

4

Dein problem im Textfeld Verweis. acTextBox ist nicht eine textbox aus. Es ist nur ein Wert, der zeigt, dass ein Steuerelement-Typ ist eine textbox.

Also, wenn du sagst, " Wenn ctlVar.ControlType = acTextBox Dann', das ist korrekt.

Aber wenn du sagst, " Wenn acTextBox.text = "Wahr" Dann', das ist falsch. Sie sind sich nicht verweisen auf die Steuerung nicht mehr. Es sollte " Wenn ctlVar.text = "Wahr" Dann'. ctlVar ist Ihr Verweis auf das Steuerelement.

Außerdem müssen Sie legen Sie den Fokus auf das Textfeld, bevor Sie den Wert ändern. Hier ist, was Ihr code sollte wie folgt Aussehen:
```
For Each ctlVar In Me.Controls
  If ctlVar.ControlType = acTextBox Then
      If ctlVar.Value = "True" Then
         ctlVar.Value = "yes"
      End If
End If
```
Vielen Dank für deine Hilfe, jedoch .text warf eine Fehlermeldung, so dass ich verwendet .Wert statt und das schien völlig in Ordnung.
Mit .Wert statt .text erlaubt, Sie zu überspringen .setfocus-Methode. Froh bekamen Sie es das arbeiten.

InformationsquelleAutor Tom Collins
0

gibt es ein paar Dinge, verpackt in diesem kleinen Stück code-vielleicht sogar Ihr Problem -- nach zwei Tagen herauszufinden, dieses Zeug aus...
```
Function disorder()
  For c = 0 To 9
    s = Screen.ActiveForm.Controls("" & "[" & c & "]" & "").Caption
    r = Int(9 * Rnd)
    Screen.ActiveForm.Controls("" & "[" & c & "]" & "").Caption = Screen.ActiveForm.Controls("" & "[" & r & "]" & "").Caption
    Screen.ActiveForm.Controls("" & "[" & r & "]" & "").Caption = s
  Next
End Function
```
Sicherstellen Fokus auf die form, die ich will, die ich verwendet SendKeys "{ENTER}", die abgeholt wird, indem eine Standard-Schaltfläche auf dem Formular. In diesem Fall habe ich mehrere Steuerelemente mit dem Namen [1] und [2] etc um es einfacher zu machen, um eine Schleife durch Sie, aber Sie könnten die Namen etwas.

Schleife über alle Steuerelemente auf einer form...
```
For Each c In Screen.ActiveForm.Controls
  With c
    If Caption = "" Then Caption = "New"
  End With
Next
```
InformationsquelleAutor Gary Chernipeski
-3

So, wenn Sie konstruiert, der form legen Sie das Textfeld Beschriftung ein, die sagen, Wahr ist - richtig? Nun, wenn Sie wollen, um das zu ändern, wenn das Formular geladen wird dann Folgendes tun:
```
Private Sub Form_Load()

      acTextBox.Caption = "Yes"

End Sub
```
Die textbox nicht eine Caption-Eigenschaft. Etiketten verwenden Sie die Caption-Eigenschaft. Plus Sie haben die gleiche Referenz, acTextBox, statt ctlVar.
der label-Teil funktioniert ja - aber ich war nicht sicher, welcher Teil der OP Sprach.

InformationsquelleAutor Katana24

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.