iff between gebruiken

[csm]

Hallo
ik kom er niet uit

in het veld Tekst100 staat bij mij een vaste datum nu wil als die
datum Between me.begindatum en me.eindatum valt het onderstaande
gebeurt maar bij de foutmelding schiet hij naar de functie between ik
weet niet wat ik fout doe


if me.Tekst100 between me.begindatum and me.einddatum then


Me!prijs = DLookup("aktieprijs", "actiekeuze", strFilter)
Me!omschijving = DLookup("omschrijving", "Artikelbestand", strFilter)
Me!aantal.SetFocus
Me.einddatum = DLookup("einddatum", "actiekeuze", strFilter)
Me.begindatum = DLookup("begindatum", "actiekeuze", strFilter)
Me!Opmerking.ForeColor = 255
Me!Opmerking = "Actieartikel"
Else


Me!prijs = DLookup("1", "Artikelbestand", strFilter)
Me!omschijving = DLookup("omschrijving", "Artikelbestand", strFilter)
Me!aantal.SetFocus
Me!totaal = Me!aantal * Me!prijs
Me!Uitassortiment = DLookup("Uitassortiment", "Artikelbestand",
strFilter)


If Me!actie = "Waar" Then
Me!Opmerking.ForeColor = 255
Me!Opmerking = "Actieartikel"
Else
Me!Opmerking = " "
End If
If Me!Uitassortiment = "Waar" Then
DoCmd.OpenForm "Frmtest1", acNormal
End If
End If


bij de foutmelding schiet hij naar de functie between ik weet niet wat
ik fout doe

 

[OctaFish]

