Flecha

Humm Não deu certo, dá erro de comando ou função não disponivel Estou tentendo ainda.

Olá, tenho a sub abaixo num botão de excluir o registro no Subformulário mas não exclui, podem ajudar? Passa por toda a função exibe as mensagens de confirmar e confirma a exclusão, só que continua na tela. Private Sub Comando46_Click() On Error GoTo Err_Comando46_Click If MsgBox("Você tem certeza que quer EXCLUIR este registro? ", 36, " AVISO - Confirma ?") = 6 Then DoCmd.SetWarnings False ' Desabilita avisos. DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 MsgBox "Registro excluído com sucesso. ", vbInformation, " Sucesso" Else Exit_Comando46_Click: Exit Sub Err_Comando46_Click: MsgBox Err.Description Resume Exit_Comando46_Click DoCmd.SetWarnings True ' Habilita avisos. End If '--------------------------------------------------------------- '----------------------------------------------------------- End Sub Obrigado

Iceguy, Beleza, funciona. Gostaria de melhorar quando ele verifica e já existe coloquei uma MsgBox informando, mas gostaria de incluir abrindo o form no Numero que ele queria incluir, para conferir que já existe. Tem como? Obrigado

Iceguy, Mais uma vez, obrigado, estou testando e retorno pada informar. Grato

Olá, Mais uma dúvida para automatizar meu Cadastro. Como faço numa situação de cadastrar um nome e rg num cadastro? Quero que antes de abrir o formulário a pessoa digite o RG depois de digitado faça a busca e verifique se já existe, caso exista abre o form mostrando os dados referente ao RG e se nãoexistir abre o form para incluir já com o RG colocado no seu campo do formulário só esperando os demais dados. Obrigado

Iceguy, Parece que funcionou, só coloquei um form.requery após a exclusão pois o form ficava com os campos com #erro e ficou resolvido. Parece que quando o usuário escolhe Não substituir ele não obedece e faz a inclusão e exclusão preciso tentar acertar e retorno se conseguir. Vou testar mais. Caso eu tivesse um campo Em Uso Yes/No que tipo de instrução faria para mandar esses registros para outro arquivo ? Eu estou acertando um banco de dados da empresa que fornece material de segurança para os funcionários. Quando eles saem da empres devolvem o material e pode ser ou não reutilizado, dai como estava com muitos não reutilizavel decidi criar outra tabela para mandar esses casos para lá, deixando a outra Em uso mais leve. Aceito mais ideias, Obrigado

Olá, Tenho uma Tabela de material em uso e outra de Material fora de uso. Em um form tenho como origem a tabela de material em uso e um botão que executa a rotina de arquivar o Item selecionado (Numero) indexado e não autoiza duplicação nas duas tabelas Quando o item ficar fora de Uso (morto) Coloquei, no click do botão a rotina abaixo: Private Sub Bt_foradeUso_Click() On Error GoTo Err_Bt_foradeUso_Click '------------------------------------------------------------- 'Verifica se o Registro existe no Morto caso exista não executa o Arquivo, pois dará Duplicidade Dim IDsEncontrados As Recordset Dim strSQL As String If Not IsNull(Me.Numero) Then strSQL = " SELECT NUMERO FROM Material BX WHERE NUMERO = " & Me.Numero & "" Set IDsEncontrados = CurrentDb.OpenRecordset(strSQL) End If If IDsEncontrados.RecordCount <> 0 Then ' Encontrou NUMERO no Morto MsgBox "Esse Registro já existe no morto, vou abrir o formulário Fora de Uso!!" & Chr(13) & "E nele você deverá excluir o registro desse RG" & Chr(13) & " e depois repetir a operação de Arquivar no Morto, OK ?", vbInformation, "Aviso já existe no Morto" DoCmd.OpenForm "FrmMorto", acNormal, , "numero = " & IDsEncontrados("numero") Exit Sub Else MsgBox "Pode arquivar em Fora de Uso que não tem duplicidade", vbInformation, " Aviso" End If Dim stDocName As String stDocName = "Cons_Inclui_ Morto" DoCmd.OpenQuery stDocName, acNormal, acEdit stDocName = "cons_exclui_vivo" DoCmd.OpenQuery stDocName, acNormal, acEdit ' DoCmd.Close Me.Form.Requery Exit_Bt_foradeUso_Click: Exit Sub Err_Bt_foradeUso_Click: MsgBox Err.Description Resume Exit_Bt_foradeUso_Click End Sub Acontece que ela sempre informa que o Item já existe na tabela receptora e não é verdade. Onde esta o ero que não acho Desde já agradeço.

