MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    mathusalmeida
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  mathusalmeida em Sex 18 Abr 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  mathusalmeida em Sex 18 Abr 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: Sab 10 Dez 2016, 06:49