PROBLEMAS COM RECORDSET

USUARIO.EXCLUIDOS 27/04/2004 01:32:13
#22822
Bem galera alguem sabe como posso colocar este codigo numa classe para atender todos os forms ?
--------------------------------------------------------------------------------------
If ddd = "042" Then

If prefixo = "220" Then

If inicio = "0" Then


Set db = OpenDatabase(App.Path & "\dados\pg\220\0
umero.mdb")
Set tb = db.OpenRecordset("numero", dbOpenTable)
tb.Index = "idxnumero"
end if
If ddd = "042" Then

If prefixo = "221" Then

If inicio = "0" Then


Set db = OpenDatabase(App.Path & "\dados\pg\221\0
umero.mdb")
Set tb = db.OpenRecordset("numero", dbOpenTable)
tb.Index = "idxnumero"
end if
----------------------------------------------------------------------------------------
ou uma maneira de montar a declaração do db e do recordset por outro metodo, o problema e que tem pelo menos uns 100 opções diferentes de telefone, dai se eu tiver que colocar o codigo em todos os forms e muito codigo
Valeu galera
USUARIO.EXCLUIDOS 27/04/2004 07:32:36
#22835 Resposta escolhida
PODE SER ASSIM TAMBEM

IF prefixo "" AND inicio "" THEN
STRDB = APP.PATH & "\dados\pg\" & prefixo & "\" & inicio & "
umero.mdb"
END IF
Set db = OpenDatabase(strDB)
Set tb = db.OpenRecordset("numero", dbOpenTable)
tb.Index = "idxnumero"
Tópico encerrado , respostas não são mais permitidas
Voltar