Workspaces

[Mazinha 0]

Gente, tem um programinha meu q naum tá rodando pq ele naum tá entendendo o workspaces! E antes ele entendia!! Q q ocorre??

[cassitos 2]

passa a mensagem de erro ae p/ nós.de qualquer forma verifique se a referência ao DAO está correta (Project/References...).

[Mazinha 0]

Eu já olhei isso (DAO) e acho q tá certo sim....

A msg d erro q aparece é essa aki:

 

Run-time error '429':

ActiveX component can't create object

 

Falando nisso... O q q é ACTIVEX??? Perguntei isso pra alguns profesores uma vez, + eles naum souberam me respondê....

[cassitos 2]

bom, isto ocorre quando um determinado componente não está registrado corretamente no sistema operacional.

 

neste caso os arquivos essenciais p/ DAO.

 

alguns links que podem ajudar:

http://www.mvps.org/access/bugs/bugs0007.htm

http://www26.brinkster.com/accessjr/defaul...rgunta_Id%3D294

 

O que é ActiveX: http://www.macoratti.net/activex.htm

[Mazinha 0]

Conseguí resolver isso. Era uma referência mesmo.

+ agora tá dando otro pau:

Erro nº 13

Type mismatch

Alguém pode traduzir isso pra mim??

[cassitos 2]

bem, esse erro é genérico, dá a mesma mensagem em diversas ocasiões, ex:associar um string a uma variável numérica;associar uma data inválida a uma variável Date;entre outros.posta ae em que trecho está dando o erro p/ nós intendê mió

[Mazinha 0]

Isso daki eu fiz no módulo. O erro q tá dando é ao "abrir".

Sub ABRIR_FORN()

Set AREA = DBEngine.Workspaces(0)

AREA.BeginTrans

On Error GoTo ERRO_ABRIR

Set BD = AREA.OpenDatabase(App.Path & "\Sisteminha.MDB", False)

Set TB_FORN = BD.OpenRecordset("Fornecedores", dbOpenDynaset)

On Error GoTo 0

Exit Sub

ERRO_ABRIR:

Dim AVISO As Integer

AVISO = MsgBox(Err.Number & " " & Err.Description)

'AVISO = MsgBox("Erro ao acessar os dados!", vbCritical, "Aviso!!!")

If AVISO = vbOK Then

AREA.Rollback

On Error GoTo 0

Exit Sub

End If

Resume

AREA.CommitTrans

End Sub

Isso é suficiente, ou precisa q eu poste + alguma coisa? Acho q o erro tá no AREA.BeginTrans....