VBA kent de functie BETWEEN niet...
Overigens hoef je de tekst niet als een gedicht op te maken met nutteloze regeleindes, en mag je code opmaken met de CODE knop (#), dan is die leesbaarder
Als vervanging van de BETWEEN kun je zoiets proberen:

If if Me.Tekst100 >= Me.begindatum And Me.einddatum <=Me.Tekst100 Then

 

[csm]

VBA kent de functie BETWEEN niet...
Overigens hoef je de tekst niet als een gedicht op te maken met nutteloze regeleindes, en mag je code opmaken met de CODE knop (#), dan is die leesbaarder
Als vervanging van de BETWEEN kun je zoiets proberen:

If if Me.Tekst100 >= Me.begindatum And Me.einddatum <=Me.Tekst100 Then

hallo

ik heb het gelijk getest maar helaas hij werkt niet heb welles waar geen foutmelding meer maar hij gaat vanaf de else statement de prijs halen wat ik dus wil is dat als de datum binnen het bereik ligt de actieprijs berekent wordt.

ik hoop dat je me verder kunt helpen want ik loop hierop vast

ik zie graag je antwoord groet CSM

 

[OctaFish]

Ik vind de manier waarop je e.e.a. uitvoert erg onhandig; dat kan een heel stuk simpeler, sneller en logischer. Kun je er een voorbeeldje van maken in 2003 format?

 

[csm]

Ik vind de manier waarop je e.e.a. uitvoert erg onhandig; dat kan een heel stuk simpeler, sneller en logischer. Kun je er een voorbeeldje van maken in 2003 format?

Ik ga proberen een 2003 voorbeeld te maken

het probleem is dat het een bestaande database project is die door een ander gebouwd is de bouwer hiervan is er helaas niet meer.

dus dacht ik om dit op deze manier aan te kunnnen passen.

ik zal het formulier waain het gebruikt wordt even in een lege base zetten omdat denk ik de voledige base te groot is hoe kan ik een bestand uploaden

groet CSM

 

[csm]

Ik ga proberen een 2003 voorbeeld te maken

het probleem is dat het een bestaande database project is die door een ander gebouwd is de bouwer hiervan is er helaas niet meer.

dus dacht ik om dit op deze manier aan te kunnnen passen.

ik zal het formulier waain het gebruikt wordt even in een lege base zetten omdat denk ik de voledige base te groot is hoe kan ik een bestand uploaden

groet CSM

Hallo

als ik een bestand wil uploaden krijg ik de melding ongeldig bestand

groet csm

 

[OctaFish]

Waarschijnlijk is je bestand te groot. Probeer eerst de db te comprimeren, en zip 'm dan. Dan moet het wel lukken. Check anders het tweede draadje, hoe je bestanden moet uploaden.

 

[csm]

Hallo

ik heb het gecomprimeerd er staan twee formulieren in ik weet niet of je er voldoende aan hebt.

ik hoor het wel

groet CSM

 

[OctaFish]

Er ontbreken wat tabellen en (sub) formulieren.... misschien toch een wat minder uitgekleed exemplaar??

 

[csm]

hallo

ik heb wat meer bestanden erin gezet maar ik denk dat het aan het lezen van de velden ligt ik zie dat in de tabel de begin en eind datum datetime velden zijn

ik hoop dat u me kan helpen

met vriendelijke groet

 

[OctaFish]

Ik mis nog steeds wat tabellen: afname_klant en afname bijvoorbeeld. Daardoor is het formulier nog steeds niet te openen.

 

[csm]

Hallo

sorry hiervoor bij deze in de bijlage

groet csm

 

[OctaFish]

Ik kan, zelfs na veel poetsen, nog steeds niks met het formulier; hij blijft nog vragen naar gekoppelde tabellen bijvoorbeeld...

 

[csm]

Hallo

ik krijg het niet voor elkaar om een werkend datbase te sturen omdat er bestanden op een sqlserver staan die krijg ik niet op de juiste manier in een lege access base

 

[csm]

Hallo

ik krijg het niet voor elkaar om een werkend datbase te sturen omdat er bestanden op een sqlserver staan die krijg ik niet op de juiste manier in een lege access base

Hallo

het zit denk ik toch in het soort veld wat ik wil gebruiken op een of andere manier worden de gegevens niet goed gelezen nu probeer ik het veld wat in het formulier bestellingen staat in de code te krijgen ik wil dit op de volgende manier proberen

(Forms!Bestellingen!datum01) > Me.begindatum And Me.Tekst100 < Me.einddatum Then

Me!prijs = DLookup("aktieprijs", "actiekeuze", strFilter)

denk ik dan in de goede richting

groet csm

 

[OctaFish]

Je denkt op zich wel in de juiste richting; ik zie wel dat je ongelooflijk veel DLookups gebruikt, en dat zou een heel stuk netter en sneller kunnen. Maar ik kan dus niks met de voorbeelden, omdat er allerlei linkjes ontbreken. Kun je van de sqlserver tabellen geen kopie tabellen maken door de structuur te kopieëren naar een vaste tabel, en de koppelingen vervolgens te verwijderen?

 

[csm]

Hallo

sorry voor de laate teactie dit is vanwegen familie omstandigheden.

maar ik heb het inmiddels na veel @##@### opgelost met onderstaande code.

bedankt voor je reactie.

Dim strfilter As String
Dim ldatum As Integer
Dim lroutecode As Integer
Dim lkanaal As String
Dim VarMaand As String
Dim teller As Integer
Dim artikelnummer As Integer
artikelnummer = [Artnr]
soort = "leeg"
strfilter = "Artikelnummer = " & artikelnummer
teller = DCount("[volnummer]", "afnamebestand", "[volnummer]=" & [volnummer])
If teller = 0 Then
lldatum = (Forms![Bestellingen]!datum01)
sql = "Update dbo.afname_klant SET levdatum = '" & lldatum & "' WHERE " & "[volnummer]=" & [volnummer]
DoCmd.RunSQL sql

llroutecode = (Forms![Bestellingen]!routecode)
sql = "Update dbo.afname_klant SET routecode = '" & llroutecode & "' WHERE " & "[volnummer]=" & [volnummer]
DoCmd.RunSQL sql

lkanaal = (Forms![Bestellingen]!kanaal)
sql = "Update dbo.afname_klant SET kanaal = '" & lkanaal & "' WHERE " & "[volnummer]=" & [volnummer]
DoCmd.RunSQL sql

End If

zoekprijs (strfilter)
If (RTrim(soort) = "YP Kl / LT Pros" Or RTrim(soort) = "YP Klant" Or RTrim(soort) = "YP Prospect" Or RTrim(soort) = "LT Prospect") And artikelnummer >= 3100 Then
MsgBox ("1e Lekker Thuis bestelling")
End If
End Sub

Sub zoekprijs(strfilter)
Dim Begindatum As Date
Dim Einddatum As Date
aantalactiekeuze = DCount("actieprijs", "actiekeuze", strfilter)
If aantalactiekeuze = 0 Then
Me!omschijving = DLookup("omschrijving", "Artikelbestand", strfilter)
Me!aantal.SetFocus
Me!totaal = Me!aantal * Me!prijs
Me!prijs = DLookup("[2]", "artikelbestand", strfilter)
Else
Begindatum = DLookup("Begindatum", "actiekeuze", strfilter)
Einddatum = DLookup("Einddatum", "actiekeuze", strfilter)
varleverdatum = [Tekst100]
If varleverdatum >= Begindatum And varleverdatum <= Einddatum Then
Me!omschijving = DLookup("omschrijving", "Artikelbestand", strfilter)
Me!aantal.SetFocus
Me!totaal = Me!aantal * Me!prijs
Me!prijs = DLookup("actieprijs", "actiekeuze", strfilter)
Opmerking.ForeColor = 255
Opmerking = "Actieartikel"
Else
Me!omschijving = DLookup("omschrijving", "Artikelbestand", strfilter)
Me!aantal.SetFocus
Me!totaal = Me!aantal * Me!prijs
Me!prijs = DLookup("[2]", "artikelbestand", strfilter)

End If

End If
End Sub

 

[OctaFish]

Ik zie dat je de CODE knop nog niet hebt gevonden.... Zou je de code willen opmaken met de juiste knop (Knop #), zodat e.e.a. wat leesbaarder blijft?

 

[csm]

Dim strfilter As String
Dim ldatum As Integer
Dim lroutecode As Integer
Dim lkanaal As String
Dim VarMaand As String
Dim teller As Integer
Dim artikelnummer As Integer
artikelnummer = [Artnr]
soort = "leeg"
strfilter = "Artikelnummer = " & artikelnummer
teller = DCount("[volnummer]", "afnamebestand", "[volnummer]=" & [volnummer])
If teller = 0 Then
lldatum = (Forms![Bestellingen]!datum01)
sql = "Update dbo.afname_klant SET levdatum = '" & lldatum & "' WHERE " & "[volnummer]=" & [volnummer]
DoCmd.RunSQL sql

llroutecode = (Forms![Bestellingen]!routecode)
sql = "Update dbo.afname_klant SET routecode = '" & llroutecode & "' WHERE " & "[volnummer]=" & [volnummer]
DoCmd.RunSQL sql

lkanaal = (Forms![Bestellingen]!kanaal)
sql = "Update dbo.afname_klant SET kanaal = '" & lkanaal & "' WHERE " & "[volnummer]=" & [volnummer]
DoCmd.RunSQL sql

End If

zoekprijs (strfilter)
If (RTrim(soort) = "YP Kl / LT Pros" Or RTrim(soort) = "YP Klant" Or RTrim(soort) = "YP Prospect" Or RTrim(soort) = "LT Prospect") And artikelnummer >= 3100 Then
MsgBox ("1e Lekker Thuis bestelling")
End If
End Sub

Sub zoekprijs(strfilter)
Dim Begindatum As Date
Dim Einddatum As Date
aantalactiekeuze = DCount("actieprijs", "actiekeuze", strfilter)
If aantalactiekeuze = 0 Then
Me!omschijving = DLookup("omschrijving", "Artikelbestand", strfilter)
Me!aantal.SetFocus
Me!totaal = Me!aantal * Me!prijs
Me!prijs = DLookup("[2]", "artikelbestand", strfilter)
Else
Begindatum = DLookup("Begindatum", "actiekeuze", strfilter)
Einddatum = DLookup("Einddatum", "actiekeuze", strfilter)
varleverdatum = [Tekst100]
If varleverdatum >= Begindatum And varleverdatum <= Einddatum Then
Me!omschijving = DLookup("omschrijving", "Artikelbestand", strfilter)
Me!aantal.SetFocus
Me!totaal = Me!aantal * Me!prijs
Me!prijs = DLookup("actieprijs", "actiekeuze", strfilter)
Opmerking.ForeColor = 255
Opmerking = "Actieartikel"
Else
Me!omschijving = DLookup("omschrijving", "Artikelbestand", strfilter)
Me!aantal.SetFocus
Me!totaal = Me!aantal * Me!prijs
Me!prijs = DLookup("[2]", "artikelbestand", strfilter)

End If

End If
End Sub