Olá Kuroi, Eu não sei o que é Vou tentar colocar um link da imagem da tela. http://i748.photobucket.com/albums/xx125/n...BM/Dataview.jpg

Olá, Ultimamente meu projeto que estava Ok esta dando uma mensagem quando vou abrí-lo para ediçaõ no projeto (não compilado) Quando começa a carregar aparece a tela de aviso: Data View Invalid Key Clico em fechar e contionua carregando normalmente. Executo o programa e funciona normal. O que será que aconteceu? Flecha

Kuroi, Tudo bem? Baixei e vou estudar. !!! Obrigado Flecha

Pessoal, Consegui contornar da seguinte forma: Private Sub txtProcurar_KeyPress(KeyAscii As Integer) Dim procurarpor As String If (KeyAscii >= 48 Or KeyAscii <= 57) Then CmbProcurarPor.ListIndex = -1 If (KeyAscii >= 65 And KeyAscii <= 122) Then CmbProcurarPor.ListIndex = 1 End Sub Se alguém tiver uma ideia melhor ou mais lógica, favor postar que agradeço. Flecha

Olá, Tenho a sub abaixo para efetuar a procura por RG ou inicio do nome. Na primeira combo Cmbprocurarpor tem a opção RG e NOME. Na textbox Txtprocurar a pessoa digita o RG ou Inicio do nome. Pela sub abaixo quando ele abre o form ambas vem em branco e quando ele digita algo na texbox a combo passa automático para RG Assim vai filtrando e preenche uma listview pela filtragem, tanto para RG como para Nome. Eu quero que quando ele entrar com número a combo vá automatico para RG e quando ele entrar com letras a combo vá para Nome e quando apagar a textbox a combo fica vazia. Para evitar da pessoa ficar voltando para clicar na combo para mudar a opção de busca. Não consegui alterar e peço a ajuda dos amigos. Private Sub txtProcurar_Change() txtFiltro End Sub Public Sub txtFiltro() Dim procurarpor As String If CmbProcurarPor.ListIndex = -1 Then CmbProcurarPor.ListIndex = 0 If CmbProcurarPor.ListIndex = 0 Then procurarpor = "RG" ElseIf CmbProcurarPor.ListIndex = 1 Then procurarpor = "Nome" End If verifica_rs rs.Open "select * from Customer where " & procurarpor & " like '" & TxtProcurar & "%' order by " & "nome", mobjConn preenche_lista ' dos escolhidos End Sub PS. Gostaria de saber se isso vai funcionar só filtrando para a listview ou também tem como filtrar para o form principal onde estão todos os registros. Pois estou fazendo um projeto sem a listview e também gostaria de usar esse tipo de busca. Flecha

Kuroi, Obrigado funcionou. Flecha

Olá, Eu consegui tirar o erro, a abertura do BD estava em outro form e colei para o form do login. Agora não dá erro mas também retorna que não confere o usuário não existe. Esta tudo certo o login esta salvo junto com a senha mas ele não acha. Ficou assim a sub: Option Explicit Private Sub Command1_Click() Dim sql As String sql = "Select * From usuarios Where login = ' " & Txtuser.text & " ' And Senha = ' " & Txtsenha.text & " ' " Set Rs = Con.Execute(sql) If Rs.EOF Then MsgBox "Usuário ou senha inválidos!" Else Unload Me FormCadastro.Show End If End Sub Private Sub Form_Load() Set Con = New ADODB.Connection Set Rs = New ADODB.Recordset 'Provedor de acesso ao Banco de dados Con.Open " Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & App.Path & "\Cust.mdb" 'Abrindo uma tabela do banco de dados Cadastro Rs.CursorLocation = adUseClient End Sub Flecha

