Wie erstelle ich sql String zum Füllen des Kombinationsfelds?

Hallo,

ich versuche gerade Access zu verstehen und habe nun ein Problem.

Ich habe zwei Kombinationsfelder:

KombiFeld01
KombiFeld02

Das zweite Kombinationsfeld soll abhängig von der Auswahl vom ersten Kombinationsfeld Einträge aus einer weiteren Tabelle anzeigen.

Das erste Kombinationsfeld wird bereits aus einer anderen Tabelle gefüllt.

Ich versuche also jetzt per VBA irgendwie einen Bezug von der Auswahl zur Tabelle zu erzeugen und komme nicht weiter.

Das sieht nun so aus (Variablen, weil ich nicht weiß wie ich die Spalten der Tabelle anhand der Auswahl im Kombinationsfeld auswählen soll):

Private Sub KombiFeld01_AfterUpdate()

Dim strSQL As String, Auswahl As String, Spalte As String, cbo As ComboBox, cbo2 As ComboBox

Set cbo = Me!KombiFeld01

Set cbo2 = Me!KombiFeld02

Select Case True

Case cbo = "Artikelbezeichnung"

Spalte = "Artikelbezeichnung"

Case cbo = "Artikel-Nummer"

Spalte = "ArtikelNummer"

Case cbo = "FA-Nummer"

Spalte = "FANummer"

Case cbo = "Fehlermeldung Nr."

Spalte = "Nr"

Case cbo = "Kunde"

Spalte = "KundeLang"

Case cbo = "Status"

Spalte = Me!KombiFeld01

Case cbo = "Zuständig"

Spalte = "zuständig"

End Select

strSQL = "SELECT DISTINCT '" & Spalte & "' FROM Fehlermeldungen ORDER BY '" & Spalte & "' WHERE '" & cbo & "' "

cbo2.RowSource = strSQL

End Sub

Ich verstehe nicht, wie Select where überhaupt funktioniert.

Vielleicht kann jemand helfen. Vielen Dank.

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

Xandros0506

17.10.2022, 11:12

Ich verstehe nicht, wie Select where überhaupt funktioniert.

WHERE definiert die Suchfilter. Hier haben nicht nur die Spalten zu stehen, sondern auch die Bedingungen, die von den Spalteninhalten erfüllt werden müssen.

Da gehört also ein Vergleichsoperator und ein Vergleichswert angegeben.

Zudem ist mir reichlich schleierhaft, was du mit dem Select Case da bewerkstelligen willst.

Abhängige Kombinationsfelder:

http://donkarl.com/ unter Access-FAQ - 4 Formulare - 4.36 Abhängige Kombi/Listenfelder

fx8350

Fragesteller

17.10.2022, 11:42

Hi, ich hatte mir den Artikel bereits durchgelesen.

Select case, weil die Spaltennamen der Tabelle zu Kombifeld 2 abweichen von den Namen aus der Auswahl zu Kombifeld 1.

Ich habe leider gar keinen Plan, ich bekomme das erste Kombinationsfeld gefüllt.

Nun möchte ich anhand der Auswahl die Werte aus der dazugehörigen Spalte einer der anderen Tabelle anzeigen lassen.

Das ist wahrscheinlich nicht schwer, aber ich habe es noch nie gemacht. Bister nur Excel VBA.

fx8350

Fragesteller

17.10.2022, 13:27

ich weiß auch nicht, wie ich die Tabellen überhaupt verknüpfen kann. Alle Beispiele die ich im Internet finde, passen nicht zu meinem Fall. Oder vielleicht geht das nicht? Mit EXcel VBA ist es so leicht.

Hallo, ich habe eine Frage zu meinem VBA Code. Und zwar sollen verschiedene Tastatureingaben verschiedene Funktionen triggern. Bei Zahlen, Buchstaben, Plus, Minus, "&"-Zeichen, "!"-Zeichen und einige andere Tasten gehen. "*"-Zeichen, Prozent, "(" und ")" bspw. gehen jedoch NICHT (als KeyCode wird 0 zurückgegeben). Hat jemand eine Ahnung woran das liegt?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  handleKeyDown KeyCode, Shift
End Sub

Private Sub handleKeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim keyChar As String * 1
  keyChar = Chr(KeyCode)
  MsgBox (KeyCode)
  Select Case keyChar
  Case "0"
    numb0_Click
  Case "1"
    numb1_Click
  '.....
  Case Else
  End Select
  Select Case KeyCode
  Case "187"
    plus_Click
  '....
  Case Else 
  End Select
End Sub

Danke für alle Antworten,

Nicolas

...zur Frage

Wie kann ich die Combobox mit einem CommandButton verknüpfen ( in Excel-VBA)?

Hallo,

ich habe in Excel-VBA eine Combobox erstellt mit mehreren Auswahlmöglichkeiten und einen Commandbutton. Ich möchte, dass sich je nachdem welche Auswahl man trifft aus der Combobox sich eine andere Userform öffnet, wenn ich den CommandButton drücke. Meine Daten aus der Combobox habe ich in einer Excel-Tabelle (H2;H9). Kann mir jemand helfen? Danke

...zur Frage

Excel - Copy Paste gefilterte Daten,was mache ich falsch?

Hallo,

ich habe auf einer Spalte N eine Filterung welche Daten besitzt die ich gerne in eine andere Spalte M einfügen möchte. Da die Daten nun gefiltert sind befinden sich zwischen den gefilterten Zeilen ja weitere Datensätze, welche aber nicht mit kopiert werden sollen.

Zu dem Thema gibt es eigentlich eine Anleitung sowie YouTube Videos aber anscheinend bin ich leider zu dusselig.

Vorgehensweise:

Ich markiere die gefilterten Daten in Spalte N, gehe über Filter auf "Gehe zu", hier lasse ich mir über 'inhalte" nur die "sichtbaren Werte" ausgeben. Jetzt kopiere ich die Auswahl, klicke in M2, einfügen.

Fehlermeldung: Dies ist bei Mehrfachauswahl nicht möglich. Auch wenn ich die gleiche Anzahl an Zeilen in der einzufügebden Spalte M wie aus der kopierten spalten N auswähle, kommt diese Meldung. Ebenfalls wenn ich die Auswahl außerhalb der Tabelle einfügen möchte.

Woran scheitert es? Vielleicht könnt ihr auch die passende shortcut Reihenfolge mitteilen?

Vielen vielen Dank

...zur Frage

Zeile kopieren mit Bedingung?

Guten Morgen zusammen,

ich möchte gerne folgendes mit einem Marko lösen.

In einer Daten Tabelle sind sämtliche Werte vorhanden. Diese sollen in ein Tabellenblatt Tabelle 2 kopiert werden.

Die letzte Zeile bestimme ich über

' Bestimmung der Anzahl der ausgefüllten Zellen in Spalte 3

Sheets("DATEN").Select

FinalRow = Cells(Rows.Count, 3).End(xlUp).Row

Nun möchte ich folgendes in Tabelle2 umsetzten.

Daten Spalte B soll nach Tabelle2 Spalte C kopiert werden

Daten Spalte C soll nach Tabelle2 Spalte D kopiert werden

Daten Spalte D soll nach Tabelle2 Spalte E kopiert werden

Nun soll in Spalte F eine Unterscheidung stattfinden,

Wenn in Spalte D eine 1 steht soll der Wert von Daten Spalte D nochmals in Tabelle2 Spalte F kopiert werden

Wenn in Spalte D eine 0 steht soll der Wert von Daten Spalte D nochmals in Tabelle2 Spalte G kopiert werden

Wie könnte dieses mit einem Makro realisiert werden?

Vielen Dank für euere Unterstützung.

Tobias

...zur Frage

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

...zur Frage

Combobox mit Daten einer Spalte(B) füllen aber nur,wo in der gleichen Zeile in Spalte(G) nein steht

        Private Sub UserForm_Initialize()
With Me.txtDatum.Value = Date


   Dim r As Range
With Worksheets("Daten")
        Set r = .Range("B1", .Range("B65536").End(xlUp))
ComboBox1.RowSource = "Daten!" & r.Address
End With
End With




End Sub

Ist es möglich, dass die combobox all jene Daten herausfiltert wo, in Spalte G nein steht? Also praktisch dass es mir nurmehr jene Daten aus Spalte B in der Combobox anzeigt wo in der gleichen Zeile in Spalte G ein nein steht ? Danke im Voraus

...zur Frage

Wie kann ich bei Excel ein Kombinationsfeld in eine Zelle einbinden?

Ich habe ein Tabelle in der ich, in einer ganzen Spalte jede Zelle mit einem Kombinationsfeld überdeckt habe. Jetzt möchte ich jedoch das die Kombinationsfelder zusammen mit der Spalte, welche in eine Spaltengruppe integriert ist, zusammen verschwinden wenn ich diese Spaltengruppe schließe. Kann mir jemand weiterhelfen?

Alternativ müsste ich die Kombinationsfelder sauber übereinander Ordnen was ich auch nicht geschafft habe.

Vielen Dank für die Hilfe.

...zur Frage

