vba format cell met ALS functie

[LodewijkG]

Duidelijk.

Private Sub Form_Current()
    strSQL = "SELECT RateId, Rate, ValidFrom, IIf([ValidUntill] Is Null,Date()+1,[ValidUntill]) AS ValidTo, Type, Notation FROM tblCurrency " _
        & "INNER JOIN tblCurrencyRate ON tblCurrency.CurrencyId = tblCurrencyRate.CurrencyId "
    sVeld = "[" & Me.OfferDate.ControlSource & "] = "
    sFilter = "WHERE (ValidFrom <= CDate(" & CDbl(Me.OrderDate) & ") And (IIf([ValidUntill] Is Null, Date() + 1, [ValidUntill])) >= CDate(" & CDbl(Me.OrderDate) & "));"
    strSQL = strSQL & sFilter
    Me.cboCurrency.RowSource = strSQL
    Me.cboCurrency.Requery
    Me.txtCommisionSolid.Format = Me.cboCurrency.Column(5)
    Set frm = Me.sfmOrder.Form
    With frm
        .Form.AdditionalCost.Format = Me.cboCurrency.Column(5)
        .cboPurPrice.Format = Me.cboCurrency.Column(5)
        .SalesPrice.Format = Me.cboCurrency.Column(5)
        .FreightPerMt.Format = Me.cboCurrency.Column(5)
        .CommisionPerMt.Format = Me.cboCurrency.Column(5)
        .InsurrancePerMt.Format = Me.cboCurrency.Column(5)
        .LCcostPerMt.Format = Me.cboCurrency.Column(5)
        .CostPrice.Format = Me.cboCurrency.Column(5)
        .Margin€.Format = Me.cboCurrency.Column(5)
        .CumMargin€.Format = Me.cboCurrency.Column(5)
    End With
    Me.Repaint
End Sub

Ik heb bovenstaande nu in het formulier staan. Echter als ik het formulier op een record open van een bestaander OrderId, dan blijft cboCurrency leeg, wordt niet gevuld zeg maar. Dan krijg ik ook de error bij de format functies. Kan het zijn dat de lijst nog niet helemaal goed gevuld wordt?

Me.txtCommisionSolid.Format = Me.cboCurrency.Column(5)

.Form.AdditionalCost.Format = Me.cboCurrency.Column(5)

Ik krijg error:
Fout 94 tijdens uitvoering:

Ongeldig gebruik van Null

 

[OctaFish]

Ik kan het niet reproduceren, dus ik kan je daar even niet bij helpen. Zou ik de productie db moeten zien. Overigens kun je de code veel beter opmaken met de CODE knop en niet met de QUOTE knop....