Ingegeven gegevens in formulier niet opgenomen door query

[ongenae]

mm, ja nu werkt het opzoeken wel perfect maar heb ik problemen met mijn wijzigen.

Ik werkt namelijk met .edit
maar aangezien ik de query moet wijzigen maakt hij van zijn neus.

 

[ongenae]

owké, weer een stapje dichter

zal het nu allemaal op mijn gemake eens testen

ik laat nog iets weten of het werkt.

 

[ongenae]

Probleem opgelost.
Het zat hem inderdaad in de "strsql"

voor het opzoeken van waarden uit een tabel en ze weer te geven in een niet-gerelateerd formulier kan je dus volgende vba code gebruiken:

Private Sub btnzoeken2_Click()

Dim dossiernrinput As String
Dim strsql As String

dossiernrinput = Me.dnrzoeken2.Value

strsql = "SELECT klantnr, typewand, zp, mp, hswg, hswgp, hswr, hswiso, hswmr, fswg, fswc, bswr, bswg, dossiernr, dossiernrde," & vbCrLf _
& "artomschrijving, klantref, leverdatum, levernaam, leverstraat, leverhuisnr, leverpostcode, levergemeente, leverland, fabrieknr, groep, " & vbCrLf _
& "eenheden, klantorder, leverorder, akprijs, vkprijs, abnummer, datumorderbevkl, afhalingnaam , afhalingdatum, afhalingdeok, afhalingplaat, " & vbCrLf _
& "opmerkingen , bijlagen, artcreatiefoxpro, orderbevklontvangen" & vbCrLf _
& "FROM t_bestellingenwanden" & vbCrLf _
& "WHERE (dossiernr ='" & dossiernrinput & "');"

With CurrentDb.OpenRecordset(strsql)
    If .recordcount >= 1 Then
     

        Form_f_volledigewanden.klantnr.Value = .Fields("klantnr")
        Form_f_volledigewanden.typewand.Value = .Fields("typewand")        
        Form_f_volledigewanden.dossiernr.Value = .Fields("dossiernr")
        
        Else
        MsgBox ("Opgezochte dossiernr niet gevonden")
                
    End If
    .Close
End With

End Sub