Access VBA Code für Suchformular geht nicht?

Hey, ich habe in einem Formular "Hauptmenü" ein Unterformular "InstallationskeysFormular", in dem Hauptformular habe ich ein Textfeld "txtSuche" und einen Button "btnSuche", mit folgendem Code:

Private Sub btnSuche_Click()

Dim strFilter As String

If Not IsNull(Me!txtSuche) Then

strFilter = "Produkt LIKE '*" & Me!txtSuche & "*' OR Beleg LIKE '*" & Me!txtSuche & "*' OR Kundennummer LIKE '*" & Me!txtSuche & "*'"

Me.Filter = strFilter

Me.FilterOn = True

End If

End Sub

Mithilfe dessen möchte ich das Unterformular sowohl nach Produkt, Beleg oder Kundennummer durchsuchen können und nur die passenden Datensätze sollen im Unterformular angezeigt werden.

In einem anderen Formular, welches kein Unterformular hat, funktioniert das einwandfrei.

Deshalb habe ich folgendes versucht, ich habe bei den Me.Filter und Me.FilterOn, den Namen des Unterformulares ergänzt, aber funktionieren tut es immer noch nicht, kann mir bitte wer sagen woran das liegt, dankeee.

Private Sub btnSuche_Click()

Dim strFilter As String

If Not IsNull(Me!txtSuche) Then

strFilter = "Produkt LIKE '*" & Me!txtSuche & "*' OR Beleg LIKE '*" & Me!txtSuche & "*' OR Kundennummer LIKE '*" & Me!txtSuche & "*'"

Me.InstallationskeysFormular.Filter = strFilter

Me.InstallationskeysFormular.FilterOn = True

End If

End Sub

11.07.2022, 11:40

Edit:

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

daCypher

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

programmieren

11.07.2022, 11:12

Da fehlt noch ein "Form", damit wirklich die Optionen für das Formular angesprochen werden und nicht nur der Platzhalter im Hauptformular.

Also statt dem:

  Me.InstallationskeysFormular.Filter = strFilter
  Me.InstallationskeysFormular.FilterOn = True

machst du das:

  Me.InstallationskeysFormular.Form.Filter = strFilter
  Me.InstallationskeysFormular.Form.FilterOn = True

HerkulesGamer

Fragesteller

11.07.2022, 11:13

vielen dank

daCypher

11.07.2022, 11:14

@HerkulesGamer

Bitteschön 👍

HerkulesGamer

Fragesteller

11.07.2022, 11:17

leider geht es immer noch nicht, kann es daran liegen, dass das Unterformular in der Datenblattansicht ist?

daCypher

11.07.2022, 11:32

@HerkulesGamer

Habs grade mal selber nachgebaut. Der Filter funktioniert so. Die Spalten, die angezeigt werden sollen, müssen aber im Detailbereich vom Unterformular drin sein, auch wenn du die Datenblattansicht benutzt, sonst siehst du zwar, dass es Zeilen gibt, aber in den Zeilen steht nichts.

HerkulesGamer

Fragesteller

11.07.2022, 12:01

@daCypher

okey danke, ich habs geschafft, das Unterformular hieß ursprünglich nur Installationskeys, habe es dann umbenannt, in der Datensatzherkunft, war das auch geändert, aber bei Name stand das noch falsch

daCypher

11.07.2022, 12:07

@HerkulesGamer

Achso. Das ist natürlich auch ein Grund, dass es nicht funktioniert.

Ähnliche Fragen

Access Code VBA?

Hey, ich habe ein Textfeld mit dem Namen: txtSuchen , welches folgendes Ereignis, bei Veränderung hat:

Private Sub txtSuchen_Change()

If Me.Dirty Then

DoCmd.RunCommand acCmdSaveRecord

End If

Me.RecordsetClone.FindFirst ("[Produkt] Like '" & Me!txtSuchen.Text & "*'")

If Me.RecordsetClone.NoMatch Then

Me!txtSuchen.SelStart = Len("" & Me!txtSuchen.Text)

Exit Sub

Else

Me.Bookmark = Me.RecordsetClone.Bookmark

Me!txtSuchen.SetFocus

