🚀 go-pugleaf

This is a multi-part message in MIME format.
--------------91B11478411FC18FB8D2C439
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit

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:

     FunkcjaWykNowak Andrzej','Kowalski Jan'"

End Function

--
Pozdrawiam
Zbigniew Bratko

--------------91B11478411FC18FB8D2C439
Content-Type: text/x-vcard; charset=utf-8;
 name="adminBEZTEGO.vcf"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
 filename="adminBEZTEGO.vcf"

begin:vcard
fn:Zbigniew Bratko
n:Bratko;Zbigniew
note;quoted-printable:-- 	
	Pozdrowienia BraZby
	 www.faq.accdb.pl
	 www.accdb.pl
version:2.1
end:vcard


--------------91B11478411FC18FB8D2C439--

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:

     FunkcjaWykNowak 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