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


2 participantes

    Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto

    avatar
    cassio1912
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 10/03/2014

    Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto Empty Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto

    Mensagem  cassio1912 10/3/2014, 18:50

    Estou com dificuldade no módulo do VBA, já verifiquei os nomes digitados e não consigo resolver.
    Pode me dar uma ajuda?
    O módulo é:

    Private Sub bt_pesquisar_Click()

    Sheets("cadastro").Select

    If cx_pesquisar.Text = "" Then
       MsgBox ("Digite um nome para pesquisa.")
        cx_pesquisar.SetFocus
        Exit Sub

    End If

    Dim c

    linha = 3

    With Worksheets("cadastro").Range(linha, 2)

    Set c = .Find(cx_pesquisar.Value, LookIn:=xlValues, LookAt:=xlPart)

    If Not c Then
    linha = linha + 1

    Do Until Sheets("cadastro").Cells(linha, 2) = ""

    Loop

    c.Activate
       cx_nome.Value = c.Value
       cx_apelido.Value = c.Offset(linha, 3).Value
       cx_cidade.Value = c.Offset(linha, 4).Value
       cx_estado.Value = c.Offset(linha, 5).Value

    Else
       MsgBox ("Cadastro inexistente!")
     
    End If

    End With

    End Sub


    Desde já agradeço, pois já perdi um tempão nessa etapa...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto Empty Re: Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto

    Mensagem  JPaulo 11/3/2014, 09:31

    Ola seja bem vindo ao forum.

    Amigão, este é um forum exclusivamente Ms Access e a sua duvida é Excel puro.

    Este tópico vai ser movido para a sala Off-Topic.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto Folder_announce_new 102 Códigos VBA Gratuitos...
    Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto Folder_announce_new Instruções SQL como utilizar...
    avatar
    cassio1912
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 10/03/2014

    Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto Empty Re: Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto

    Mensagem  cassio1912 11/3/2014, 10:26

    Obrigado Paulo.

    Conteúdo patrocinado


    Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto Empty Re: Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:49