[Resolvido]Código não atualiza tabelas

Pessoal mais uma vez estou aqui por duvidas banais com certeza.

Mas o que acontece é o seguinte consegui finalmente fazer com que o codigo funcionasse da forma que eu queria gerando algumas parcelas, mas agora quando eu coloco as informaçoes no formulario ele não executa as adicoes na TblAlugueis nem atualiza a Tblimoveis como eu queria sem que antes eu anvance naqules botoes de navegação no rodape da pagina e depois volte para que ele execute os comandos o que pode ser isso ???



Desde já Agradeço a todos

Alex

Não dá pra testar teu exemplo, falta um subform e outras "cositas".
Teste, o exemplo que disponibilizou.

Mas antes disso, experimente acrescentar as linhas em azul no código do botão.

Colori alguns nomes de controles, atente para esses nomes, veja que esses nomes no código é diferente dos nomes nas tabelas.
idcontrato  é diferente de idContrato

[ ]'s

Noob

Private Sub Comando64_Click()
'On Error Resume Next
Dim str    As String
Dim i        As Byte
Dim filtro As String
Dim Sel As Variant
Dim h As Byte
   For i = 1 To Me!QTD_MESES.Value
   CurrentDb.Execute "INSERT INTO tblalugueis (num_parcela, datavencimento, valor,idcontrato ) VALUES (" & i & ",'" & DateAdd("m", i, Me!INIC_CONTRATO) & "','" & Me!VALOR_ALUGUEL & "','" & Me!IDCONTRATO & "' )"
   Next i

   For Each Sel In Me!Lista88.ItemsSelected
   CurrentDb.Execute "update tblimoveis set Alugado = -1, idcontrato = " & Me!IDCONTRATO & " Where IdImovel = " & Me!Lista88.Column(0, Sel)
   Next Sel
   
Me.TimerInterval = 1200
MsgBox "Parcelas geradas com sucesso!"
Me.TimerInterval = 0
Me.Requery
Me.Lista88.Requery
End Sub

Noobezinho bom dia,

Eu fiz as alteraçoes mas não tive exito estou enviando o arquivo completo, mas tive que compactar duas vezes,pois estou recebendo um aviso que ultrapassei o limite de upload, se voce puder dar uma olhada o form é CONTRATO 2.

Obrigado Halex

Bom dia, vidaboa1978
Respeite as regras. Com o tempo que tem no fórum, já devia estar mais atento
- marque o Resolvido, quando se verificar
- coloque título ilucidativo. O que não deu certo representa quase todas as dúvidas do fórum e em todas as áreas

Ta aí teu aplicativo modificado


Lembre-se, o WinRar também faz arquivo.zip, veja como ali embaixo, na minha assinatura.

Caro Noobezinho boa tarde,


Estou testando aqui mas depois de clicar no botao "inserir contrato" ele não atualiza as tabelas Tblalugueis , TblImoveis. Ele só o faz se eu fechar e abrir o formulario "contrato 2" e voltar no registro para que ele gere as parcelas e atualize os campos.

Abraço Halex

Alex

Na tabela TblImóveis ele grava  o numero do contrato (IDContrato) e  a situação de Alugado(True ou -1)
como pede a consulta atualização.

Também grava na tabela tblalgueis  nos campos num_parcela, datavencimento, valor, idContrato de cada parcela

ou seja,

Aqui está funcionando como pede as consultas.

Sera que ha alguma configuração do access a ser feita, devo desintalar e re-instalar o access ?

abraço Halex

Lembre-se do alerta sobre o título

Não

Apague o arquivo e volte a baixa-lo e então experimente.

Pode ser que esteja rodando o teu exemplo, ao invés do meu exemplo.

Meu camarada desculpe estar sendo insistente, mas eu ja apaguei todos os arquivos fiz um novo download desinstalei o office instalei novamente e nada. Agora fiz um video para que se possa ver oque esta acontecendo.

https://www.dropbox.com/s/u5cv0fjgi6modn5/Video_1432223831.wmv?dl=0

Obrigado Halex

Vendo o teu vídeo , te pergunto:
Você selecionou dois imóveis.
Você aluga dois imóveis num mesmo contrato?

sim e isso aconte bastante, pois muitas vezes são pequenas lojas que viram um lojao, e como os IPTUs, e outras taxas são cobradas do locatarios os imoveis ainda precisao ser cuidados em separado.

Vou verificar aqui sobre isso,

Enquanto isso, conserte o título do teu tópico ou sofrerá penalidades.

Um exemplo de título:

Código não grava nas tabelas

Obrigado pelo toque

Veja se é isso.



Download

Caro amigo Noobezinho bom dia,

Eu via a mudança, mas não sei o porque ele continua não atualizando os registro logo de inicio.

estou lhe mandando o video

https://www.dropbox.com/s/hocx7ieplyelt3e/Video_1432364621.wmv?dl=0

abraço

Alex


Acrescente as linha em azul nó código do botão  inserir contrato e teste

Private Sub Comando64_Click()
'On Error Resume Next
Dim str    As String
Dim i        As Byte
Dim filtro As String
Dim VarSel As Variant
Dim frm As Form, ctl As Control
Set frm = Me
Set ctl = frm!Lista0
   With ctl
        If .ItemsSelected.Count = 0 Then ' se não há registros selecinados na Lista) sai.
           MsgBox "Não há registro selecionados.", _
               vbExclamation, "Selecionar"
               ctl.SetFocus
           Exit Sub
        End If

         For Each VarSel In .ItemsSelected
           
                 
                  CurrentDb.Execute "update tblImoveis set Alugado = -1, idContrato = " & Me!Idcontrato & " Where IdImovel = " & .ItemData(VarSel)
           
         Next

        For i = 1 To Me!QTD_MESES.Value
            CurrentDb.Execute "INSERT INTO tblalugueis (num_parcela, datavencimento, valor, idContrato ) VALUES (" & i & ",'" & DateAdd("m", i, Me!INIC_CONTRATO) & "','" & Me!VALOR_ALUGUEL & "','" & Me!Idcontrato & "' )"
        Next
     
   End With
   DoCmd.RunCommand acCmdSaveRecord
   Me.Requery
   

'Me.TimerInterval = 1200
MsgBox "Parcelas geradas com sucesso!"
'Me.TimerInterval = 0

End Sub

Aqui agora esta funcionando da seguinte forma eu tenho de clicar 2 vezes no botao inserir contrato para ele atualizar as tabelas. Sera que o local aonde é colocado o comando " DoCmd.RunCommand acCmdSaveRecord" faz a diferença, coloquei igual ao que voce me mandou.

Opaaaaa! Acho que resolvemos, fui testando e ficou assim ainda tenho que limpar o codigo do teste mas funcionou. Não sei esta correto ou se você concorda ?

Private Sub Comando64_Click()
'On Error Resume Next
Dim str As String
Dim i As Byte
Dim filtro As String
Dim VarSel As Variant
Dim frm As Form, ctl As Control
Set frm = Me
Set ctl = frm!Lista0
With ctl
If .ItemsSelected.Count = 0 Then ' se não há registros selecinados na Lista) sai.
MsgBox "Não há registro selecionados.", _
vbExclamation, "Selecionar"
ctl.SetFocus
Exit Sub
End If
DoCmd.RunCommand acCmdSaveRecord
For Each VarSel In .ItemsSelected

Debug.Print .ItemData(VarSel)
CurrentDb.Execute "update tblImoveis set Alugado = -1, idContrato = " & Me!Idcontrato & " Where IdImovel = " & .ItemData(VarSel)

Next
'DoCmd.RunCommand acCmdSaveRecord
For i = 1 To Me!QTD_MESES.Value
CurrentDb.Execute "INSERT INTO tblalugueis (num_parcela, datavencimento, valor, idContrato ) VALUES (" & i & ",'" & DateAdd("m", i, Me!INIC_CONTRATO) & "','" & Me!VALOR_ALUGUEL & "','" & Me!Idcontrato & "' )"
Next
'DoCmd.RunCommand acCmdSaveRecord
End With
'DoCmd.RunCommand acCmdSaveRecord
'Me!Lista0.Requery

'Me.TimerInterval = 1200
MsgBox "Parcelas geradas com sucesso!"
'Me.TimerInterval = 0

End Sub




Nobeezinho muitissimo obrigado pela ajuda sem você eu não teria conseguido

Noobezinho muitooo obrigado pela ajuda e eu voltando a precisar espero poder contar com sua ajuda.

Grande abraço Halex

Que bom que funfou Alex

Aqui funciona como enviei o código.

Valeu o retorno !


Boa sorte!!


Noob