🚀 go-pugleaf

W dniu 04.09.2020 o 19:27, leku pisze:
> Mam na formularzu IMPORT w polu Wykonawcy dane jak poniżej
> „Kowalski Jan” , „Nowak Andrzej”
> 
> Mogę mieć też tak
> „Kowalski Jan” ; „Nowak Andrzej”
> 
> Jak poprawnie przekazać kryterium z tego pola do kwerendy
> Wykorzystując funkcję In() accessa.
> 
> Próbuję tak
> In([Forms]![IMPORT]![Wykonawcy]) – nie działa
> In( " & ([Forms]![IMPORT]![Wykonawcy]) & ") - też nie działa  L

[...]

Spróbuj podmienić SQL w kwerendzie. Coś w poniższy sposób:

' masz tabelę "MojaTabela" i korzystasz z kwerendy "MojaKwerenda"
Private Sub btnOpenQuery_Click()
Dim sSQL As String
Dim dbs As DAO.Database
Const cQryName As String = "MojaKwerenda"

     sSQL = "SELECT MojaTabela.*, MojaTabela.Wykonawcy" & _
            " FROM MojaTabela" & _
            " WHERE MojaTabela.Wykonawcy" & _
            " IN (" & FunkcjaWykonawcy() & ");"

     Set dbs = CurrentDb
         With dbs
             ' sprawdź, czy istnieje kwerenda
             If IsObject(.QueryDefs(cQryName)) Then
                 'podmień SQL
                 .QueryDefs(cQryName).SQL = sSQL
             Else
                 'utwórz kwerendę
                 .CreateQueryDef cQryName, sSQL
             End If
         End With
     Set dbs = Nothing

     DoCmd.OpenQuery cQryName, acViewNormal, acEdit

End Sub

'_____________________________________________
Private Function FunkcjaWykonawcy() As String

     ' Tutaj musisz sam napisać funkcję, która przetworzy
     ' nazwiska wybranych Wykonawców do postaci poniżej:

     FunkcjaWykonawcy = "'Nowak Andrzej','Kowalski Jan'"

End Function

-- 
Pozdrawiam
Zbigniew Bratko

Użytkownik "Zbigniew Bratko"  napisał w wiadomości grup 
dyskusyjnych:5f55545a$0$542$65785112@news.neostrada.pl...

W dniu 04.09.2020 o 19:27, leku pisze:
> Mam na formularzu IMPORT w polu Wykonawcy dane jak poniżej
> „Kowalski Jan” , „Nowak Andrzej”
>
> Mogę mieć też tak
> „Kowalski Jan” ; „Nowak Andrzej”
>
> Jak poprawnie przekazać kryterium z tego pola do kwerendy
> Wykorzystując funkcję In() accessa.
>
> Próbuję tak
> In([Forms]![IMPORT]![Wykonawcy]) – nie działa
> In( " & ([Forms]![IMPORT]![Wykonawcy]) & ") - też nie działa  L

[...]

Spróbuj podmienić SQL w kwerendzie. Coś w poniższy sposób:

' masz tabelę "MojaTabela" i korzystasz z kwerendy "MojaKwerenda"
Private Sub btnOpenQuery_Click()
Dim sSQL As String
Dim dbs As DAO.Database
Const cQryName As String = "MojaKwerenda"

     sSQL = "SELECT MojaTabela.*, MojaTabela.Wykonawcy" & _
            " FROM MojaTabela" & _
            " WHERE MojaTabela.Wykonawcy" & _
            " IN (" & FunkcjaWykonawcy() & ");"

     Set dbs = CurrentDb
         With dbs
             ' sprawdź, czy istnieje kwerenda
             If IsObject(.QueryDefs(cQryName)) Then
                 'podmień SQL
                 .QueryDefs(cQryName).SQL = sSQL
             Else
                 'utwórz kwerendę
                 .CreateQueryDef cQryName, sSQL
             End If
         End With
     Set dbs = Nothing

     DoCmd.OpenQuery cQryName, acViewNormal, acEdit

End Sub

'_____________________________________________
Private Function FunkcjaWykonawcy() As String

     ' Tutaj musisz sam napisać funkcję, która przetworzy
     ' nazwiska wybranych Wykonawców do postaci poniżej:

     FunkcjaWykonawcy = "'Nowak Andrzej','Kowalski Jan'"

End Function

-- 
Pozdrawiam
Zbigniew Bratko
---------------------------------------------------------------------------------------------

Dziękuję bardzo za przykład rozwiązania mojego problemu.
Biorę się za adaptację
Dane są pobierane z pola listy wielokrotnego wyboru.
I za pomocą gotowej funkcji wrzucane do pola Wykonawcy
na formularzu w układzie
"Nowak Andrzej,Kowalski Jan" akceptowalnym przez operator In()

pozdrawiam
leku




-- 
Ta wiadomość została sprawdzona na obecność wirusów przez oprogramowanie antywirusowe Avast.
https://www.avast.com/antivirus