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 |
|
|
Antwort: |
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 |
|
|
|
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:
05.06.2020 20:29:15 |
Views:
619 |
Rating:
|
Antwort:
|
Thema:
Antwort: |
Ok, glaub verstehe jetzt wo es hingehen soll.
Schau Dir mal das an:
Private Sub Befehl16_Click()
Dim i As Long, x As Long
With LST
For i = 0 To .ListCount - 1
If .Selected(i) Then
ReDim vnt(x)
vnt(x) = .ItemData(x) 'Wertzuweisung hier ?
MsgBox vnt(x)
x = x + 1
End If
Next
End With
For i = LBound(vnt()) To UBound(vnt())
Debug.Print fnSTAAT(vnt(i))
Next i
End Sub
Function fnSTAAT(ByVal sBedingung As String) As String
Dim s As String
s = "SELECT TBL_STAAT.KDNR" & Chr(32)
s = s & "FROM TBL_STAAT" & Chr(32)
s = s & "WHERE (((TBL_STAAT.KDNR)=" & sBedingung & ";"
fnSTAAT = s
End Function
Über Fehlerbehandlung sowie Datentyp Anpassung wurde hier noch nicht berücksichtig.
|
- 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 |
|
|
Antwort: |
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 |
|
|
|
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 |
|
|