Estou desenvolvendo um formulário em VBA para controle de aquisições.
Preciso que os campos "número de linha" e "número de operação" sigam uma contagem.
O nº linha está correto, mas o nº operação não atualiza mais após salvar a segunda linha.
Como posso solucionar isso?
Código para inserir novo registro:
Código: Selecionar todos
Private Sub cmdNovo_Click()
Numero_Linhas
Numero_RAS
cmdNovo.Enabled = False
cmdSalvar.Enabled = True
cmdCancelar.Enabled = True
cmdRelatorio.Enabled = False
cmdFechar.Enabled = True
cboLinha.Enabled = False
cboNumeroOperacao.Enabled = False
cboNumeroFornecedor.Enabled = True
frFornecedor.Enabled = True
txtVendedor.Enabled = False
txtCidade.Enabled = False
End Sub
Código: Selecionar todos
Public Sub Numero_Linhas()
cboLinha = plCadastro.UsedRange.Rows.Count
cboLinha.AddItem plCadastro.UsedRange.Rows.Count + 1
End Sub
Código: Selecionar todos
Public Sub Numero_RAS()
If cboLinha <= 9 Then
cboNumeroOperacao.AddItem Format(Date, "yyyy-") & "00" & cboLinha
ElseIf cboLinha <= 99 Then
cboNumeroOperacao.AddItem Format(Date, "yyyy-") & "0" & cboLinha
Else
cboNumeroOperacao.AddItem Format(Date, "yyyy-") & cboLinha
End If
cboNumeroOperacao.Value = cboNumeroOperacao.List(cboNumeroOperacao.ListIndex + 1)
End Sub