Me!txtSuchen.SelStart = Len("" & Me!txtSuchen.Text)

End If

End Sub

Das Suchfeld ist in einem Formular Namens Hauptmenü, soll aber die Aktion in einem Unterformular Namens InstallationskeysFormular ausführen, der Code funktioniert leider nur dann, wenn man etwas im gleichen Formular suchen möchte, kann mir jemand sagen, wie ich den Code umschreiben müsste, dass er die Aktion in dem Unterformular ausführt?

...zur Frage

Wie kann man in Access mehrere Filter per ODER verknüpfen?

Ich habe eine Access Datenbank-Tabelle mit den Einträgen Ersatzteilnummer, Materialtext, Typennummer, Sonstige Nummer und Kommentar.

Über ein Formular mit Suchfeld möchte ich mir Alle Datensätze anzeigen lassen, bei denen mindestens eine der Spalten meiner Datenbank den Suchbegriff enthält. Es sollen also alle Datensätze angezeigt werden bei denen die Eingabe im Materialtext vorkommt ODER in der Typennummer ODER im Kommentar usw.

Der Filter wie unten eingefügt funktioniert mehr oder weniger, jedoch habe ich so keine ODER Verknüpfung. Hat vielleicht jemand eine Idee, wie ich das realisieren könnte?

Vielen lieben Dank!! Max

If Len(Me!txtQSf) > 0 Then

Me.Filter = ""
       If Ersatzteilenummer Like "" & Me!txtQSf & "" Then
       Me.Filter = "Ersatzteilenummer LIKE '" & Me!txtQSf & "'"
       Me.FilterOn = True
    Else
        If Materialtext Like "*" & Me!txtQSf & "*" Then
            Me.Filter = "Materialtext LIKE '*" & Me!txtQSf & "*'"
            Me.FilterOn = True
        Else
                If Typennummer Like "*" & Me!txtQSf & "*" Then
                     Me.Filter = "Typennummer LIKE '*" & Me!txtQSf & "*'"
                     Me.FilterOn = True
                Else
                  If Kommentar Like "*" & Me!txtQSf & "*" Then
                      Me.Filter = "Kommentar LIKE '*" & Me!txtQSf & "*'"
                      Me.FilterOn = True
                  Else
                    If Sonstige_Nummer Like "*" & Me!txtQSf & "*" Then
                            Me.Filter = "Sonstige_Nummer LIKE '*" & Me!txtQSf & "*'"
                            Me.FilterOn = True
                    Else
                        Me.Filter = "Materialtext LIKE '*" & Me!txtQSf & "*'"
                        Me.FilterOn = True                              
     End If
     End If
     End If
     End If
     End If
Else
Me.Filter = ""
Me.FilterOn = False
End If

End Sub

...zur Frage

Wie kann ich meine Excel (VBA) "Zeile Ein- und Ausblenden Formel" vereinfachen?

Hallo zusammen

Ich suche nach einer schnelleren Formellösung, welche alle Zeilen ausblendet, wenn in Spalte A der jeweiligen Zeile das Formelergebnis 0 steht und wieder einblendet, wenn das Ergebnis 1 ist. Die Rechnung passiert dabei auf einer anderen Tabelle; in der Tabelle mit dem Makro steht dann lediglich: ='Tabelle2'!A11 (Dieser Wert wird somit übertragen und ändert sich demzufolge)

Makro:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Range("A11") = 0 Then

Rows("11:12").EntireRow.Hidden = True

End If

If Range("A11") <> 0 Then

Rows("11:12").EntireRow.Hidden = False

End If

If Range("A13") = 0 Then

Rows("13:14").EntireRow.Hidden = True

End If

If Range("A13") <> 0 Then

Rows("13:14").EntireRow.Hidden = False

End If

If Range("A15") = 0 Then

Rows("15:16").EntireRow.Hidden = True

End If

If Range("A15") <> 0 Then

Rows("15:16").EntireRow.Hidden = False

End If

...

(UNTERBRUCH) ...........das geht weiter bis "A360"

...

End Sub

Dieser Ablauf dauert jedoch eine gefühlte Ewigkeit; geht das schneller?

Danke euch.

Gruss Swen

