Bug in MS Access Code

Linh · 10-09-2003, 02:26 PM

I had a Microsoft Access 2000 form. When I clicked on the button
with the code below it gives me an error

"compile error: user-defined type not defined"
It highlighted the error on the code

Dim Dbs As Database

==================================

Code:

Option Compare Database
Option Explicit

Private Sub Command1_Click()

    Dim Dbs As Database
    Set Dbs = CurrentDb

    Dim Tenant_Number_Temp As String
    Dim Unit_Number_Temp As String
    Dim Last_Name_Temp As String
    Dim First_Name_Temp As String
    Dim counter As Long
    
    Tenant_Number_Temp = "T-100-11-2-1999"
    Unit_Number_Temp = "1000"
    Last_Name_Temp = "Sacramento"
    First_Name_Temp = "Jayson and John"
    counter = 0
    Do While counter < 10
        counter = counter + 1
        Text_10.SetFocus
        Text_10.Text = counter
        
        Dbs.Execute " INSERT INTO Customer " _
        & "(Tenant_Number, Unit_Number, Last_Name, Fist_Name) VALUES" _
        & "('" & Tenant_Number_Temp & "','" & Unit_Number_Temp & "','" & Last_Name_Temp & "','" & First_Name_Temp & "');"
    Loop
    MsgBox "The loop made " & counter & " repetitions."
End Sub

webtoe · 10-09-2003, 02:43 PM

Well maybe there is something syntaxically wrong with that statement. Maybe you should ask this on a MS Access forum (or atleast a windows forum).

Its very possible that few people in linux world know Visual Basic for Applications. I for one have forgotton most stuff.

Alex

Linh · 10-09-2003, 02:47 PM

"Violence is the refuge of the incompetant"
--Isaac Asimov

I agree. Write your congressman, but nothing will change, because
http://www.newswatchmagazine.org