[Resolvido]Alterando e Salvando dados em Form carregado via RecordSource

Bem amigos, tendo ja conseguido consultar os dados carregados via RecorSource... Agora me resta Alterá-los e Gravá-los...
Preciso de ideias..

Eis o código de consulta

Private Sub Form_Open(Cancel As Integer)
Parametros_de_Inicializacao "SysPen.par"
Dim dbBanco As Database
Dim StrDetento As String
Dim StrPath As String
Dim NomeBD As String
NomeBD = "Syspen_be.accdb"

'String com path para conexão com a base de dados.
StrPath = DirBancoDados & NomeBD
' Conecta ao banco de dados
Set dbBanco = OpenDatabase(StrPath)

'RecordSource
StrDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.Nível, Detentos.Cela, Fotos_Detentos.IDFoto, Detentos.RegimeAtual," _
& "Detentos.RegimeAtual, Detentos.RDD, Detentos.Transferido, Detentos.UnidadeRequisitante, Fotos_Detentos.CaminhoFotoRosto" _
& " FROM Detentos LEFT JOIN Fotos_Detentos ON Detentos.[ID] = Fotos_Detentos.[IDFoto]" _
& "IN '" & StrPath & "'" _
& "WHERE (Detentos.[Nome] Is Not Null);"



Grato

Hary,

Não entendi.
Para alterar os dados, ou altera-os no formulário e o campo estando vinculado a alteração efectiva-se ou não tem campo vinculado e execute código de alteração por SQL ou DAO.
Para alterar os dados por parâmetros nem precisa carregar formulário, execute código VBA ou VBA/DAO
Cumprimentos,

Use o UPDATE no lugar do SELECT que você tem nessa instrução. Você usa o SELECT para consulta, o UPDATE para atualizar, o INSERT para adicionar novo registro e DELETE para excluir. Muda pouca coisa na sintaxe. Acredito que pelos trabalhos já desenvolvidos aqui no forum, já consigas mudar para a sintaxe correta para cada caso, não?

Ao invés do RecordSource, troque por algo do tipo:

db.Execute "UPDATE..."

Criquio Amigão no botão Salvar... eu tenho que aplicar o código completo???

Os Campos eu tenho que invertê-los não??

rs![Telefone Comercial] = Me.txtTelCom

Isso. Para salvar na tabela é invertido do SELECT da pesquisa.

Perai... inverter no Sql ou na instrução do Campo?



rs![Nome Contato Emergência]= Me.txtContato 'Assim Update

Me.txtContato = rs![Nome Contato Emergência] 'Assim Leitura

Isso isso isso isso.

Amigão dá uma ajuda ai com o update...

Amigão.. como eu ta tinha as referencias aos campos que faço a consulta...

Eis o Baita!!!



Private Sub Salvar_Click()
On Error GoTo Err_Salvar
Dim I

Parametros_de_Inicializacao "SysPen.par"
Dim Db As DAO.Database
Dim ws As DAO.Workspace
Dim rs As DAO.Recordset


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


StrSQLDetentos = ("SELECT * FROM Detentos WHERE ID = " & txtID.Value)

Set rs = Db.OpenRecordset(StrSQLDetentos)

I = MsgBox("Tem a certeza que deseja Salvar este Registro ?", vbYesNo, "Confirmação")
If I = vbYes Then
rs.Edit ' Abre a edição do registro

'********PÁGINA 01*************************************************************************
rs![ID] = Me.txtID
rs![Nome] = Me.txtNome
rs![Sobrenome] = Me.txtSobrenome
rs![Alcunha] = Me.txtAlcunha
rs![Sexo] = Me.txtSexo
rs![Crime] = Me.txtCrime
rs![Advogado] = Me.txtAdvogado
rs![Telefone Residencial] = Me.TxtTelRes
rs![Telefone Celular] = Me.txtTelCel
rs![Telefone Comercial] = Me.txtTelCom
rs![Anotações] = Me.txtAnot
rs![UnidadeRequisitante] = Me.txtUnidadeReq
rs![Nível] = Me.CboAla
rs![Cela] = Me.CboCela
rs![RegimeAtual] = Me.txtRegimeAtual
rs![Se Albergado, Regime] = Me.txtSe_albergado
rs![Prisão Civil] = Me.txtPrisao_Civil
rs![RDD] = Me.txtRDD
rs![Se RDD, Local e Período] = Me.txtSeRdd
rs![Transferido] = Me.txtTransferido


