new_rayderss

Kuroi, deu tudo certo. Utilizei a 1° opção e fico legal. Mais uma vez obrigado pela força!!

Bom pessoal estou fazendo uma esquema de mascara de texto, que é bem melhor que o componente mask. Private Sub txtIdentidade_LostFocus() ' enquanto o n° de caracteres for menor que 9 a caixa de texto não perde o foco nem mesmo para outra caixa que peça foco. If Len(txtIdentidade) < 9 Then txtIdentidade.SetFocus If Not txtNome = Empty Then MsgBox "Informe o n° da identidade do profissional " & txtNome & ".", vbOKOnly, "Campo Incompleto" txtIdentidade.SetFocus Exit Sub Else MsgBox "Informe o n° da identidade do profissional.", vbOKOnly, "Campo Incompleto" txtIdentidade.SetFocus Exit Sub End If Else txtIdentidade.MaxLength = 12 txtIdentidade = Format(txtIdentidade, "00\.000\.000\-0") End If ' Aqui depois da mascara ser aplicada ele verifica se alguém mexeu If len(txtIdentidade) < 12 Then MsgBox "O campo foi anulado informe-o novamente", vbCritical + vbOKOnly, "Campo Anulado" txtIdentidade.SetFocus txtIdentidade.Text = "" End If End Sub Pois bem, o problema é que se retiro o último n°( o q vem depois do -) ele não da o erro de modificado. E ainda por cima deixa assim. ex: 23.231.323-2, tirei o último número fico assim -02.323.132-. Agradeço desde já atenção. ^^

Obrigado pelas dicas, farei com bastante atenção. E depois posto os resultados. até.

Poxa as vezes sou muito distraído, foi mal. Mas não sei porque ele esta implicando com a atualização(update do datacontrol). E no momento eu estou usando o mask para testar o mais importante, porque o dtpicker não esta salvando no banco. DataConsulta.Recordset.Filter = "Data = #" & mskData.Text & "# And Hora = #" & cboHora.Text & "# And CodigoDoProfissional = " & txtCodPro.Text Set DataConsulta.Recordset = DataConsulta.Recordset.OpenRecordset If DataConsulta.Recordset.RecordCount >= 1 Then MsgBox "Tem registro" txtCodPro.Text = "" txtCodPro.SetFocus Else DataConsulta.Recordset.Close End If Desativar Me Verificar = 0 Fechado Me cmdCancelar.Caption = "&Sair" cmdCancelar.ToolTipText = "Encerra a ação" 'dtpData.Enabled = False cmdNovo.Enabled = True cmdGuardar.Enabled = False cmdEditar.Enabled = True cmdLocalizar.Enabled = True cmdExcluir.Enabled = True DataConsulta.Visible = True DataConsulta.Recordset.Update o erro que da.. "'object invalid or no longer set" - 3420 ou se eu tirar DataConsulta.Recordset.Close "Update or CancelUpdate without addnew or edit" - 3020

esta funcionando a pesquisa, mais ainda não funciono. DataConsulta.Recordset.Filter = "Data = #" & mskData.Text & "# And Hora = #" & cboHora.Text & "# And CodigoDoProfissional = " & txtCodPro.Text If DataConsulta.Recordset.RecordCount >= 1 Then MsgBox "Tem registro" txtCodPro.Text = "" txtCodPro.SetFocus Else . . ele não esta reconhecendo o registro, eu posso digitar qualquer codigo ele fala que existe sem existir. -- E em relação a DTPicker ele não está registrando a data no banco de dados. Existe algum modo de configura-lo ?

hm legal, acho que estou entendo filter. mais deu isso aqui.

Kuroi to meio por fora no que posso fazer Private Sub cmdGuardar_Click() If cboServ = "" Then MsgBox "Informe o serviço que será prestado ao animal", vbOKOnly, "Campo Vazio" Exit Sub End If If dtpData = "" Then MsgBox "Informe a data que será realizada o serviço", vbOKOnly, "Campo Vazio" Exit Sub End If If cboHora = "" Then MsgBox "Informe a hora que será realizada o serviço", vbOKOnly, "Campo Vazio" Exit Sub End If If cboBusc = "" Then MsgBox "Informe se deseja buscar", vbOKOnly, "Campo Vazio" Exit Sub End If If DataConsulta.Recordset.Filter = "Data" & dtpData.Value And "Hora" & cboHora.Text And "CodigoDoProfissional" & txtCodPro.Text > 1 Then 'DataConsulta.Recordset.Filter = "Data" & dtpData.Value And "Hora" & cboHora.Text And "CodigoDoProfissional" & txtCodPro.Text > 1 MsgBox "Profissional já cadastrado" txtCodPro.Text = "" Else . . . tipo eu não sei como ele vai verificar isso?, eu tentei isso mais não está dando certo.