Wie kann ich eine Combobox in VBA mit Werten füllen?

Hallo, ich programmiere in VBA etwas und nun bin ich an einem Punkt angelangt, an dem ich nicht weiß wie ich ihn lösen könnte. Ich habe eine Userform erstellt und dort gibt es eine Combobox. Wenn man dort einen Wert auswählt, wird dieser in einer Tabelle mit Datensätzen im Hintergrund gefiltert. Eine weitere Combobox erscheint, und diese soll nun mit den Werten gefüllt werden, die beim bereits gefilterten in einer anderen Spalte übrig bleiben. Die gleichen Wörter können dort auch noch öfter vorkommen. Also ich filtere zum Beispiel als erstes nach Nahrungsmittel und in der Combobox danach sollte dann Käse, Gemüse, Obst etc. zu wählen sein. Nun meine Frage: Wie kann ich aus einer bereits Gefilterten Tabelle Werte die übrig geblieben sind für die Initialisierung meiner Combobox verwenden? Danke für die Antworten schon im Voraus!

PS: Ist in Excel und nicht Access (hat seine Gründe)

...zur Frage

Kopieren und auf andere Tabelle einfügen per VBA

Hei Leute, habe in Tabelle 3 im Bereich B5:C30 Texte stehen die ich ab der ersten freien Zelle in der Tabelle 1 der Spalte A einfügen muss. Dies muss ich ca. 100 mal machen, daher möchte ich es nicht von Hand machen. Habe schon selber probiert aber irgend etwas ist falsch, das Makro kopiert geht in die freie Zelle Tabelle1 Spalte A , aber fügt nicht ein. Kommt der Fehler Laufzeitfehler.

Sub umwechseln()

' umwechseln Makro

Dim s As String Dim i As Long

Range("A5:A29").Select
Application.CutCopyMode = False
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B5:C30").Select
 Sheets("Tabelle1").Select
    With ActiveSheet
i = 0
Do
    i = i + 1
    s = Cells(i, "A")
    If Len(s) = 0 Then
        Cells(i, "A").Select
        
        Exit Do
    End If
Loop While i < 65535End With   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False Sheets("Tabelle3").Select
Range("E10").Select

End Sub

Sorry wenn das nicht gut dargestellt ist...weis nicht wie man aus VBA kopiert und hier in welchen Format einfügt.

Gruß Monkee

...zur Frage

Excel VBA automatisch nächste freie Spalte nehmen?

hi hab mir mit Makros in VBA was zum übertragen von Daten in eine andere Arbeitsblatt zusammengebastelt. Dort soll es in eine Tabelle eingefügt werden die sich automatisch um eine Spalte nach rechts erweitern soll mit jedem Eintrag.

Sub inauftragplus()
   Range("D11:D22").Select
   Selection.Copy
   Sheets("Datenbank").Select
   ActiveWindow.SmallScroll Down:=-81
   Range("B9").Select
   ActiveSheet.Paste
   Sheets("Eingabe").Select
   Application.CutCopyMode = False
   Selection.ClearContents
End Sub

...zur Frage

Was genau ist der Unterschied zwischen AND und OR bei SQL?

Beispiel:

SELECT* FROM Tabelle WHERE Alter = 30 OR Alter = 40

SELECT* FROM Tabelle WHERE Alter = 30 AND Alter = 40

was genau ist der Unterschied?

...zur Frage

Wie ändere ich die Farbe der Blattregisterkarte basierend auf mehrere Zellenwerte?

Das habe ich im Netz gefunden, aber ich brauche die Abfrage für mehrere Zellen (A1:A10)

Kann mir da jemand helfen ??

Gruß Heiko



Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

...zur Frage

SQL - In selber Tabelle Werte Vergleichen

Hallo!

Ich soll in einer tabelle nur die Produkte raussuchen, die denselben wert in spalte 1, spalte 2 und spalte 3 haben. wie kann ich die in sql über einen select rausfinden?

...zur Frage

Excel VBA - Dropdown Kombinationsfeld Test auslesen?

Hallo Community, ich hab zwar etwas Erfahrung in Visual Basic aber verzweifle an VBA. Folgendes Problem habe ich.

Ich habe ein Kombinationsfeld (Formularsteuerelement) „Dropdown 13“

Dieses Kombinationsfeld ist schon mit einer Liste gefüllt.

Bsp. Text1 Text2 Text3 ….

Ich möchte im VBA Code den Wert bzw. Text auslesen, eigentlich ganz einfach.

Bsp.

Dim Wert as String

If Dropdown13.Text = “Text1” Then

Wert = Text1

End If