Ola amigos boa tarde...
tenho um form. frmCadRuas, onde neste form tenho duas combobox filtradas pelo formulário.
numa combobox tenho a lista de ruas filtradas pelo bairro 'forms!frmCadRuasInsere!CodBairro
e na outra a mesma lista de ruas filtradas pelo município 'forms!frmCadRuasInsere!CodMunicipio'
preciso que ao abrir a primeira combobox 'cbBuscaRuasBai' (com as ruas já filtradas pelo código do Bairro), ao digitar o nome da rua para busca, se ela não estiver na lista, me retorne:
Sem a mensagem padrão do access de que não está na lista...
if msgbox("Rua não encontrada na lista de Ruas do Bairro"& vcrlf &" Deseja procurar na Lista de Ruas do Município ?",vbQuestion+VbYesNo,"Rua não encontrada")= vbYes then
me.cbBuscaRuasMun.setfocus
me.cbBuscaRuasMun.Dropdown
else
end if
o problema é que não consigo acessar a segunda combobox sem dar erro 2110
agradeço antecipando minhas considerações.
tenho um form. frmCadRuas, onde neste form tenho duas combobox filtradas pelo formulário.
numa combobox tenho a lista de ruas filtradas pelo bairro 'forms!frmCadRuasInsere!CodBairro
e na outra a mesma lista de ruas filtradas pelo município 'forms!frmCadRuasInsere!CodMunicipio'
preciso que ao abrir a primeira combobox 'cbBuscaRuasBai' (com as ruas já filtradas pelo código do Bairro), ao digitar o nome da rua para busca, se ela não estiver na lista, me retorne:
Sem a mensagem padrão do access de que não está na lista...
if msgbox("Rua não encontrada na lista de Ruas do Bairro"& vcrlf &" Deseja procurar na Lista de Ruas do Município ?",vbQuestion+VbYesNo,"Rua não encontrada")= vbYes then
me.cbBuscaRuasMun.setfocus
me.cbBuscaRuasMun.Dropdown
else
end if
o problema é que não consigo acessar a segunda combobox sem dar erro 2110
agradeço antecipando minhas considerações.