Kuroi, Copiei um código postado por você em outro tópico esta dando o erro 91 na linha set rs = con.execute(sql) Object variable With block variable not set A sub que usei: Private Sub Command1_Click() Dim sql As String sql = "Select * From usuarios Where login = ' " & Txtuser.text & " ' And Senha = ' " & Txtsenha.text & " ' " Set Rs = Con.Execute(sql) If Rs.EOF Then MsgBox "Usuário ou senha inválidos!" Else Unload Me FormCadastro.Show End If End Sub O que esta errado ? Flecha

Kuroi, realmente, já havia tentado localizar dentro do projeto mas coloquei palavras a mais. refinando a consulta eu achei, existe uma sub num módulo e ele a chama pela SelectTextboxText ai dentro dela tem a que eu tive que usar With TxtRg .SelStart = 0 .SelLength = Len(.text) End With reumiria em uma linha para cada textbox só colocando a chamada para o modulo. Resolvido Obrigado

Ola, Gostaria de saber porque a Sub abaixo funciona em um projeto e no outro que estou fazendo do Zero (para aprender) não funciona dá erro de sub ou função não definida nessa linha SelectTextboxText TxtRg A sub é essa: Private Sub TxtRg_GotFocus() SelectTextboxText TxtRg End Sub Para funcionar eu tive que arrumar outra sub para o GotFocus() abaixo que funcionou no lugar da outra. Private Sub TxtRg_GotFocus() ' selecionar o texto ao receber o foco With TxtRg .SelStart = 0 .SelLength = Len(.text) End With End Sub Será que tem que carregar alguma referência ? Flecha

Kuroi, perdoe a santa ignorancia e a cegueira. Resolvido Obrigado e até breve.. Flecha

Kuroi, coloquei o Combo1.ListIndex = -1 na linha da sub que limpava a combo com Combo1 = "" E ficou funcionando como queria. Nesse projeto Coloquei a mesma coisa em outro projeto e esta dando erro Compile error Cant't assign to read-only property Tem essas subs que acho que estão relacionadas: Carrega os dados do ListView para os campos do form quando clicado '----------------------------------------------------------------------------- Private Sub lvwCustomer_ItemClick(ByVal Item As MSComctlLib.ListItem) '----------------------------------------------------------------------------- gblnPopulating = True With Item txtNOME.text = .text TxtID.text = .SubItems(mlngCUST_ID_IDX) txtRg.text = .SubItems(mlngCUST_RG_IDX) txtENDEREÇO.text = .SubItems(mlngCUST_ENDEREÇO_IDX) txtCidade.text = .SubItems(mlngCUST_cidade_IDX) txtEstado.text = .SubItems(mlngCUST_ESTADO_IDX) txtCep.text = .SubItems(mlngCUST_cep_IDX) TxtCpf.text = .SubItems(mlngCUST_CPF_IDX) TxtBairr.text = .SubItems(mlngCUST_Bairro_IDX) TxtNac.text = .SubItems(mlngCUST_Nac_IDX) TxtNat.text = .SubItems(mlngCUST_Nat_IDX) TxtNasc.text = .SubItems(mlngCUST_Nasc_IDX) TxtPai.text = .SubItems(mlngCUST_Pai_IDX) TxtMae.text = .SubItems(mlngCUST_Mae_IDX) TxtPos.text = .SubItems(mlngCUST_Pos_IDX) TxtNum.text = .SubItems(mlngCUST_Num_IDX) TxtCompl.text = .SubItems(mlngCUST_Compl_IDX) TxtEst_Civil.text = .SubItems(mlngCUST_Civ_IDX) TxtObs.text = .SubItems(mlngCUST_Obs_IDX) Combo2.text = .SubItems(mlngCUST_Combo2_IDX) Combo3.text = .SubItems(mlngCUST_Combo3_IDX) Combo1.text = .SubItems(mlngCUST_Combo1_IDX) Txtel.text = .SubItems(mlngCUST_TELRES_IDX) Txtelc.text = .SubItems(mlngCUST_TELCEL_IDX) End With gblnPopulating = False On Error GoTo ERRO1 Dim caminho As String Dim varRG As String varRG = Me.txtRg.text caminho = "c:\Cadastro\fotos\" ImgFoto.Picture = LoadPicture([caminho] & [varRG] & ".jpg") Exit Sub ERRO1: ImgFoto.Picture = LoadPicture([caminho] & "BRASAOSP.JPG") End Sub e esta que limpa Private Sub ClearCurrRecControls() '----------------------------------------------------------------------------- gblnPopulating = True txtNOME.text = "" txtRg.text = "" txtENDEREÇO.text = "" txtCidade.text = "" txtEstado.text = "" txtCep.text = "" TxtCpf.text = "" TxtBairr.text = "" TxtNac.text = "" TxtNat.text = "" TxtNasc.text = "" TxtPai.text = "" TxtMae.text = "" TxtPos.text = "" TxtNum.text = "" TxtCompl.text = "" TxtEst_Civil.text = "" TxtObs.text = "" Combo1.Index = -1 'Combo2.Index = -1 'Combo3.Index = -1 'Combo2.text = "" 'Combo3.text = "" 'Combo1.text = "" Txtel.text = "" Txtelc.text = "" TxtID.text = "" No modo imediato para debug quando passo o mose sobre o comando acima Combo1.index= -1 aparece esse valor mlngCust_Combo1_IDX=22 e agora? Obrigado Flecha