...zur Frage

Ich benötige einen Makro, um ausgewählte Filter beim Schliessen zurück zu setzen. Aber mit dem Blattschutz funktioniert das nicht mehr. Kann mir jemand helfen?

Ich habe bisher diesen Makro benutzt:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim wksSheet As Worksheet
    For Each wksSheet In ThisWorkbook.Worksheets
        With wksSheet
            If .AutoFilterMode Then
                If .FilterMode Then
                    .ShowAllData
                End If
            End If
        End With
    Next wksSheet
    ThisWorkbook.Save
End Sub

...zur Frage

Hallo, ich möchte in einer Excel Datei per vba code bis zur ersten leeren zeile gehen, wie tue ich das?

ich möchte zur ersten leeren Zeile gehen und dann den rest markieren und löschen, also den kompletten Bereich ab da? BSp. A10 ist leer, dann möchte ich ab A10:z10 und abwärts alles markieren und löschen

Wie??

Sub FIND_EMPTY_CELL()

    Dim zeil As Integer
    Dim z As Integer
    Dim leerAbWo As Long

    zeil = ActiveSheet.UsedRange.Rows.Count 'letzte ausgefüllte Zeile

    For z = 8 To zeil

            If Cells(z, 1) = "" Then
                'leere Zelle gefunden
                leerAbWo = Cells(z, 1).Select 'gefundene Zelle selektieren
                'jetzt ab da an bis AA markieren und rest löschen!!!
                MsgBox leerAbWo
                Exit Sub
            End If
    Next z
End Sub

...zur Frage

VBA MSG BOX Titel nur aufzählen wenn Spalte "L" bestimmter Text?

Hallo zusammen,

ich komme bei diesem Code nicht weiter. Die Msgbox soll nur die Zeilen auflisten wenn ihn Spalte "L" der Text "offen" vorkommt. Kann mir dabei jemand bitte behilflich sein?

Private Sub Workbook_Open()

Dim rDatWartung

Dim sMsgBaldFaellig As String

Dim sMsgUeberFaellig As String

sMsgBaldFaellig = ""

sMsgUeberFaellig = ""

lz = Cells(Rows.Count, 5).End(xlUp).Row

For Each rDatWartung In Range("D30:D600")

If rDatWartung.Value <> "" Then

If rDatWartung.Value <= Date + 7 Then

sMsgUeberFaellig = sMsgUeberFaellig & Cells(rDatWartung.Row, 4) & " " & vbCrLf & Cells(rDatWartung.Row, 6)

Else

If rDatWartung.Value <= Date + 14 Then _

sMsgBaldFaellig = sMsgBaldFaellig & Cells(rDatWartung.Row, 4) & " " & Cells(rDatWartung.Row, 4) & vbCrLf

End If

If sMsgUeberFaellig & sMsgBaldFaellig <> "" Then

MsgBox "Überfällig" & vbCrLf & " " & sMsgUeberFaellig

End If

End Sub

Herzlichen Dank, und einen schönen Abend

...zur Frage

Excel-Code für Mehrfachauswahl in Dropdown-Listen?

Hallo zusammen,

Ich versuche gerade ein Excel-Dokument zu erstellen, bei dem eine Mehrfachauswahl aus Dropdown-Listen möglich ist. Das heißt aus einer Liste sollte es möglich sein mehrere Werte anzuwählen. Das habe ich auch mit dem untenstehenden VisualBasic-Code gemeistert. Allerdings habe ich erstens das Problem, dass auch eine Mehrfachauswahl des immer gleichen Wertes möglich ist. Theoretisch könnte also in einer Zelle x-mal derselbe Werte auftauchen. Dies soll natürlich nicht möglich sein. Bei Doppelauswahl desselben Wertes soll dieser aus der Zelle wieder verschwinden.

Mein zweites Problem ist, dass ich bislang nur 2 zwei Dropdown-Listen mit Mehrfachauswahl eingefügt bekomme. Sobald ich eine dritte Spalte versuche zu implementieren, bekomme ich eine Fehlermeldung für meinen Code.

Dadurch, dass ich mich mit dem Ganzen nicht so wirklich auskenne, wäre es sehr nett, wenn mir jemand helfen könnte.

Danke!

Bisheriger Code:

Private Sub Worksheet_Change(ByVal Target As Range)

** Mehrfachauswahl über DropDown-Liste

'** Einfügen im Code-Container des betreffenden Arbeitsblattes

'** Dimensionierung der Variablen

Dim rngDV As Range

Dim wert_old As String

Dim wertnew As String

'** Errorhandling

On Error GoTo Errorhandling

'** Mehrfachauswahl im definierten Bereich "Abteilungen" und "Themen" (Bsp. J2:J2000, I2:I2000) durchführen

If Not Application.Intersect(Target, Range("J2:J2000", "I2:I2000")) Is Nothing Then

'**Range definieren

Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)

If rngDV Is Nothing Then GoTo Errorhandling

'** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen

If Not Application.Intersect(Target, rngDV) Is Nothing Then

Application.EnableEvents = False

wertnew = Target.Value

Application.Undo

wertold = Target.Value

Target.Value = wertnew

If wertold <> "" Then

If wertnew <> "" Then

Target.Value = wertold & ", " & wertnew

End If

Application.EnableEvents = True

End If

Errorhandling:

Application.EnableEvents = True

End Sub

...zur Frage

VBA - Zwischenteil in Dateinamen ändern?

Hi zusammen,

ich muss folgende Dateinamen per Skriptfür rund 1000 Dateien wie folgt ändern:

Von:

3220022-8006-Amager_25_5_citrus-D-00

In:

3220022_8006_P_1

Den letzten Teil also D-00 in P_1 habe ich bereits hinbekommen. Wie ich jetzt aber alles nach dem ersten Zahlenpaar lösche weiß ich nicht.

Mein bisheriges Skript:

Sub Ordner_Auslesen()

'Bibliothek aktivieren

'Variablen dimensionieren

Dim fso As New FileSystemObject

Dim Pfad As String

Dim Ordner As Files

Dim Datei As File

'Pfad auslesen

Pfad = Tabelle1.Range("A1").Value

'Existiert der Ordner?

If fso.FolderExists(Pfad) Then

'Alle Dateien des Ordners einlesen

Set Ordner = fso.GetFolder(Pfad).Files

'Schleife über alle Dateien des Ordners

For Each Datei In Ordner

'Datei ausgeben

'Debug.Print Datei.Name

'Datei umbenennen

If InStr(Datei.Name, "D-00") <> 0 Then

Datei.Name = Replace(Datei.Name, "D-00", "P_1")

End If

Next Datei

Else

MsgBox "Dieser Ordner existiert nicht."

End If

End Sub

Kann mir jemand helfen?

...zur Frage

Hallo, ich möchte eine Access Tabelle mit einem Makro löschen, falls sie geöffnet ist, soll sie geschlossen werden und danach gelöscht werden?

Sub deleteTable()

If CurrentProject.AllForms("tblUpload").IsLoaded Then DoCmd.Close acForm, "tblUpload" Else DoCmd.DeleteObject acTable, "tblUpload" End If

End Sub

Bekomme aber eine Fehlermeldung: In dem von ihnen eingegebenen ausdruck wird auf ein objekt verwiesen, das geschlossen oder nicht vorhanden ist.

...zur Frage

Maximale Pfadlänge in Windows und VBA umgehen?

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen?

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

...zur Frage

Wie kann man in Excel-VBA mehrere If-bedingungen, die die selbse Reaktion auslösen sollen, zusammenfassen?

Ich habe in VBA eine Userform erstellt. Es handelt sich hierbei um eine Eingabemaske, die mehrere Textboxen enthält, die mit Werten ausgefüllt werden müssen. Das funktioniert soweit recht gut, aber ich möchte noch folgende Funktionalität ergänzen. Un zwar: Wird eines der Felder ausgelassen, soll die MsgBox erscheinen mit dem Hinweis, dass alle Felder ausgewählt werden müssen. Das ist bei einem Feld kein Problem:

If TextBox1.Value = "" Then MsgBox "Alle Felder müssen ausgefüllt werden" Exit Sub End If