tem esse cadastro, aí faço o preenchimento. E quando for gravar ele verifica se aquele funcionário(que sera identificado pelo seu código único) fará um atendimento naquele dia e horario, se ele tiver aquele horário ocupado o sistema avisa para escolher outro. É isso, só quis reforçar a ideia, só para sanar qualquer tipo de duvida. Irei testar o que você falo ai encima. E sobre o componente, tem uma caixa texto que possui um icone de calendário junto com ela. Achei que isso seria melhor para o campo.

Hehhe foi isso mesmo que esqueci :P vlw!! == E tenho uma pergunta não sei se é exatamente relacionado com consulta, caso não seja eu edito aqui e crio o tópico. Bom a idéia é a seguinte, eu realizo um cadastro de serviço que prestarei ao animal, então eu queria saber como verifico se tal funcionário irá realizar tal serviço naquela hora e dia, sendo que os intervalos de horas é de 1 em 1 hora. Acho que não tem haver com consulta :P porque eu vou verificar isso na hora que estiver no cadastro de serviço, mas sei lá vai que tem um pouco. E qual o nome do componente que eu posso usar para colocar a data e hora automaticamente?

Fala kuroi, desculpa a demora. Consegui resolver esse problema.. Private Sub txtCodCli_Validate(cancel As Boolean) Data1.Refresh If OptTodos = True Then Data1.Recordset.Filter = "CodigoDoCliente = " & txtCodCli.Text If Not txtCodCli = Empty Then Set Data1.Recordset = Data1.Recordset.OpenRecordset Else End If ElseIf OptClub = True Then Data1.Recordset.Filter = "Grupo = 'Clubinho' And CodigoDoCliente = " & txtCodCli.Text If Not txtCodCli = Empty Then Set Data1.Recordset = Data1.Recordset.OpenRecordset Else End If ElseIf optSimp = True Then Data1.Recordset.Filter = "Grupo = 'Simples' And CodigoDoCliente = " & txtCodCli.Text If Not txtCodCli = Empty Then Set Data1.Recordset = Data1.Recordset.OpenRecordset Else End If Else Data1.Recordset.Close End If End Sub Agora deixa explicar.. o cara pesquiso tal cliente acho legal, aí quis pesquisar outro, logo o cara tem que apagar o campo ou selecionar tudo e colocar tal valor, certo. Bom usando validate fico certinho e não deu erro quando o cara apagava o campo (txtCodCli) para colocar outro valor. Porém um outro erro aconteceu quando o campo perdia o foco ele dava esse erro mesmo que mostrei, aí eu fiz esses if aí para abrir só quando tiver algo digitado e foi certinho. E em relação a digitação só de números eu fiz um módulo para isso. Private Sub txtCodCli_KeyPress(KeyAscii As Integer) SoNumeros KeyAscii End Sub Então resumindo quando o campo fica vazio aparece os cadastros de determinada opção, esse não estava permitindo isso. Agradeço por ter me ajudado, e espero que as minhas dúvidas sejam úteis não só para mim mas para outras pessoas também. == E para não perder a viagem, eu quero que quando o usuario clicar no Enter ele passe para um outro objeto, porém não está funcionando. Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then SendKeys ("{TAB}") KeyAscii = 0 End If End Sub eu usei isso, e não sei porque não está funcionando sendo que usei em um outro formulário e esta tudo direitinho.

isso acontece assim digitei um valor na primeira vez aí beleza, caso eu apague o campo para colocar algum número, ou seja deixe ele vazio momentaneamente da esse bug :P

Funciono!! Mas fiquei curioso como funcionaria como validate, usaria o cancel? E tipo quando preencho funciono direito, mas caso eu apague para colocar outro nome ele da erro, o validate resolveria ? Eu usei como lost focus e tb não fico ruim quanto a ter 15000 :P E obrigado pela força amigo!!

