Visual Basic Discussion Boards

Visual Basic

Should be simple: incompatible types

AndreFratelli1-Jan-13 7:44

AndreFratelli

1-Jan-13 7:44

Hi everyone,

I have this declaration:

Sub CreateTablePessoas(db As Database)
  ' Some code here
End Sub

And then this:

Sub CreateMyForm()
    Dim db As Database
    Dim tdf As TableDef

    Set db = CurrentDb()
    Set tdf = GetTable("Pessoas", db)

    If tdf Is Nothing Then
        CreateTablePessoas (db)
    End If
End Sub

But when calling CreateTablePessoas(db) I get error 13: incompatible types (I'm translating the error message from portuguese, so I'm not sure that's how it would display in english).

I'm not much of a VBA guy, so what's the problem here?

Thanks in advance.

Fratelli