MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Erro de variável não definida

    mathusalmeida
    mathusalmeida
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 30/08/2011

    [Resolvido]Erro de variável não definida Empty [Resolvido]Erro de variável não definida

    Mensagem  mathusalmeida 18/4/2014, 16:09

    Olá a todos do fórum

    estou usando o código abaixo, para gerar parcela, código baseado no exemplo do agravina aqui do fórum:

    Código:
    Dim I As Integer
    Dim StrDateAdd As Date
    Dim StrValorParc As Double
    Dim Parc As String
    StrValorParc = Me.txtValorMês
    For I = 1 To Me.txtParc
    StrDateAdd = DateAdd("m", 1 * I, Me.txtData) ' não sei explicar
    StrParc = I & "/" & Me.txtParc (está dando erro de varável não definida e marcando esta linha)
    CurrentDb.Execute "INSERT INTO tblExemplo(CpNome, CpMatrícula, CpCompra,CpData,CpValor, CpConveniada, CpDataCompra)" _
                    & " Values(""" & Me.txtNomeCliente & """, """ & Me.txtCodCliente & """, """ & Me.txtDescricao.Value & """, """ & StrDateAdd & """, """ & StrValorParc & """,  """ & Me.cboConveniada.Column(1) & """, """ & Me.txtData & """);"
    Next I
    'atualiza listbox das parcelas
    Me.lstParcelas.Requery
    Me.btnGerar.Enabled = False
    End If

    o que há de erra com o código, usava em um form e rodava legal, quando adaptei a outro form gerou o erro: (Variável não definida)

    Ajudem por favor.
    mathusalmeida
    mathusalmeida
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 30/08/2011

    [Resolvido]Erro de variável não definida Empty Re: [Resolvido]Erro de variável não definida

    Mensagem  mathusalmeida 18/4/2014, 17:10

    Desculpem

    Depois de uma olhada com mais calma e, usando a técnica de /alterar/testar/alterar/testar, percebi que o erro está aqui:

    Dim Parc As String

    quando deveria ser

    Dim StrParc As String

    declarando isto

    StrParc = I & "/" & Me.txtParc

      Data/hora atual: 28/3/2024, 20:10