Pessoal, Coloquei a propriedade das combox do meu projeto para DropdownList, assim o usuário só usa o que tem na combo e não aceita nomes fora da combo. Dessa forma ela fica só leitura. Acontece que quando for incluir um novo registro é chamado a sub para limpar os controles e não afeta as combos permanecendo com os dados do registro que estava na tela. Tem como contornar para manter em branco as combos quando for incluir? Flecha

Kuroi Eu vou colocar o codigo daquele form do cr 8.5 nessa sub acima, que é do form onde estão os comandos para escolher o relatorio, depois volto com os erros. Aquela dll tem no micro do serviço e não funciona. Esse problema de não aparecer nada no relatorio e fechar tão rapido que não da para ver se tem dados, mas acho que não tem , acontece na minha maquina que tem o cr 8.5. Eu vou voltar ao projeto e retorno aqui ou em novo tópico, para não alongar muito. Já to colocando aqui o link com o projeto http://www.4shared.com/file/ZDXGwdUX/Arqui...roi_Rel_85.html Não funciona a opção 1 e 2 do tipo de relatorio (report1.rpt do 8.5) não visualisa e fica criando arquivo .tmp no diretorio raiz, tem uns dentro do projeto só para verem. A opção 2 funciona é do report2.rpt do 4.6 Criei um botão para abrie o form do crview e funciona normal, não sei mais como fazer esse reparo Se puder testar, agradeço Flecha

Kuroi, Boa tarde, Eu vou criar u relatorio com o 8.5 nesse projeto novo, que estou criando para aprender e quando começar as duvidas e erros volto para um novo tópico. Obrigado pelas informações. Flecha

Kuri, Acho que não quero não, estou apanhando muito com os mais simples e sefrtenta com o 11 só vai piorar. No muito vou tentar colocar o 8.5 nesseprojeto que lhe enviei, eu já coquei os relatórios (que são só três) pelo 4.6 e ficou beeza. Acontece que se eu colocar o do 8.5 não sei como mandar para impressão sem referenciar aquele form criado por ele no VB como eu disse no outro tópico no botão de imprimir colocar frm1.show. "porque o teclado falha tanto quando estou escrevendo no forum" é coisa da página ? Flecha

Kuroi, Boas, na sub no inicio do tópico eu camo o report1 (ele foi salvo quando criei o crystalReport1.dsr e comodisse tem uma opção de salvá-lo e salvei como report1.rpt na pasta do projeto, e ai pela sb acima eu chamo esse report. Primeira pegunta Isso devería funionar ou estou fazendo coisa impossível? Segunda: Na sb acima eu deveria refeenciar ou mandar imprimir o CrytalReport1.dsr ? Flcha

Raphael, Eu havia colocado um rs.cancelupdate no final da mensagem e estava "remendado". Com sua informação eu form_load e funcionou, abandonou a alteração e leu a tabela novamente, ficando com o primeiro registro na tela. Resolvido e Obrigado. P.S Na inclusão vou postar outro tópico. Flecha