Ich suche jetzt aber nach der Möglichkeit, wie ich die If-Then Struktur so umändern kann, dass die MsgBox erscheint, sobald eine oder mehrere der 10 Textboxen der Userform leergelassen werden.

...zur Frage

Visual Basic Ping Pong Spiel

Ich komme nicht weiter, da ich komplett neu bin. Ich versuche momentan dieses Spiel: http://www.youtube.com/watch?v=fySEJPoV74Q zu programmieren, nur in dem umgekerhrten Format. Aber es gibt zei Fehler: ,,Das Item ist Read only``

Hier der Code:

Public Class Form1 Dim unten As Double = +5 Dim rechts As Double = +5 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button1.Visible = True Button2.Visible = False

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Start()
    Button2.Visible = True
    Button1.Visible = False

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Timer1.Stop()
    Button1.Visible = True
    Button2.Visible = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


    ball.Bottom -= unten
    ball.Right -= rechts

    If ball.Left <= 0 Then rechts = -5
    If ball.Right >= 772 Then rechts = +5
    If ball.Bottom >= 659 Then unten = -5
    If ball.Top <= 0 Then unten = +5

    Plattform1.Top = MousePosition.X

    If ball.Top >= Plattform2.Top Then Plattform2.Top += 5

End Sub

End Class

Übrigens wenn ich die Maus bewege (wenn das Spiel an ist) bewegt sich mein ,,Schläger`` nach oben und unten. Hoffe das mir wer weiterhelfen kann =)

...zur Frage

mehrere Zahlen ausrechnen Windows Forms Taschenrechner?

Hallo,

Ich habe folgendes "Problem", habe meinen TR soweit hinbekommen, dass er Zahl 1 (+-*/) Zahl 2 ausrechnen kann. Nun soll ich Zahl 1 (+-*/) Zahl 2 (+-*/)Zahl 3,... ausrechnen können, stehe dabei leider irgendwie vor einer Wand und bekomme es nicht hin.

Hier der code: (etwas abgekürzt, da sonst zu lang)

Kopf=

Imports System.CodeDom
Public Class form1
  Public Property zahl As String = ""
  Public Property calc As String = ""

Bei alle Zahlen (0-9 sowie .)=

 Private Sub b1_Click(sender As Object, e As EventArgs) Handles b1.Click
    tb.Text += "1"
  End Sub

Delete Button=

 Private Sub bdel_Click(sender As Object, e As EventArgs) Handles bdel.Click
    If (tb.Text.Length > 0) Then
      tb.Text = tb.Text.Substring(0, tb.Text.Length - 1)
    End If
  End Sub
  End Sub

Gleich Button=

 Private Sub bsolve_Click(sender As Object, e As EventArgs) Handles bsolve.Click
    If (calc = "+") Then
      tb.Text = Val(zahl) + Val(tb.Text)
    End If
    If (calc = "-") Then
      tb.Text = Val(zahl) - Val(tb.Text)
    End If
    If (calc = "*") Then
      tb.Text = Val(zahl) * Val(tb.Text)
    End If
    If (calc = "/") Then
      tb.Text = Val(zahl) / Val(tb.Text)
    End If
  End Sub

bei allen Operatoren= (+,-,*,/)

Private Sub bplus_Click(sender As Object, e As EventArgs) Handles bplus.Click
    zahl = tb.Text
    calc = "+"
    tb.Text = ""
  End Sub

Vielen Dank schonmal

...zur Frage

Excel - Speicher-datum in Kopfzeile?

möchte immer das letzte Speicherdatum in der Kopfzeile. Habe bereits mehrere Lösungen gegoogelt, aber funktionieren tun sie nicht. Wo mache ich den Fehler?

Habe folgenden Befehl eingegeben

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim booIsSaved As Boolean
Dim strDatInfo As String
With ThisWorkbook
booIsSaved = .Saved
If .Path <> "" Then
strDatInfo = .BuiltinDocumentProperties("Last save time")
Else
strDatInfo = "noch nicht gespeichert"
End If
ActiveSheet.PageSetup.LeftHeader = "Zuletzt gespeichert: " & strDatInfo
.Saved = booIsSaved
End With
End Sub

Und hier noch einen printscreen. Besten Dank

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen