[VB]Access97 naar Access2000

[Verwijderd]

Er is een stukje VB gemaakt in Access97(niet door mij).... Nou heb ik die DB geconverteerd naar Access 2000. Maar nu geeft ie een foutmelding als ik dat stukje VB start:

Het gaat om dit stukje:

Visual Basic:

Private Sub Openrapport_Click()
'On Error GoTo Err_Openrapport_Click
Dim dbsAspen As Database
Dim strSQL1 As String: Dim strSQL2 As String: Dim strSQL3 As String: Dim strSQL4 As String: Dim strSQL5 As String: Dim strSQL6 As String
Dim strSQL7 As String: Dim strSQL8 As String: Dim strSQL9 As String: Dim strSQL10 As String: Dim strSQL11 As String: Dim strSQLTotal As String
Set dbsAspen = CurrentDb
' ledigen Tbl Report
strSQLTotal = "DELETE [Tbl Report].* FROM [Tbl Report];"
dbsAspen.Execute strSQLTotal
'Invullen Tbl Report
'INSERT INTO [Tbl Report] ( Aantal, Jaar, Maand, Weeknr, Gebied, Type )
'SELECT Count([dbo_Meldingen].[TAG])/21 AS CountOfTAG, dbo_Meldingen.Jaar, dbo_Meldingen.Maand, dbo_Meldingen.Weeknr, dbo_Meldingen.Gebied, dbo_Meldingen.Type
'FROM dbo_Meldingen
'GROUP BY dbo_Meldingen.Jaar, dbo_Meldingen.Maand, dbo_Meldingen.Weeknr, dbo_Meldingen.Gebied, dbo_Meldingen.Type
'HAVING (((dbo_meldingen.Weeknr)>=5 And (dbo_meldingen.Weeknr)<=6));

strSQL1 = "INSERT INTO [Tbl Report] ( Aantal, Jaar, Maand, Weeknr, Gebied, Type ) "
strSQL2 = "SELECT Count([dbo_Meldingen].[TAG])/21 AS CountOfTAG, dbo_meldingen.Jaar, dbo_meldingen.Maand, dbo_meldingen.Weeknr, dbo_meldingen.Gebied, dbo_meldingen.Type "
strSQL3 = "FROM dbo_meldingen "
strSQL4 = "GROUP BY dbo_meldingen.Jaar, dbo_meldingen.Maand, dbo_meldingen.Weeknr, dbo_meldingen.Gebied, dbo_meldingen.Type "
strSQL5 = "HAVING (((dbo_meldingen.Weeknr)>= "
strSQL6 = "And (dbo_meldingen.Weeknr)<= "
strSQL7 = "));"
strSQLTotal = strSQL1 & strSQL2 & strSQL3 & strSQL4 & strSQL5 & Me.F_VanWeek.Value & strSQL6 & Me.F_TotWeek.Value & strSQL7

dbsAspen.Execute strSQLTotal
DoCmd.OpenReport "Report 3", acPreview
Set dbsAspen = Nothing
Exit_Openrapport_Click:
    Exit Sub
Err_Openrapport_Click:
    MsgBox Err.Description
    Resume Exit_Openrapport_Click
End Sub

Bij regel 3 geeft ie een foutmelding: 'Compile error: Can't find project or library.' Ik weet niet echt veel van VB maar dit moet wel worden opgelost (en ik weet niet hoe)
Dus weet iemand een oplossing?

[ Voor 6% gewijzigd door Verwijderd op 07-03-2003 10:51 ]

[Againzender]

Hm, dat vetgedrukte komt niet echt over door je [code] tags, maar je bedoelt regel 3 zo te zien.

Als je in je VB-editor kijkt onder Tools-References staat er dan toevallig iets aangevinkt waarachter 'MISSING' staat? Zet die dan eens uit en probeer het nog eens?

[OZ-Gump]

Hij wil graag weten wat voor database je wil declareren. Waarschijnlijk zijn er OF geen references opgenomen in het project (die moet je dus ff toevoegen), OF teveel, waardoor je iets zult moeten doen als

Visual Basic .NET:

Dim db as ADODB.Database

of

Visual Basic .NET:

Dim db as DAO.Database

En inderdaad: je tags werken niet. Volgens mij kun je niet nesten binnen code-tags.

[ Voor 15% gewijzigd door OZ-Gump op 07-03-2003 10:12 ]

[Masch]

Dit werkt ook wel gewoon onder Access 2000. Againzender's oplossing klopt. Je moet in ieder geval 'Microsoft DAO" aan hebben staan hiervoor.

[Verwijderd]

Againzender schreef op 07 maart 2003 @ 10:09:
Hm, dat vetgedrukte komt niet echt over door je [code] tags, maar je bedoelt regel 3 zo te zien.

Als je in je VB-editor kijkt onder Tools-References staat er dan toevallig iets aangevinkt waarachter 'MISSING' staat? Zet die dan eens uit en probeer het nog eens?

Ja dat MISSING gebeuren moet het zijn geweest! Ik heb 2 MISSING dingen uitgevinkt. Het werkt nu!

bedankt

[ Voor 8% gewijzigd door Verwijderd op 07-03-2003 10:58 ]

[pkouwer]

waarschijnlijk loopt het nu op een ander punt fout

[ Voor 4% gewijzigd door pkouwer op 07-03-2003 20:17 ]