Editar no proximo campo Access - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: Editar no proximo campo Access

Roberto
não registrado

Postada em 29/10/2005 07:59 hs

Tenho o codigo abaixo, e gostaria de editar o proximo registro que a sequencia esta
em branco Ex:
CONTRATO SEQ
7550            1
7550          BRANCO

COM O CODIGO ABAIXO ELE EDITA  NOS DOIS O NUMERO DO TEXTBOX
OU SEJA TEXTBOX FOR 2 ELE FAZ

7550           2
7550           2

GOSTARIA DE

7550          1
7550          2

OBSERVACAO JA EXISTE A SEQUENCIA UM NO CONTRATO
SO VAI SURGIR MAIS CONFORME ATUALIZACAO

Dim apagar191 As Recordset
Dim testando191 As Integer

testando191 = txtnumerocontrato.Text

Set apagar191 = BDados.OpenRecordset("ContasPagar", dbOpenDynaset)
With apagar191
.MoveMin

    While Not .EOF
        If !numerocontrato = testando191  Then

      apagar191.edit
      apagar191("seq") = Text1.Text
      apagar191.Update


      End If
.MoveNext

Wend
End With

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

Postada em 29/10/2005 15:56 hs

While Not .EOF
    If !numerocontrato = testando191 And Len(!numeroSequencia) = 0 Then
        apagar191.edit
        apagar191("seq") = Text1.Text
        apagar191.Update
    End If
    .MoveNext

Wend

No exemplo, suponho q o nome do campo q tenha a sequencia seja "numeroSequencia"... muda pelo nome certo...

Pelo q entendi de sua pergunta, isso resolve...

QQ coisa, posta ai... Flw!

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

TÓPICO EDITADO

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2025 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site