Fehler beim Kompilieren Benutzerdefinierter Typ nicht definiert.

[Andreas Sperling]

Hallo zusammen,
ich habe eine Acces 2003 DB programmiert und habe auf einmal folgende
Fehlermeldung:
Auf einmal heist, das es irgendwann mal funktioniert hat. :-)

Fehler beim Kompilieren Benutzerdefinierter Typ nicht definiert.

Er bleibt im Quellcode dann bei Dim Dbs as Database h�ngen

Private Sub CmdBerechnung_Click()
' Daten aus zwei tabellen suchen und anzeigen
Dim Dbs As Database
Dim Rst As DAO.Recordset
Dim Rst2 As DAO.Recordset
Dim strSQL As String
Dim str2Sql As String
Dim TmpKennz As String
'Pauschalen Aufschl�ge und Artikel aus der Tabelle KundenKlassifikation
zusammensuchen
Set Dbs = CurrentDb
str2Sql = "SELECT * FROM QRYhAUPTTABELLE WHERE ANR ='" &
Forms.frmkdberichtinfo.ANR & "'"
Set Rst2 = Dbs.OpenRecordset(str2Sql)
If Not Rst2.EOF Then
If Not IsNull(Rst2!klassifikation) Then TmpKennz = Rst2!klassifikation
End If
...

Wenn ich ein REM vor Dim Dbs As Database setze l�uft das Programm durch!
Das erscheint mir sehr merkw�rdig und m�chte das Problem gerne beheben, aber
ich wei� momentan nicht wo ich da ansetzen muss.

Hat jemand eine Idee?

Gru� Andreas

[Gunter Avenius]

Hallo Andreas,

Andreas Sperling schrieb folgendes:

> ich habe eine Acces 2003 DB programmiert und habe auf einmal folgende
> Fehlermeldung:
> Auf einmal heist, das es irgendwann mal funktioniert hat. :-)
>
> Fehler beim Kompilieren Benutzerdefinierter Typ nicht definiert.
>
> Er bleibt im Quellcode dann bei Dim Dbs as Database h�ngen
>
> Private Sub CmdBerechnung_Click()
> ' Daten aus zwei tabellen suchen und anzeigen
> Dim Dbs As Database

Verwende:
Dim Dbs As DAO.Database

siehe auch:
www.donkarl.com?FAQ7.11

Gru�
Gunter
--
__________________________________________________________
Access FAQ: http://www.donkarl.com

http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de - http://www.ribboncreator2010.de

[Winfried Sonntag]

Andreas Sperling schrieb:

> Wenn ich ein REM vor Dim Dbs As Database setze lï¿œuft das Programm durch!
> Das erscheint mir sehr merkwï¿œrdig und mï¿œchte das Problem gerne beheben, aber
> ich weiￜ momentan nicht wo ich da ansetzen muss.

Du muï¿œt auch unbedingt in jedem Modul ganz oben deklarieren:
Option Explicit Mehr dazu bei Thomas auf der Seite:
http://www.team-moeller.de/?Tipps_und_Tricks:Regeln_und_Hinweise_fuer_gutes_VBA:Option_Explicit_verwenden

Servus
Winfried
--
KnowHow.mdb: http://www.freeaccess.de/knowhow.asp
Access-FAQ: http://www.donkarl.com/AccessFAQ.htm
Access-Stammtisch: http://www.access-muenchen.de/
Richtig zitieren: http://einklich.net/usenet/zitier.htm

[Andreas Sperling]

Vielen Dank!
Die Tipps haben mir sehr weiter geholfen.

Andreas