conversie naar access 2007

[freewilly1]

Heb een database die werkte in 2003 en nu is in ons bedrijf 2007 geinstalleerd en heb ik volgend probleem waar ik de oplossing niet van weet
in een formulier gebruik ga ik filteren van hetgeen ik wens als resultaat, bijv een bepaalde klant, filter werkt dus in mijn formulier, nu heb ik een printopdracht die een overeenkomstig rapport moet afdrukken, en daar loopt het mis, lukt niet meer
filter ziet er als volgt uit

([Forfilter],[KLANTNAAM]= "klant")

Forfilter = formulier
klant= de naam van de klant

wat is gewijzigd

bij 2003 stonde daar enkel
[KLANTNAAM]= "klant")

blijkbaar is dit een wijziging dat het formulier vermeldt wordt, en dit loopt spaak in mijn vba waar ik de filter wil toepassen op mijn rapport

 

[freewilly1]

Niemand enig idee?

 

[Ronaldxx]

Niet op te lossen met een criterium ?
Of iets tussen te bouwen ?

 

[Tardis]

Met losse stukjes codes kunnen we niets.
Plaats even de complete code die je gebruikt.

Tardis

 

[freewilly1]

dit is een stukje van de code waar het misloopt, via een knop in mijn formulier heb ik verschillende rapporten, in 2003 werkte dit perfect, hopelijk heb je hier iets meer aan, als ik in mijn formulier in de filter ga kijken en verwijder daar de naam van mijn formulier werkt de code wel, sinds 2007 komt in de filter de naam van het formulier waarin er gefilterd vooraan te staan

Private Sub Knopnabprintmail_Click()
Dim v As String
v = [Forms]!fornabew.Filter

Select Case Me.cmbnabtaal
Case 2
If Me.cmbnabpm = 1 Then
DoCmd.OpenReport "RkvvRapport", acViewPreview, v, [Forms]!fornabew.Filter
[Forms]!fornabew.Filter = ""
Else
DoCmd.OpenReport "Rkvvrapport", acViewPreview, v, [Forms]!fornabew.Filter
DoCmd.SendObject acReport, , acFormatRTF
[Forms]!fornabew.Filter = ""
End If

 

[Tardis]

Je aanpak kan anders.
Maar vervang overal dit

[Forms]!fornabew.Filter

in

Me.Filter

Tarsis

 

[freewilly1]

Bedankt, zal het maandag uitproberen of dit lukt, hou je op de hoogte

 

[freewilly1]

Hallo,

Met Me.filter allen lukte het niet, er is extra code bijgekomen om de filter te kunnen toepassen in mijn formulier, hebben een externe accessprogrammeur gecontacteerd, is nu in orde, extra code zal ik hier eens vermelden voor degenen die het ook wensen te gebruiken

v = Me.Filter
v = Replace(Chr(34) & v & Chr(34), "[" & Me.Name & "].", "")
v = Replace(v, Chr(34), "'")
v = Left(v, Len(v) - 1)
v = Right(v, Len(v) - 1)