kuroi consegui fazer a seleção usando as opções.. veja como fiz Private Sub Form_Load() Data1.DatabaseName = App.Path & "\BD\db2.mdb" Data1.RecordSource = "Animais" Data1.RecordsetType = 1 centraliza Me End Sub Private Sub txtCodCli_Change() Data1.Refresh If OptTodos = True Then Data1.Recordset.Filter = "CodigoDoCliente = '" Set Data1.Recordset = Data1.Recordset.OpenRecordset ElseIf OptClub = True Then Data1.Recordset.Filter = "Grupo = 'Clubinho'" And "CodigoDoCliente = '" Set Data1.Recordset = Data1.Recordset.OpenRecordset ElseIf OptSimp = True Then Data1.Recordset.Filter = "Grupo = 'Simples'" And "CodigoDoCliente = '" Set Data1.Recordset = Data1.Recordset.OpenRecordset Else Data1.Recordset.Close End If End Sub Private Sub OptClub_Click() Data1.Refresh If OptClub = True Then Data1.Recordset.Filter = "Grupo = 'Clubinho'" Set Data1.Recordset = Data1.Recordset.OpenRecordset Else Data1.Recordset.Close End If End Sub Private Sub optSimp_Click() Data1.Refresh If OptSimp = True Then Data1.Recordset.Filter = "Grupo = 'Simples'" Set Data1.Recordset = Data1.Recordset.OpenRecordset Else Data1.Recordset.Close End If End Sub Private Sub OptTodos_Click() Data1.Refresh If OptTodos = True Then Data1.Recordset.Filter = "" Set Data1.Recordset = Data1.Recordset.OpenRecordset Else Data1.Recordset.Close End If End Sub Private Sub SairCon_Click() Unload Me End Sub Public Sub centraliza(f As Form) Dim TopX, TopY As Integer TopX = ((MDIForm1.Width - f.Width) / 2) + MDIForm1.Top TopY = ((MDIForm1.Height - f.Height) / 2) + MDIForm1.Left f.Move TopX, TopY End Sub Porém como nada é perfeito :P o filtro por cliente não funciono ainda. Dando esse erro \/ '3075' "Syntax error in string in query expression 'CodigoDoCliente = ';'. e não entendi, eu to escrevendo a sintaxe errado né? Ps: o CodigoDoCliente esta determinado no banco de dados como número.

O site ta ficando legal sim e a fonte mesmo sendo original (pelo menos nunca tinha visto antes) você esquece deixa-la legível. E tipo o fundo podia ser do universo, ou melhor podia criar um random de imagens de fundo com cada constelação correspondente aos cavaleiros principais pelo menos do 5. Ia dar uma realçada legal e iria continuar com os tons escuros.

programação do form é isso só Private Sub Form_Load() Data1.DatabaseName = App.Path & "\BD\db2.mdb" Data1.RecordSource = "Animais" Data1.RecordsetType = 0 centraliza Me End Sub Private Sub OptClub_Click() Data1.Recordset.Filter = "Grupo = 'Clubinho'" End Sub Private Sub optSimp_Click() Data1.Recordset.Filter = "Grupo = 'Simples'" End Sub Private Sub OptTodos_Click() Data1.Recordset.Filter = "" End Sub Private Sub SairCon_Click() Unload Me End Sub e usei as propriedades do dbgrid para aparecer os valores. E quanto ao código do cliente eu nem tinha add ainda e eu estou usando assim o 'CodigoDoCliente' no banco de dados. E em relação esse codigo é para add aonde? e para o código do cliente tem que fazer uma variável para receber o valor? Edit: http://www.4shared.com/file/68536079/a0e15...Final_-_RD.html << caso queira ver qualquer coisa, atualizei.

Bom não entendi a idéia da string. :P E tipo quanto ao campo é o nome do campo que esta no banco de dados? Estou perguntando porque deu esse erro "Operation is not supported for this type of object. Creio que estou fazendo algo errado.

Essa ta sinistra... :wacko: Tentei vários exemplos que vi por aí. mas não consegui adaptar para o meu projeto e pior não consegui nem entender como funciona essa estória de consulta direito, por isso estou aqui para pedir ajuda. Bom eu estou usando um DBGrid para mostrar os resultados e um controle Data para conectar o banco de dados. Pois bem, a busca funcionara através do código do cliente, que pode ter diversos animais. Na busca como padrão vem marcado Todos mas pode marcar o clubinho ou simples, que são relacionados aos animais. Então se marco clubinho só ira aparecer os animais que pertencem a categoria clubinho. Bom o meu pedido de ajuda, é que como posso fazer a seleção de resultados para cada opção. ex: Marquei Todos aí aparece o(s) animais do cliente cujo código digitei. ex2: Marquei Clubinho aí aparece o(s) animais do cliente cujo código digitei. Sendo que só pode ser o da categoria clubinho, ou seja, caso o cliente tenha outro animal no simples esse não aparece. ex3: Marquei Simples a mesma idéia acima só que só terão os animais da categoria simples. Espero ter explicado direitinho e clamo pela ajuda de vocês amigos!! ^^ Amostra do formulário de busca:

