Hejsa
Jeg ar ved at konvertere en stor applikation fra Access97 til Access2K. Selve konverteringen gik fint, men der er dele af koden som ikke virker mere.
Bla. er der et sted i en beregningsfunktion hvor en ny form kaldes. Formen bliver åbnet fint nok, men den kode som skulle eksekveres efterfølgende bliver ikke kørt...
Er der noget med fokus eller ligende i Access2K som jeg skal tage hensyn til for at få fuldført funktionen ??
Her er et udsnit af koden:
*****************************************************************
PcurrentIdNo = IdNo
PcurrentDate = DateF
InitCalcOneDay
tmp = CalcOneDay(IdNo, DateF, 145, 145, True)
SettleCalcOneDay
On Error GoTo endsub
'MABO Her åbnes den nye form
DoCmd.OpenForm "CalcDay", acNormal
'MB herefter sker der ikke mere i 2K
On Error GoTo 0
Forms!CalcDay!AccValue.Requery
Forms!CalcDay!FromTo.Requery
Forms!CalcDay!Errors.Requery
Forms!CalcDay!Evals.Requery
Forms!CalcDay.Requery
'ATTEST
Set dayFlag = PdbAccount.OpenRecordset("DayFlags", dbOpenTable)
dayFlag.Index = "IdNo"
If UseFlotingDsch Then
Set ds = PdbTables.OpenRecordset("DschZonesExeptions", dbOpenTable, dbReadOnly)
OSV.......
*****************************************************************
Jeg har prøvet udkommentere errorhandlingen men det ændrer ikke noget...altså der opstår ingen fejl
|