MaximoAccess

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

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
    avatar
    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.
    avatar
    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: Qui 29 Jun 2017, 03:11