Je hebt hier
http://office.webforums.nl/viewtopic.php?t=41972
tips, verklaringen en werkende code gekregen......
Tardis
http://office.webforums.nl/viewtopic.php?t=41972
tips, verklaringen en werkende code gekregen......
Tardis
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Je hebt hier
http://office.webforums.nl/viewtopic.php?t=41972
tips, verklaringen en werkende code gekregen......
Tardis
Kijk eens in je mailbox...Ja dat was net nadat ik het naar Octafish heb verstuurd. Het werkt ook. Alleen krijg ik andere kleinere foutmeldingen. Hij wilt mij verder ook niet meer helpen.
Op het Office Forum heb je ook nog een paar aanvullende tips gehad.
Die zullen een paar kleine foutjes wegnemen.
Tardis
Private Sub cboLeveranciers_ID_AfterUpdate()
Dim strSQL As String
strSQL = "SELECT tblArtikelen.Artikelen_ID, tblArtikelen.Artikelomschrijving, tblArtikel_Leverancier.Eenheid, tblArtikel_Leverancier.Stuksprijs, " _
& "tblArtikel_Leverancier.Nettoprijs, tblArtikel_Leverancier.Leverdatum, tblArtikel_Leverancier.Opmerkingen" & vbCrLf _
& "FROM tblArtikelen INNER JOIN tblArtikel_Leverancier ON tblArtikelen.Artikelen_ID = tblArtikel_Leverancier.Artikelen_ID " & vbCrLf _
& "WHERE tblArtikel_Leverancier.Leveranciers_ID = " & Me.cboLeveranciers_ID.Column(0) & vbCrLf _
& "ORDER BY tblArtikelen.Artikelomschrijving;"
''Dim tmp
''tmp = InputBox("", "", strSQL)
Forms![tblBestellingen1]![tblBestelRegels Subformulier]!cboArtikelen_ID.RowSource = strSQL
Forms![tblBestellingen1]![tblBestelRegels Subformulier]!cboArtikelen_ID.Requery
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.