pasar c�digo VB a Access 2000

Article View: es.comp.bd.ms-access

Article #88

Back to es.comp.bd.ms-access Previous Next

#88

From: Helen
Date: Sat, 19 May 2007 22:49

37 lines
1905 bytes

Hola  todos:

Tengo el siguiente c�digo de Access 2003 que no funciona en Access 2000 
(lamebntablemente la BD ha de ser en 2000), el cual copio a continuaci�n:

Function apEnableShift()
    On Error GoTo errEnableShift

    Dim db As Database
    Dim prop As Property
    Const conPropNotFound = 3270

    Set db = CurrentDb()
    db.Properties("AllowByPassKey") = True

Exit Function

errEnableShift:

    If Err = conPropNotFound Then
    Set prop = db.CreateProperty("AllowByPassKey", _
        dbBoolean, True)
        db.Properties.Append prop
        Resume Next
    Else
        MsgBox Err.Number & " / " & Err.Description, vbInformation + 
vbOKOnly, "A V I S O"
        Exit Function
    End If

End Function

El problema parece ser que el A 2000 bno reconoce el tipo de dato 'Database'

�alguien ser�a tan amable de ofrecerme una soluci�n para el Access 2000?.

Gracias a todos de antemano.

Technical Details

Message-ID: <v9L3i.2243$224.341@news.ono.com>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!newsfeed00.sul.t-online.de!t-online.de!newspeer1.de.telia.net!newspeer4.de.telia.net!de.telia.net!newsf01.ono.com!news.ono.com.POSTED!53ab2750!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: 111a5a,3d566b6da643320d,start
X-Google-Attributes: gid111a5a,public
X-Google-Language: ENGLISH,ASCII
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!newsfeed00.sul.t-online.de!t-online.de!newspeer1.de.telia.net!newspeer4.de.telia.net!de.telia.net!newsf01.ono.com!news.ono.com.POSTED!53ab2750!not-for-mail
From: "Helen" <bluelobi@hotmail.com>
Newsgroups: es.comp.bd.ms-access
Subject: pasar c�digo VB a Access 2000
Lines: 39
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.3028
X-RFC2646: Format=Flowed; Original
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3028
Message-ID: <v9L3i.2243$224.341@news.ono.com>
Date: Sun, 20 May 2007 00:49:00 +0200
NNTP-Posting-Host: 81.202.5.249
X-Trace: news.ono.com 1179614939 81.202.5.249 (Sun, 20 May 2007 00:48:59 MEST)
NNTP-Posting-Date: Sun, 20 May 2007 00:48:59 MEST