Überwinden VBA InputBox-Zeichen-Grenze

Die aktuelle Funktion, die ich verwenden, um zu sammeln, text InputBox kann nicht akzeptieren, mehr als 255 Zeichen offenbar, und ich muss in der Lage sein, zu sammeln mehr als das? Gibt es einen parameter oder eine andere Funktion, die ich nutzen kann um das limit zu erhöhen?

Warum eine InputBox? Ein kleines Formular und Textfeld ist fast immer eine bessere Idee.
denn das braucht viel mehr code und ist nicht immer einfach für die Entwickler zu verwenden, während die InputBox ist sehr zugänglich. Ansonsten +1
~ Ich glaube nicht, dass es eine längere Zeichenfolge, SOL... Follow @Remou Beratung.

InformationsquelleAutor Ryan B | 2010-06-03

  1. 4

    Werden pedantisch, die Inputbox wird, lassen Sie Sie geben Sie bis zu 255 Zeichen, aber es werden nur 254 Zeichen.

    Darüber hinaus, ja, Sie müssen, um ein einfaches Formular mit einem Textfeld. Dann machen Sie einfach eine kleine "Hilfsfunktion" so etwas wie:

    Function getBigInput(prompt As String) As String
    frmBigInputBox.Caption = prompt
    frmBigInputBox.Show
    getBigInput = frmBigInputBox.txtStuff.Text
End Function

    ... oder etwas ähnliches ...

    sollte dies nicht in einem label, wie dies frmBigInputBox.myLabel.caption = prompt sonst ist alles in der oberen Leiste des Formulars/Fenster.

    InformationsquelleAutor BradC

  2. 2

    Dank BradC für die info. Mein letzter code war in etwa wie folgt, ich habe einen button, der nennt die form, die ich erstellt und positioniert es ein wenig, als ich hatte einige Probleme mit dem Formular an der falschen Stelle, die jedesmal, nachdem ich das erste mal verwendet.

    Sub InsertNotesAttempt()
    NoteEntryForm.Show
    With NoteEntryForm
        .Top = 125
        .Left = 125
    End With
End Sub

    Die userform war eine TextBox und zwei Befehlsschaltflächen(Abbrechen und Ok). Der code für die Tasten wie folgt:

    Private Sub CancelButton_Click()
    Unload NoteEntryForm
End Sub

Private Sub OkButton_Click()
    Dim UserNotes As String

    UserNotes = NotesInput.Text

    Application.ScreenUpdating = False
    If UserNotes = "" Then
        NoteEntryForm.Hide
        Exit Sub
    End If

    Worksheets("Notes").ListObjects("Notes").ListRows.Add (1)
    Worksheets("Notes").Range("Notes").Cells(1, 1) = Date
    Worksheets("Notes").Range("Notes").Cells(1, 2) = UserNotes
    Worksheets("Notes").Range("Notes").Cells(1, 2).WrapText = True
    ' Crap fix to get the wrap to work. I noticed that after I inserted another row the previous rows
    ' word wrap property would kick in. So I just add in and delete a row to force that behaviour.
    Worksheets("Notes").ListObjects("Notes").ListRows.Add (1)
    Worksheets("Notes").Range("Notes").Item(1).Delete
    NotesInput.Text = vbNullString
    NotesInput.SetFocus ' Retains focus on text entry box instead of command button.
    NoteEntryForm.Hide
    Application.ScreenUpdating = True
End Sub

    InformationsquelleAutor Ryan B

  3. 1

    Ich habe nicht genug rep Kommentar, aber in der sub form_load für die Helfer, die Sie hinzufügen können:

    me.AutoCenter = True

    Außerhalb des Formulars, können Sie es so machen:

    NoteEntryForm.Show
Forms("NoteEntryForm").AutoCenter = True

    Meine Access-Formulare bekommen Sie alle verwirrt, wenn ich von meinen beiden extra Monitoren bei der Arbeit an meinem einen zusätzlichen monitor zu Hause, und sind manchmal verloren in der Ecke. Das AutoCenter hat es in der form Eigenschaften von jedem meiner Formulare.

    Willkommen auf der Website! Dieser versucht nicht die Antwort auf die gepostete Frage, wie Sie wissen, und ein Kommentar Hinzugefügt werden soll. Bitte benutzen Sie Antworten ausschließlich die Frage zu beantworten. Zu Kritik oder fordern Sie die Klärung von Autor, lassen Sie einen Kommentar unten Ihre post - Sie können immer einen Kommentar auf deine eigenen Beiträge, und einmal haben Sie ausreichend ansehen Sie werden in der Lage sein Kommentar auf jedem post. In der Zwischenzeit, bitte benutzen Sie nicht Antworten Kommentare zu posten.

    InformationsquelleAutor sweBers

Schreibe einen Kommentar