Access Procv no formulario VBA com ACCESS

[DavidsonGomes1998]

Boa tarde mestres

 

Como faço pra quando preencher o CEP na ComboBox ele preencher automaticamente a cidade e a UF?

uso banco de dados no access

segue abaixo foto dos codigos do banco e da tabela

 

O CEP ta descriminado aqui como "Codigo"

 

[Basole]

Coloque a instrucão no evento _Click da Combobox CEP, para acionar automaticamente

 

ConectDB
       
        rs.Open "Select * FROM [tb_cep] WHERE [Codigo]='" & "NOME_DO_SEU_COMBOBOX_C/A PROPRIED .Text(*sem as aspas) " & "'", db, 3, 3
                
          If Not rs.EOF And Not rs.BOF Then
          
                ' * Altere abaixo o nome da textbox CIDADE e Combobox UF
                 Me.textbox1.Text = rs.Fields(4).Value
                 Me.combobox1.Text = rs.Fields(5).Value
         
          Else
          
                MsgBox "Registro Não Encontrado"
            
           End If
          
  FechaDb

 

[DavidsonGomes1998]

46 minutos atrás, Basole disse:

Coloque a instrucão no evento _Click da Combobox CEP, para acionar automaticamente

 

ConectDB
       
        rs.Open "Select * FROM [tb_cep] WHERE [Codigo]='" & "NOME_DO_SEU_COMBOBOX_C/A PROPRIED .Text(*sem as aspas) " & "'", db, 3, 3
                
          If Not rs.EOF And Not rs.BOF Then
          
                ' * Altere abaixo o nome da textbox CIDADE e Combobox UF
                 Me.textbox1.Text = rs.Fields(4).Value
                 Me.combobox1.Text = rs.Fields(5).Value
         
          Else
          
                MsgBox "Registro Não Encontrado"
            
           End If
          
  FechaDb

 

Bom no evento click nao funciona porque são muuuuitos ceps, teria que ser no exit.

 

tentei ajustar o codigo mas so passa pro msgbox. da uma olhada, o que fiz errado?

 

ConectDB
        
        rs.Open "Select * FROM [tb_cep] WHERE [Codigo]='" & ComboBox_Cep.Text & "'", db, 3, 3
                
            If Not rs.EOF And Not rs.BOF Then
          
                ' * Altere abaixo o nome da textbox CIDADE e Combobox UF
                    Me.ComboBox_cidade.Text = rs.Fields(4).Value
                    Me.ComboBox_estado.Text = rs.Fields(5).Value
         
            Else
          
                    MsgBox "Registro Não Encontrado"
            
            End If
          
  FechaDb

 

[Basole]

Considerando que os dados armazenados na combobox cep, como valores,experimente sem as aspas simples.

 

rs.Open "Select * FROM [tb_cep] WHERE [Codigo]=" & ComboBox_Cep.Text, db, 3, 3

 

[DavidsonGomes1998]

6 minutos atrás, Basole disse:

Considerando que os dados armazenados na combobox cep, como valores,experimente sem as aspas simples.

 

rs.Open "Select * FROM [tb_cep] WHERE [Codigo]=" & ComboBox_Cep.Text, db, 3, 3

 

ainda continua.

ate alterei de combobox para txtbox.

ConectDB
        
        rs.Open "Select * FROM [tb_cep] WHERE [Codigo]=" & ComboBox_Cep.Text, db, 3, 3
                
            If Not rs.EOF And Not rs.BOF Then
          
                ' * Altere abaixo o nome da textbox CIDADE e Combobox UF
                    Me.Txt_Cidade.Value = rs.Fields(4).Value
                    Me.Txt_Estado.Value = rs.Fields(5).Value
                    
         
            Else
          
                    MsgBox "Registro Não Encontrado"
            
            End If
          
  FechaDb

 

adicionado 2 minutos depois

8 minutos atrás, Basole disse:

Considerando que os dados armazenados na combobox cep, como valores,experimente sem as aspas simples.

 

rs.Open "Select * FROM [tb_cep] WHERE [Codigo]=" & ComboBox_Cep.Text, db, 3, 3

 

na verdade funcionou, uma coisa q nao reparei é q tava com uma formatação programada, e tava ficando diferente do banco por causa dos pontos kkk, valeu mestre