'********PÁGINA 02*************************************************************************
rs![Nome Contato Emergência] = Me.txtContato
rs![Telefone 1 do Contato de Emergência] = Me.txtTel11Contato
rs![Telefone 2 do Contato de Emergência] = Me.txtTel2Contato
rs![Relação do Contato de Emergência] = Me.txtRelacaoContato
rs![Nome Contato Emergência1] = Me.txtContato1
rs![Telefone 1 do Contato de Emergência1] = Me.txtTel1Contato1
rs![Telefone 2 do Contato de Emergência1] = Me.txtTel2Contato1
rs![Relação do Contato de Emergência1] = Me.txtRelacaoContato1
rs![Nome do Médico] = Me.txtMedico
rs![Telefone do Médico] = Me.txtTelMedico
rs![Alergias] = Me.txtAlergias
rs![Medicamentos] = Me.txtMedicamentos

'********PÁGINA 03*************************************************************************
rs![Nome] = Me.txtNome
rs![Sobrenome] = Me.txtSobrenome
rs![Alcunha] = Me.txtAlcunha1
rs![Naturalidade] = Me.txtNaturalidade
rs![Estado Civil] = Me.txtEstadoCivil
rs![Nome da Mãe] = Me.txtNomeMae
rs![Nome do Pai] = Me.txtNomePai
rs![Data de Nascimento] = Me.txtDataNascimento
rs![Nacionalidade] = Me.txtNacionalidade
rs![RG/CPF] = Me.txtDocumentos
rs![Filhos] = Me.txtFilhos
rs![Se Falecida] = Me.txtFalecida
rs![Se falecido] = Me.txtFalecido
rs![Profissão] = Me.txtProfissao
rs![Grau de Instrução] = Me.txtInstrucao
rs![Telefone] = Me.txtTelRes1
rs![Trabalho- anterior a Prisão] = Me.txtTrabalho
rs![Conjuge] = Me.txtConjuge
rs![Etnia] = Me.txtEtinia
rs![Tipo Físico] = Me.txtTipoFisico
rs![Peso Informado] = Me.txtPeso
rs![Cabelos] = Me.txtCabelos
rs![Olhos] = Me.txtOlhos
rs![Estatura] = Me.txtEstatura
rs![Sinais Particulares] = Me.txtSinais
rs![Endereço] = Me.txtEndereco
rs![Estado] = Me.COMBO1
rs![Cidade] = Me.Combo2
rs![País] = Me.txtPais
rs![CodigoPostal] = Me.txtPostal
rs![Complemento] = Me.txtComplemento

'********PÁGINA 03*************************************************************************
rs![Data da Prisão] = Me.txtDataPrisao
rs![Origem] = Me.txtOrigem
rs![Data da Saída] = Me.txtDataSaida
rs![Reicidente] = Me.txtReicidente
rs![EntradaNaUnidade] = Me.CboEntradaUnidade
rs![Processo Número] = Me.txtProcessoNum
rs![Infração] = Me.txtInfração
rs![Regime] = Me.txtRegime
rs![Situação Penal] = Me.CboSituacaoPenal
rs![Pena Ano] = Me.CboPenaAno
rs![Pena Mês] = Me.CboPenaMes
rs![Condicional] = Me.txtCondicional
rs![Término Pena] = Me.txtTerminoPena
rs![Juizado] = Me.txtComarca
rs![Vara] = Me.txtVara
rs![Promotoria] = Me.txtPromotoria
rs![Processos em outras Comarcas] = Me.txtProcessoOutrasComarcas
rs![Situação do Processo Anterior] = Me.txtSituaçãoProcAnterior
rs![Promotoria] = Me.txtPromotoria
rs![Mês Alvará] = Me.cboMesAlvara
rs![Alvará] = Me.txtAlvara
rs![Assitente Jurídico] = Me.txtAssistenteJu
rs![Observações] = Me.txtObservacoes
rs![Data da Inclusao na unidade] = Me.txtDataInclusao

' Atualiza os dados na tabela
rs.Update
MsgBox "Registro Salvo com sucesso...", vbInformation
Else
Cancel = True
'Me.txtNome.Value = ""
'Me.txtMorada.Value = ""
'Me.cboPesquisa.Requery
Exit Sub
End If

rs.Close
Set rs = Nothing
Set Db = Nothing

Exit_Salvar:
Exit Sub

Err_Salvar:

MsgBox "Erro número: " & err.Number & vbLf & vbLf & err.Description, vbCritical, "Syspen!"

Resume Exit_Salvar
End Sub

Ótimo! Bom trabalho

Não conseguiria sem vossa Ajuda!!!

Se hoje não tiver mais... Amanha tu não escapa...

kkkk

Boa Noite

Hoje eu escapo. Estou indo aproveitar o tempo fresco. 13 graus no momento. Até a madrugada cai mais uns 5 grausinhos e fica do jeito que eu gosto

Bom descanso

Tu é de que cidade???

Totalmente apátrida, mas tem guarida em MG Uberlandia

hehehe!