Falha Na Pesquisa
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Falha Na Pesquisa as PDF for free.
More details
- Words: 113
- Pages: 2
Quando começava a escrever, parecia a lista de todos os nomes e agora não aparece
Com o Office Access 2007, a lista já funciona O código é este Private Sub BuscaNome_AfterUpdate()
Me.RecordsetClone.FindFirst "[Nº ORDEM] = " & Me![BuscaNome] Me.Bookmark = Me.RecordsetClone.Bookmark Me![BuscaNome] = "" Me![NOME].SetFocus Me![BuscaNome].Enabled = False Comando57.Enabled = True End Sub Private Sub BuscaNome_LostFocus() If IsNull(BuscaNome) Then BuscaNome = "" Me!NOME.SetFocus BuscaNome.Enabled = False Comando57.Enabled = True End If End Sub Private Sub BuscaNome_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me!STATUS.Caption = "Relação de Funcionários para pesquisa" End Sub Private Sub BuscaNome_NotInList(NewData As String, Response As Integer) MsgBox "Funcionário não cadastrado!" Response = acDataErrContinue End Sub
Com o Office Access 2007, a lista já funciona O código é este Private Sub BuscaNome_AfterUpdate()
Me.RecordsetClone.FindFirst "[Nº ORDEM] = " & Me![BuscaNome] Me.Bookmark = Me.RecordsetClone.Bookmark Me![BuscaNome] = "" Me![NOME].SetFocus Me![BuscaNome].Enabled = False Comando57.Enabled = True End Sub Private Sub BuscaNome_LostFocus() If IsNull(BuscaNome) Then BuscaNome = "" Me!NOME.SetFocus BuscaNome.Enabled = False Comando57.Enabled = True End If End Sub Private Sub BuscaNome_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me!STATUS.Caption = "Relação de Funcionários para pesquisa" End Sub Private Sub BuscaNome_NotInList(NewData As String, Response As Integer) MsgBox "Funcionário não cadastrado!" Response = acDataErrContinue End Sub
Related Documents
Falha Na Pesquisa
July 2020 6
A Pesquisa Na Internet
June 2020 10
Pesquisa Na Internet
November 2019 26
Pesquisa De Alcool Na Familia
April 2020 8
Ficha De Pesquisa Na Internet
December 2019 14