[Resolvido]Formulario desvinculado

Gostaria de saber se tem como um formulario desvinculado da tabela adicionar dados em outro bd sem que o bd esteja vinculado com o banco que ta o formulario desvinculado

Tem como sim, atraves de um recordset, utilizando do comando addnew...

Basta para isto na istruçao espexificar o bd e o seu caminho.. no repositorio temos exemplos de como se fazer isto..

Cumprimentos

Um pequeno exemplo de código:

Dim ws As DAO.Workspace
Dim Db As DAO.Database
Dim StrSql As String
Dim Rs As DAO.Recordset

Set ws = DBEngine.Workspaces(0) Set Db = ws.OpenDatabase(CurrentProject.Path & "\teste.accdb", False, False, "MS Access;PWD=senha")

StrSql = "SELECT * FROM Sua Tbela ;"
Rs = Db.OpenRecordset(StrSql)

Rs.AddNew

Rs!Campo1 = me.caixatexto
Rs!Campo2 = me.caixatexto1



rs.Close
db.Close
Set rs = Nothing
Set db = Nothing

ta dando erro aqui nesta parte ..Set Db

se possivel tem algum exemplo ai nao consegui achar no exemplos

Set ws = DBEngine.Workspaces(0)
Set Db = ws.OpenDatabase(CurrentProject.Path & "\teste.accdb", False, False, "MS Access;PWD=senha")


Va nas referencias e ative a referencia DAO

Cumprimentos

http://maximoaccess.forumeiros.com/t268-formulario-desvinculado?highlight=desvinculado

mas eu nao tenho menhuma tabela vincula no meu back end

nao consegui

como eu faco uma consulta em um forms desvinculado, mas a consulta tem uma lista que resume conforme os dados que vou enserino no campo pesq.

Amigão estude este exemplo, que te vai ajudar;

http://maximoaccess.forumeiros.com/t268-formulario-desvinculado?highlight=desvinculado

If IsNull(DLookup("CNPJ", "FORNECEDOR", "([CNPJ] = '" & Forms![Fornecedor]![CNPJ] & "')")) Then
faco essa consulta na tabela vinculada e gostaria de sabe como eu faco essa consulta numa tabela que nao esta vinculada com o fond end

quero uma pesquisa como ta nesta imagem, mas nao tenho nenhuma tabela vinculada no frond end

Tem de fazer primeiro uma consulta com todos os registros;

Abra uma consulta nova em modo SQL, cole e altere para os nomes corretos:

SELECT * from SuaTabela IN 'C:\SeuOutroBanco.mdb';

Salve esta consulta com qualquer nome, exemplo qryExterno

Depois já pode fazer o DLookup

If IsNull(DLookup("CNPJ", "qryExterno", "([CNPJ] = '" & Forms![Fornecedor]![CNPJ] & "')")) Then

onde eu coloco
If IsNull(DLookup("CNPJ", "qryExterno", "([CNPJ] = '" & Forms![Fornecedor]![CNPJ] & "')")) Then

na consulta ou no forms?

\\Pcuser\C\Chekar\BDDADOS.mdb ta salva em uma tabela chamada "caminho"

e como eu faco pra trocar essa parte "CurrentProject.Path & "\teste.accdb" pra ele buscar na tabela

Set ws = DBEngine.Workspaces(0)
Set Db = ws.OpenDatabase(CurrentProject.Path & "\teste.accdb", False, False, "MS Access;PWD=senha")

Você está a misturar tudo.

Afinal o que pretende ???

Tentou fazer a consulta, como lhe disse ?

SELECT * from SuaTabela IN 'C:\SeuOutroBanco.mdb';

Mostrou dados ????

Tem de detalhar o que pretende, a partir dessa consulta, né ?

eu uso o bd em rede esse conexao seria pro terminal pro servidor pois nao tenho nenuma tabela vinculada

Eu tambem faço consultas em Access, a bancos na rede aqui no trabalho e funfa assim:

Código:

SELECT * from Tabela1 IN '\\564701nt01\datashare$\BancoExemplo.mdb';

Este é o exemplo do banco que está no servidor do meu trabalho, não tenho nenhuma tabela vinculada.

mas eu quero usar e nesse modulos e outros que tenho

