hellup

• 

  marleen

  04-12-2004 23:30

  als ik op een knop klik die een rapport moet openen zegt de pc

  expressie bevat een ongedefinieerde functie format.

  geen een knop werkt meer en ik weet niet hoe het op te lossen is of hoe het voorkomen had kunnen worden.

  eergisteren heeft alles nog helemaal goed gewerkt.

  iemand idee, heluppie

  marleen
• 

  Eric B

  05-12-2004 12:53

  Zet even je code op het board…van de knop….
• 

  marleen

  05-12-2004 13:22

  Eric,

  sorry ik begrijp niet wat je bedoelt.

  wil je aub iets duidelijker zijn, ben een echte beginner.

  dankjewel Eric
• 

  marleen

  05-12-2004 13:28

  Private Sub Open16Best_Click()

  On Error GoTo Err_Open16Best_Click

  Dim stDocName As String

  stDocName = “16BestRprt”

  DoCmd.OpenReport stDocName, acPreview

  Exit_Open16Best_Click:

  Exit Sub

  Err_Open16Best_Click:

  MsgBox Err.Description

  Resume Exit_Open16Best_Click

  End Sub

  of bedoel je deze

  Nog even aanvullend. de pc zegt nu ook:

  er is een fout opgetreden bij de lettertype initialisatie

  en

  onvoldoende geheugen om de berekening uit te voeren

  ik vraag helemaal niet om een berekening dus misschien hangt er iets of zo.

  dank je als je nog even meedenkt met me

  marleen
• 

  Eric B

  05-12-2004 13:46

  Er zit toch wat fout in je rapport..zelf en niet in de aanroep ervan. Denk even na wat je hebt aangepast, meestal is daar de oorzaak te vinden. Wat ook nog wel eens wil helpen is het complete rapport te kopieren en plakken in een nieuw rapport.
• 

  marleen

  05-12-2004 17:29

  Ik heb mijn queries doorgespit en nu werkt het grootste gedeelte wel weer.

  Alleen de bepaling van de leeftijd op de dag systeemtijd krijg ik niet goed met de volgende door mij gebruikte:

  DateDiff: (“yyyy”;;Now())+Int(Format(now();“mmdd”
• 

  Wielke

  05-12-2004 20:04

  Hoi Marleen,

  Misschien heb je hier wat aan??

  Ikzelf heb in een query staan

  Leeftijd: Int((Date()-)/365,25)

  Wil je dit in een formulier zetten maak dan een tekstveld aan en plaats dan

  volgende code

  =Int((Now()-)/365,25) of

  =Int((Date()-)/365,25)

  Groetjes vaan der Wielke

  marleen schreef:

  >

  > Ik heb mijn queries doorgespit en nu werkt het grootste

  > gedeelte wel weer.

  >

  > Alleen de bepaling van de leeftijd op de dag systeemtijd

  > krijg ik niet goed met de volgende door mij gebruikte:

  >

  > DateDiff:

  > (“yyyy”;;Now())+Int(Format(now();“mmdd”

  > GebDat is de gebortedatum

  >

  > Wil iemand nog even kijken wat hier mis aan is, werkt dus nog

  > niet, staat wel zo hier op de site.

  >

  > Dank allemaal die nog ff helpende gedachte aan mij doen

  > toekomen.

  >

  > Marleen
• 

  Eric B

  06-12-2004 12:42

  aanroep :

  dim leeftijd as integer

  leeftijd = AGE( “1-1-94”, date)

  ' je kan i.p.v. date ook een willekeurige datum invullen

  '===========================================================

  'Function AGE(BirthDate As Date, compdate As Date) As Integer

  'Age of a person on a certain date

  'Birthdate Date of birth

  'compdate Compare date

  'AGE Returns the age of the person

  '============================================================Function AGE(BirthDate As Date, compdate As Date) As Integer

  Dim ret As Integer

  ret = DateDiff(“yyyy”, BirthDate, compdate)

  If compdate < DateSerial(Year(compdate), Month(BirthDate), Day(BirthDate)) Then

  ret = ret - 1

  End If

  AGE = ret

  End Function
• 

  marleen

  07-12-2004 20:18

  ik heb dus nog steeds last van een format fout of een letter initialisatie probleem, niet tegelijk dus??

  Ik weet nu dat op de pc waar alles wel perfect werkt sr 1 staat en op de andere 2 sr 3, dus up dates.

  Het uitvinken van berekeningen laat de db welperfect werken.

  mogelijk is dit het probleem, hoewel opnieuw installeren van office 2000 niet helemaal het gewenste resultaat opleverde. Misschien dat de update is blijven hangen, kan dat?

  Ik blijf nog even doorzoeken en laat het weten als ik de oplosssing vindt.

  bedankt zover en ideetjes altijd welkom

  marleen