|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.06.2020 18:39:59 |
Dietmar |
|
|
|
04.06.2020 19:22:58 |
Gast35886 |
|
|
|
05.06.2020 06:39:51 |
Dietmar |
|
|
|
05.06.2020 09:08:26 |
Gast35886 |
|
|
|
05.06.2020 10:48:06 |
Dietmar |
|
|
|
05.06.2020 11:17:43 |
Gast35886 |
|
|
|
05.06.2020 18:07:44 |
Dietmar |
|
|
|
05.06.2020 18:43:08 |
Gast 35886 |
|
|
|
05.06.2020 19:51:21 |
Dietmar |
|
|
|
05.06.2020 20:29:15 |
Gast 35886 |
|
|
|
06.06.2020 09:04:40 |
Dietmar |
|
|
|
06.06.2020 14:14:23 |
Gast 35886 |
|
|
|
06.06.2020 14:16:48 |
Gast 35886 |
|
|
|
06.06.2020 14:18:24 |
Gast 35886 |
|
|
|
07.06.2020 08:46:57 |
Dietmar |
|
|
|
07.06.2020 08:58:52 |
Gast 35886 |
|
|
|
07.06.2020 09:01:59 |
Gast 35886 |
|
|
|
08.06.2020 17:12:09 |
Dietmar |
|
|
|
07.06.2020 11:37:10 |
Dietmar |
|
|
|
08.06.2020 19:16:35 |
Gast 35886 |
|
|
|
08.06.2020 19:54:28 |
Dietmar |
|
|
 3 neue Probleme (korrigierte Ansicht & Deine korrigierte Function) |
08.06.2020 23:19:19 |
Gast 35886 |
|
|
|
09.06.2020 08:07:26 |
Dietmar |
|
|
|
09.06.2020 08:22:34 |
Gast 35886 |
|
|
|
09.06.2020 11:49:06 |
Dietmar |
|
|
|
04.06.2020 19:30:34 |
Flotter Feger |
|
|
|
04.06.2020 19:36:37 |
Gast11642 |
|
|
Von:
Gast 35886 |
Datum:
08.06.2020 23:19:19 |
Views:
610 |
Rating:
|
Antwort:
|
Thema:
3 neue Probleme (korrigierte Ansicht & Deine korrigierte Function) |
|
Bau Dir Dein SQL-Statement und füttere damit Deine Abfrage: (siehe Email)
Private Sub Befehl3_Click()
Dim db As DAO.Database
Dim qryDef As QueryDef
Dim i As Long, x As Long
Dim v As Variant
Dim sSQL As String, sIN As String, sWhere As String
'
Set db = CurrentDb
'Selektierte Werte in Array aufnehmen
With LST
For Each v In .ItemsSelected
ReDim Preserve vnt(x)
vnt(x) = .ItemData(v)
x = x + 1
Next
End With
'SQL Grundstatement erstellen
sSQL = "SELECT * FROM tbl_Staaten"
'Whereklausel erzeugen
sSQL = createWherePart(sSQL, getINPart)
'Abfrage entfernen und neue Abfrage auf Basis dem SQL Statement erzeugen
db.QueryDefs.Delete "QUE_STAAT"
Set qry = db.CreateQueryDef("QUE_STAAT", sSQL)
'Abfrage ausführen
DoCmd.OpenQuery "QUE_STAAT"
End Sub
*********************************** Modul 1 *************************************************
Option Compare Database
Public vnt() As Variant
'
Function getINPart() As String
Dim sIN As String
'sIN Zeichenkette erzeugen
For i = LBound(vnt()) To UBound(vnt())
sIN = sIN & "'" & vnt(i) & "'" & ","
Next i
'Wertrückgabe
getINPart = sIN
End Function
Function createWherePart(ByVal sSQL As String, ByVal sIN As String) As String
Dim sWhere As String
sWhere = sSQL & Chr(32) & "Where [Staat] In(" & Left(sIN, Len(sIN) - 1) & ")"
createWherePart = sWhere
End Function
******************************************** Ende Modul *****************************************
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.06.2020 18:39:59 |
Dietmar |
|
|
|
04.06.2020 19:22:58 |
Gast35886 |
|
|
|
05.06.2020 06:39:51 |
Dietmar |
|
|
|
05.06.2020 09:08:26 |
Gast35886 |
|
|
|
05.06.2020 10:48:06 |
Dietmar |
|
|
|
05.06.2020 11:17:43 |
Gast35886 |
|
|
|
05.06.2020 18:07:44 |
Dietmar |
|
|
|
05.06.2020 18:43:08 |
Gast 35886 |
|
|
|
05.06.2020 19:51:21 |
Dietmar |
|
|
|
05.06.2020 20:29:15 |
Gast 35886 |
|
|
|
06.06.2020 09:04:40 |
Dietmar |
|
|
|
06.06.2020 14:14:23 |
Gast 35886 |
|
|
|
06.06.2020 14:16:48 |
Gast 35886 |
|
|
|
06.06.2020 14:18:24 |
Gast 35886 |
|
|
|
07.06.2020 08:46:57 |
Dietmar |
|
|
|
07.06.2020 08:58:52 |
Gast 35886 |
|
|
|
07.06.2020 09:01:59 |
Gast 35886 |
|
|
|
08.06.2020 17:12:09 |
Dietmar |
|
|
|
07.06.2020 11:37:10 |
Dietmar |
|
|
|
08.06.2020 19:16:35 |
Gast 35886 |
|
|
|
08.06.2020 19:54:28 |
Dietmar |
|
|
3 neue Probleme (korrigierte Ansicht & Deine korrigierte Function) |
08.06.2020 23:19:19 |
Gast 35886 |
|
|
|
09.06.2020 08:07:26 |
Dietmar |
|
|
|
09.06.2020 08:22:34 |
Gast 35886 |
|
|
|
09.06.2020 11:49:06 |
Dietmar |
|
|
|
04.06.2020 19:30:34 |
Flotter Feger |
|
|
|
04.06.2020 19:36:37 |
Gast11642 |
|
|