Dim dbLocal As DAO.Database
Dim ws As DAO.Workspace
Dim RS, rsT As DAO.Recordset
Dim Msg
Msg = MsgBox("Confirma a Inclusao deste Produto ?" & Chr(10) & "Codigo do Produto ..: " & Forms!dados!CODIGO & Chr(10) & "Descrição .: " & Forms!dados!Descricao & Chr(10) & "ncm .: " & Forms!dados!NCM & Chr(10) & "Quantidade.: " & Forms!dados!Qde, vbExclamation + vbDefaultButton2, "Ordem de Servico")
If Msg = vbNo Then Exit Sub 'se Não não executa
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.path & "\BDDADOS.mdb", False, False, "MS Access;PWD=senha")
strSQL = ("SELECT * FROM dados where codigo = '" & Forms!dados!CODIGO & "'")
Set RS = db.OpenRecordset(strSQL)
strSQLS = "SELECT * FROM dados;"
Set rsT = db.OpenRecordset(strSQLS)
If Not RS.EOF Then
If MsgBox("Produto já Cadastrado !!! " & Chr(10) & "" _
& "Deseja atualizar os dados? ", vbYesNo + vbExclamation + vbDefaultButton1, "Produto Ja Cadastrado") = vbYes Then
RS.Edit
'RS("cód") = Forms!dados!CÓD
RS("codigo") = Forms!dados!CODIGO
RS("descricao") = Forms!dados!Descricao
RS("idunidade") = Forms!dados!Idunidade
RS("local") = Forms!dados!Local
RS("marca") = Forms!dados!Marca
RS("grupo") = Forms!dados!Grupo
RS("qde") = Forms!dados!Qde
'RS("EMinimo") = Forms!dados!EMinimo
RS("valor") = Forms!dados!valor
RS("cto_medio") = Forms!dados!Cto_medio
RS("cto_real") = Forms!dados!Cto_real
RS("dep") = Forms!dados!DEP
RS("tp") = Forms!dados!tp
RS("aplicacao") = Forms!dados!APLICACAO
RS("cst") = Forms!dados!Cst
RS("cd_tributo") = Forms!dados!Cd_Tributo
RS("ncm_genero") = Forms!dados!NCM_Genero
RS("ncm") = Forms!dados!NCM
RS("cd_secao") = Forms!dados!Cd_Secao
RS("csosn") = Forms!dados!CSOSN
RS("origem") = Forms!dados!Origem
RS("modbc") = Forms!dados!modBC
RS("modbcst") = Forms!dados!modBCST
'RS("cfopd") = Forms!dados!CFOPD
'RS("cfopf") = Forms!dados!CFOPF
RS("dtcadastro") = Forms!dados!dtcadastro
RS.Update
RS.Close
Else
'pergunta ao user se quer mesmo acrescentar
Msg = MsgBox("Tem a certeza que deseja Salvar este Registro ?", vbYesNo, "Confirmação")
If Msg = vbYes Then
rsT.AddNew
rsT("cód") = Forms!dados!CÓDS
rsT("codigo") = Forms!dados!CODIGO
rsT("descricao") = Forms!dados!Descricao
rsT("idunidade") = Forms!dados!Idunidade
rsT("local") = Forms!dados!Local
rsT("marca") = Forms!dados!Marca
rsT("grupo") = Forms!dados!Grupo
rsT("qde") = Forms!dados!Qde
rsT("eminimo") = Forms!dados!EMinimo
rsT("valor") = Forms!dados!valor
rsT("cto_medio") = Forms!dados!Cto_medio
rsT("cto_real") = Forms!dados!Cto_real
rsT("dep") = Forms!dados!DEP
rsT("tp") = Forms!dados!tp
rsT("aplicacao") = Forms!dados!APLICACAO
rsT("cst") = Forms!dados!Cst
rsT("cd_tributo") = Forms!dados!Cd_Tributo
rsT("ncm_genero") = Forms!dados!NCM_Genero
rsT("ncm") = Forms!dados!NCM
rsT("cd_secao") = Forms!dados!Cd_Secao
rsT("csosn") = Forms!dados!CSOSN
rsT("origem") = Forms!dados!Origem
rsT("modbc") = Forms!dados!modBC
rsT("modbcst") = Forms!dados!modBCST
rsT("cfopd") = Forms!dados!CFOPD
rsT("cfopf") = Forms!dados!CFOPF
rsT("dtcadastro") = Forms!dados!dtcadastro
rsT.Update
MsgBox "Registro acrescentado com sucesso...", vbInformation
End If
End If
Else
rsT.AddNew
rsT("cód") = Forms!dados!CÓDS
rsT("codigo") = Forms!dados!CODIGO
rsT("descricao") = Forms!dados!Descricao
rsT("idunidade") = Forms!dados!Idunidade
rsT("local") = Forms!dados!Local
rsT("marca") = Forms!dados!Marca
rsT("grupo") = Forms!dados!Grupo
rsT("qde") = Forms!dados!Qde
rsT("eminimo") = Forms!dados!EMinimo
rsT("valor") = Forms!dados!valor
rsT("cto_medio") = Forms!dados!Cto_medio
rsT("cto_real") = Forms!dados!Cto_real
rsT("dep") = Forms!dados!DEP
rsT("tp") = Forms!dados!tp
rsT("aplicacao") = Forms!dados!APLICACAO
rsT("cst") = Forms!dados!Cst
rsT("cd_tributo") = Forms!dados!Cd_Tributo
rsT("ncm_genero") = Forms!dados!NCM_Genero
rsT("ncm") = Forms!dados!NCM
rsT("cd_secao") = Forms!dados!Cd_Secao
rsT("csosn") = Forms!dados!CSOSN
rsT("origem") = Forms!dados!Origem
rsT("modbc") = Forms!dados!modBC
rsT("modbcst") = Forms!dados!modBCST
rsT("cfopd") = Forms!dados!CFOPD
rsT("cfopf") = Forms!dados!CFOPF
rsT("dtcadastro") = Forms!dados!dtcadastro
rsT.Update
MsgBox "Registro acrescentado com sucesso...", vbInformation
End If
rsT.Close
Set rsT = Nothing
End Sub

alguem pode me ajudar??

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.