Tipo, tá salvando a locação com o cliente, alterando o status do bd do filme e o list view, mas quando abro o cadastro o status continua disponível lá... enfim, e não consigo salvar mais de um filme em uma mesma locação :x Está ai a foto e o código
Private Sub cmdfinalizar_Click()
Dim vsql, vsqlf, vsqlc, vsql1 As String
Dim csaldo, fsaldo As Integer
Dim f As Integer
If rsfilmes.State = 1 Then
rsfilmes.Close
End If
If rslocaçao.State = 1 Then
rslocaçao.Close
End If
If rsclientes.State = 1 Then
rsclientes.Close
End If
If rslocaçaofilmes.State = 1 Then
rslocaçaofilmes.Close
End If
vsql = "select * from locaçao where cod_loc = " & txtcod_loc.Text
rslocaçao.Open vsql, cnbase, adOpenKeyset, adLockOptimistic, adCmdText
If rslocaçao.RecordCount = 0 Then
rslocaçao.AddNew
'SALVANDO DADOS BÁSICOS NA LOCAÇÃO
rslocaçao.Fields("cod_loc") = txtcod_loc.Text
rslocaçao.Fields("loc_data") = Date
rslocaçao.Fields("loc_hora") = Time
rslocaçao.Fields("loc_dev") = txtloc_dev.Text
rslocaçao.Fields("loc_subtotal") = Format(frmlocar.txtloc_subtotal.Text, "###,##,0.00")
rslocaçao.Fields("loc_desc") = Format(frmlocar.txtloc_desc.Text, "###,##,0.00")
rslocaçao.Fields("loc_total") = Format(frmlocar.txtloc_total.Text, "###,##,0.00")
rslocaçao.Fields("cod_cli") = frmlocar.txtcod_cli.Text
rslocaçao.Fields("cli_nome") = frmlocar.txtcli_nome.Text
rslocaçao.Fields("cli_cpf") = frmlocar.txtcli_cpf.Text
'rslocaçao.Fields("loc_vista") = frmlocar.optvista.Value
'rslocaçao.Fields("loc_nadev") = frmlocar.optdev.Value
f = lvwlocaçao.ListItems.Count
Do Until f = 0
'rslocaçao.Fields("cod_film") = lvwlocaçao.ListItems.Item(f)
rslocaçao.Fields("film_cod") = frmlocar.lvwlocaçao.ListItems.Item(f).SubItems(1)
rslocaçao.Update
vsqlf = "select * from filmes where cod_film = " & lvwlocaçao.ListItems.Item(f)
rsfilmes.Open vsqlf, cnbase, adOpenKeyset, adLockOptimistic, adCmdText
If rsfilmes.RecordCount > 0 Then
rsfilmes.Fields("film_status") = "LOCADO"
fsaldo = rsfilmes.Fields("film_saldo")
rsfilmes.Fields("film_saldo") = CCur(fsaldo) + CCur(lvwlocaçao.ListItems.Item(f).SubItems(5))
rsfilmes.Update
rsfilmes.Close
Else
MsgBox "Não foi possível atualizar o status do filme!!", vbCritical, "Atenção:"
rsfilmes.Close
End If
f = f - 1
Loop
rslocaçao.Close
End If
vsqlc = "select * from clientes where cod_cli = " & frmlocar.txtcod_cli.Text
rsclientes.Open vsqlc, cnbase, adOpenKeyset, adLockOptimistic, adCmdText
If rsclientes.RecordCount > 0 Then
rsclientes.Fields("cli_status") = "COM LOCAÇÃO"
csaldo = rsclientes.Fields("cli_saldo")
rsclientes.Fields("cli_saldo") = CCur(csaldo) + CCur(txtloc_total.Text)
rsclientes.Update
rsclientes.Close
Else
MsgBox "Cliente não foi atualizado !!!", vbCritical, "Atenção:"
rsclientes.Close
End If
End Sub