Depois de uma verdadeira jornada.... FUNCIONOOooooooooooooooooooo!!!!!!!!! yahaaaaaaaaaa!! Obrigado Kuroi pela paciência e auxilio, e a você tb Jonathan Queiroz, por querer ajudar!! vlw pessoal!!!!

Não funciono cara :unsure:

Sim, perfeitamente. Private Sub Form_Load() Data1Animal.DatabaseName = App.Path & "\BD\db2.mdb" Data1Animal.RecordSource = "Animais" Data1Animal.RecordsetType = 0 centraliza Me If lblCliChama.Caption = "x" Then 'Significa que esta vindo do cliente Call cmdNovo_Click End If End Sub além de estar aí no propriedades tb configurei. Quanto ao label troco direitinho o caption, porém não chamo a função. Pergunta = MsgBox("Deseja cadastrar os animais do cliente?", vbYesNo + vbQuestion, "Pergunta") If Pergunta = vbYes Then frmAnimal.txtCodCli(2).Text = Me.txtCodCli.Text frmAnimal.txtNome(1).Text = Me.txtNome.Text Unload Me frmAnimal.lblCliChama.Caption = "x" frmAnimal.Show Else Exit Sub End If === Kuroi to deixando o projeto anexado para você ver, se errei em alguma coisa. E quanto a conexão de banco de dados via código estou procurando não fazer assim, porque se não atrasaria o término. http://www.4shared.com/file/68536079/a0e15...Final_-_RD.html

Putz não consegui entender o que você quis dizer exatamente.. mais deixa eu explicar melhor... No cadastro do cliente depois de preencher tudo e clicar no guardar, ele vai perguntar.. \/ Pergunta = MsgBox("Deseja cadastrar os animais do cliente?", vbYesNo + vbQuestion, "Pergunta") If Pergunta = vbYes Then frmAnimal.txtCodCli(2).Text = Me.txtCodCli.Text frmAnimal.txtNome(1).Text = Me.txtNome.Text Unload Me frmAnimal.Show frmAnimal.cmdNovo_Click Else Exit Sub End If Aí quando vai para o cadastro do animal, queria ativar isso \/ Public Sub cmdNovo_Click() 'If Pergunta = vbYes Then Data1Animal.Recordset.AddNew Ativar Me Verificar = 1 Fechado Me txtCodAnimal.Locked = True txtCodCli(2).Text = "" txtCodCli(2).Locked = True txtNome(1).Locked = True txtMatri.Text = "" cmdCancelar.Caption = "&Cancelar" cmdCancelar.ToolTipText = "Cancela a ação" cmdNovo.Enabled = False cmdGuardar.Enabled = True cmdEditar.Enabled = False cmdLocalizar.Enabled = False cmdExcluir.Enabled = False cmdCancelar.Enabled = True Data1Animal.Visible = False Call GerarNovoCodigo 'ElseIf cmdNovo_Click = True Then 'ElseIf cmdNovo_Click = True Then ' codificação 'End If End Sub assim que eu estou fazendo, só que ele ta implicando com o data que vai add um novo registro no cadastro do animal. Os comentários foram tentativas que não resultou em nada :P entendeu? estava com cara que ia dar tudo certo e deu esse erro aí. E não entendi a estória do Label.

É eu vi só que não notei o public :P mas ainda não está funcionando. da erro Data1Animal.Recordset.AddNew, na linha que tem isso. e agora?

não funciono gente. não tem que declara um variavel global, para indicar que quando vem do cadastro do cliente e quando não vai vir.

não funciono. eu quero chamar o novo do cadastro do animal, entende.

Eu fiz esse método de habilitar de um modo um pouco diferente. Mais não é isso que me referi, é tipo quando gravo o cadastro do cliente ele pergunta para se quer cadastrar o animal, como te falei. Então eu digo sim ele leva as informações que quero para o cadastro do animal certo, como você me ensino. Porém não dá para cadastrar o animal, então eu quero saber como posso fazer isso, cadastrar o animal da mesma forma se eu tivesse usado o botão novo. entendeu? Agradeço a ajuda que você me deu até agora, mas peço mais essa força :)