AGREGAR MAIS CLIENTES

NATHANPC 26/07/2009 10:53:30
#317886
Olá.
Estava estudando este e exemplo de aplicação de video locadora:http://www.macoratti.net/vbvideo.zip e queria saber como agregar mais clientes, pois eu o estava testando e descobri que depois de compilado ele não agrega mais dados, ou seja, na hora de incluir dados como cliente ele esta no 0026 e não agrega mais outro.

Obrigado,
Nathan Paulino Campos
TECLA 26/07/2009 11:46:32
#317891 Resposta escolhida
No FORM CLIENTES, e no botão CMDAGREGAR (no evento CLICK), substitua a rotina atual por esta:

Private Sub cmdAgregar_Click()
If cmdAgregar.Caption = [Ô]&Agregar[Ô] Then
    RS.MoveLast
    RecuperarDB
    Codnew = Val(Right$(Codigotxt.Text, 5))
    cmdModif.Visible = False
    Desbloquear
    RS.AddNew
    LimpiarBox
    cmdFirst.Enabled = False
    cmdPrev.Enabled = False
    cmdNext.Enabled = False
    cmdLast.Enabled = False
    cmdAgregar.Caption = [Ô]&Aceptar[Ô]
    cmdAgregar.Enabled = False
    MDIPrincipal.BEstado.Panels(1) = [Ô]Agregando novo registro...[Ô]
    cmdCancelar.Visible = True
    cmdBuscar.Visible = False
    cmdSalir.Visible = False
    MostrarAster
    Codigotxt.Text = [Ô]RV[Ô] & Format(Codnew + 1, [Ô]00000[Ô])
Else
    If cmdAgregar.Caption = [Ô]&Aceptar[Ô] Then[txt-color=#0B615E] [ô]<<<< Aqui estava com problemas >>>>[/txt-color]
        cmdModif.Visible = True
        Bloquear
        Ingresar
        RS.Update
        Actual = RS.AbsolutePosition
        Final = RS.RecordCount
        cmdFirst.Enabled = True
        cmdPrev.Enabled = True
        cmdNext.Enabled = True
        cmdLast.Enabled = True
        cmdAgregar.Caption = [Ô]&Agregar[Ô]
        cmdAgregar.Enabled = True
        InfoBarra
        cmdCancelar.Visible = False
        cmdBuscar.Visible = True
        cmdSalir.Visible = True
        OcultarAster
    End If
End If
Nombretxt.SetFocus
End Sub


é isso!
Tópico encerrado , respostas não são mais permitidas
Voltar