• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

RatYnh0

Problema com o botao ultimo

2 mensagens neste tópico

boas!

Tou com um problema no VB... é o seguinte eu tenho uma base de dados sql com bastantes chaves estrangeiras...

O botão para avançar para o primeiro registo está a funcionar direito, mas o último está-me a dar bastantes problemas, que até o apaguei.. e estou a usar o VB6

O código do para avançar para o primeiro registo é o seguinte:

Private Sub primeiro_Click()

Dim cod_client, cod_t, id_repa, garant, concl As Integer

Set r = New ADODB.Recordset

Set rs = New ADODB.Recordset

Set rs2 = New ADODB.Recordset

Set rs3 = New ADODB.Recordset

Set rs4 = New ADODB.Recordset

cod_cliente.Text = lista_clientes.cod.Text

rs.Open "SELECT * From recepcao where id_clientes= '" & cod_cliente.Text & "' ", con, adOpenStatic, adLockOptimistic

rs.MoveFirst

Data.Text = rs.Fields("data")

descricao.Text = rs.Fields("descricao")

marca.Text = rs.Fields("marca")

cod_assistencia.Text = rs.Fields("id_recepcao")

cod_t = rs.Fields("id_tipo")

rs2.Open "SELECT * From tipo where id_tipo= '" & cod_t & "'", con, adOpenStatic, adLockOptimistic

tipo.Text = rs2.Fields("equipamento")

r.Open "SELECT * From clientes where id_clientes= '" & cod_cliente.Text & "' ", con, adOpenStatic, adLockOptimistic

cod_cliente.Text = r.Fields("id_clientes")

nome_cliente.Text = r.Fields("nome")

contacto.Text = r.Fields("telemovel")

rs3.Open "SELECT * FROM assistencias where id_recepcao= '" & cod_assistencia.Text & "'", con, adOpenDynamic, adLockOptimistic

id_repa = rs3.Fields("id_reparacao")

garant = rs3.Fields("garantia")

concl = rs3.Fields("id_conclusao")

outro = rs3.Fields("outro")

rs4.Open "SELECT * FROM reparacoes where id_reparacao = '" & id_repa & "'", con, adOpenDynamic, adLockOptimistic

If rs4.Fields("a") = 1 Then

    Check1.Value = 1

End If

If rs4.Fields("b") = 1 Then

    Check2.Value = 1

End If

If rs4.Fields("c") = 1 Then

    Check3.Value = 1

End If

If rs4.Fields("d") = 1 Then

    Check4.Value = 1

End If

If rs4.Fields("e") = 1 Then

    Check5.Value = 1

End If

If rs4.Fields("f") = 1 Then

    Check7.Value = 1

End If

If rs4.Fields("g") = 1 Then

    Check8.Value = 1

End If

If rs4.Fields("h") = 1 Then

    Check9.Value = 1

End If

If rs4.Fields("o") = 1 Then

    Check10.Value = 1

End If

If rs4.Fields("j") = 1 Then

    Check11.Value = 1

End If

If rs4.Fields("k") = 1 Then

    Check12.Value = 1

End If

If rs4.Fields("l") = 1 Then

    Check13.Value = 1

End If

If rs4.Fields("m") = 1 Then

    Check14.Value = 1

End If

If rs4.Fields("n") = 1 Then

    Check15.Value = 1

End If

If rs4.Fields("p") = 1 Then

    Check16.Value = 1

End If

Option1.Value = False

Option2.Value = False

Option3.Value = False

Option4.Value = False

Option5.Value = False

If concl = 1 Then

    Option3.Value = True

Else

    If concl = 2 Then

        Option4.Value = True

    Else

        Option5.Value = True

    End If

End If

If garant = 1 Then

    Option1.Value = True

Else

    Option2.Value = True

End If

movnext = 1

End Sub

Quem me poder dar alguma ajuda....

Desde já o meu obrigado!

cumps,

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora