Gabriel Cabral

O campo é do tipo texto com tamanho 5 e era pra aparecer na textbox e gravar no campo qualquer tipo de horario como xx:xx Ex.: 09:28 estranho....porque há uns dias atras estava funcionando perfeitamente... agora está dando esse erro mesmo eu não mudando nada no código... O campo é do tipo texto com tamanho 5 e era pra aparecer na textbox e gravar no campo qualquer tipo de horario como xx:xx Ex.: 09:28 estranho....porque há uns dias atras estava funcionando perfeitamente... agora está dando esse erro mesmo eu não mudando nada no código... Pronto kuroi axei o problema a textbox estava com a propriedade MaxLength = 0 coloquei ela = 5 agora ta tudo certinho obrigado

Olá pessoal... Preciso saber como eu preencho uma textbox ao clicar em um item da combobox... Assim... Uso DataControl... Tenho as tabelas Clientes e Atendimentos... no form de cadastro de atendimentos, tenho uma combo com os nomes dos clientes(que estão gravados no campo Cli_NomeFantasia da tabela Clientes...) então gostaria de ao clicar num cliente, seu respectivo CNPJ (que já foi cadastrado e está gravado na tabela clientes) "surgisse" numa textbox do form de cadastro de atendimentos Ou seja....ao chamar, pela combo, o campo Cli_NomeFantasia de um registro; retornasse na textbox o campo Cli_CNPJ desse mesmo registro alguém pode me ajudar?? Obrigado

aí Graymalkin.... percebi onde estava o problema.... no numero da coluna....não era 1, mas 2 e assim....na MSHFlexGrid está tudo em maiusculo... tem como eu colocar um UCase na textbox para ao digitar, as letras forem ficando maiusculas e assim sendo encontrado o desejado na MSHFlexGrid???? se tem, onde devo colocar?? obrigado Coloquei txtBuscaMSH.Text = UCase(txtBuscaMSH.Text) no evento CHANGE da textbox.... o UCase funcionou.....as letras foram ficando maiusculas conforme digitadas, mas a ordem delas foram mudando, e consequentemente nada foi encontrado na MSHFlexGrid por exemplo.....ao digitar gabriel, a text ficou com o texto LEIRBAG Tem como a ordem ficar certa ???? :P obrigado

aí pessoal.... ve se alguém aí pode me ajudar nisso.... eu tenho duas textbox para serem colocados horarios... uma é a txtDuracao outra é a txtAtend_TempoDisp os dois campo para armazenamento desses "horarios" são do tipo Text e para subtrair o txtAtend_TempoDisp da txtDuracao eu uso o seguinte codigo Dim descontarhoraduracao As Integer Dim descontarminutoduracao As Integer Dim tempodispatend As String tempodispatend = txtAtend_TempoDisp.Text descontarhoraduracao = Hour(txtDuracao.Text) descontarminutoduracao = Minute(txtDuracao.Text) txtAtend_TempoDisp.Text = TimeSerial(Hour(tempodispatend) - descontarhoraduracao, Minute(tempodispatend) - descontarminutoduracao, 0) no final de tudo a conta é feita... mas há um erro ao gravar... eis aqui o erro Run-time error '3163': The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data Este erro está dando na seguinte linha: DadosAtendimentos.Recordset.Fields("Atend_TempoDisp") = txtAtend_TempoDisp.Text está linha está na procedure do botao de comando que grava o registro... Qual o problema???

To fazendo com DataControl como se executa???

Vlw gente..... utilizei o TextMatrix aqui e consegui muito obrigado

Então kuroi....eu fiz isso... Private Sub cboNomeFantasia_Click() SQL = "SELECT Cli_CNPJ FROM Clientes WHERE Cli_NomeFantasia = '" & cboNomeFantasia.Text & "'" txtCNPJ.Text = SQL End Sub mas o que acontece é que o que aparece na txtCNPJ não é o cnpj do cliente que chamei na combo, mas sim a instrução SQL da primeira linha como posso consertar isso??? obrigado

Então Graymalkin, fiz isso mas não ta dando nada.... a única coisa que acontece é a txtbox ficar com fundo vermelho e fonte branca... eu queria que ao digitar na textbox, axasse e marcasse no MSHFlexGrid mas parece que não ta axando nada... o que pode estar acontecendo?? obrigado

aí kuroi....vlw pelas dicas.... consegui de um outro jeito aqui também... coloca a propriedade sorted da list como TRUE e dps, no evento ACTIVATE do form, eu coloco lstClientes.Selected(0) = True pronto..... é isso obrigado

Como eu dou um sort no recordset? eu coloquei isso no load do form DataControl.Recordset.Sort e deu Compile error: Invalid use of property

Olá pessoal... minha dúvida é a seguinte... tenho uma listbox com varios nomes... coloquei a propriedade sorted=true na listbox para ela ficar em ordem alfabética.... e ela fica.... por exemplo...fica na list os nomes Alessandra Alexandre Bruna Carlos Fernando Gabriel Juliana Renato Thaís e assim por diante.... mas ao carregar o form, o recordset aponta para o ultimo registro inserido na tabela... ou seja....se o ultimo registro inserido foi Juliana, ele aponta para Juliana ao invés de apontar para Alessandra, que é o primeiro registro da listbox eu gostaria de que apontasse para o primeiro registro da listbox, mesmo este não sendo o ultimo registro a ser inserido na tabela... tem como?? obrigado

Olá pessoal..... alguém aí sabe me dizer como eu faço uma busca rápida no mshflexgrid.... assim.... eu sei fazer com uma listbox.... tendo uma textbox e uma list com vários nomes, conforme eu digito uma palavra na textbox, ela vai apontando na list... e fiz isso desa maneira em GENERAL coloquei Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As _ Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long Private Const LB_FINDSTRING = &H18F e no evento change da textbox, coloquei Private Sub txtClientes_Change() lstClientes.ListIndex = SendMessage(lstClientes.hwnd, LB_FINDSTRING, -1, ByVal CStr(txtClientes.Text)) End Sub é possivel fazer isso num mshflexgrid??? que conforme eu digite algo na texbox ele va apontando um registro no mshflexgrid ao invés da listbox.... obrigado

aí pessoal.... andei olhando sobre esse assunto aqui no forum mas não encontrei algo que pudesse me ajudar.... alguém poderia me passar exatamente como se preenche uma listbox com dados de uma tabela.... por exemplo... no evento Load do meu form, eu gostaria que a listbox estivesse com todos os nomes do campo Cli_NomeFantasia da tabela Clientes me ajudem por favor muito obrigado

aí Macedo....vlw pela dica....esse tópico criado por você eu já tinha dado uma olhada e vai sevir pra outras coisas... Vlw kuroi....era isso mesmo que tava dando erro.... o nome do campo não era Cli_Nome_Fantasia....mas Cli_NomeFantasia Muito obrigado pessoal

eu troquei o % por * mas ainda está dando o mesmo erro eu troquei o % por * mas ainda está dando o mesmo erro

Olá pessoal..... minha duvida é a seguinte... tenho um form para fazer consulta em um banco de dados consulta por código e por nome... a consulta por codigo está funcionando perfeitamente... agora a consulta por nome está dando um erro... Private Sub cmdProcurar_Click() Set Conex = New ADODB.Connection Conex.Open StringDeConexao StringSQL = "SELECT * FROM Clientes WHERE Cli_Nome_Fantasia Like " If optComeco.Value = True Then StringSQL = StringSQL & "'" & txtPesquisa & "%'" ElseIf optFinal.Value = True Then StringSQL = StringSQL & "'%" & txtPesquisa & "'" Else StringSQL = StringSQL & "'%" & txtPesquisa & "%'" End If Set RS = New ADODB.Recordset RS.Open StringSQL, Conex, adOpenDynamic, adLockOptimistic If RS.EOF Then MsgBox "Não foram encontrados registros correspondentes." Set Gride.DataSource = RS Gride.Refresh RS.Close Set RS = Nothing End Sub O erro diz: "Não foi fornecido um valor para um ou mais parâmetros exigidos" e então marca a seguinte linha: RS.Open StringSQL, Conex, adOpenDynamic, adLockOptimistic o que pode estar acontecendo ??? se alguém puder me ajudar ficarei muito grato

Private Sub Text1_Change() If Text1.SelStart = 9 Then NomeDoTextBox.SetFocus End Sub ah é mesmo KUROI....bem lembrado :P muito obrigado

ah KUROI e se eu kiser que o foco vá para um botao ou textbox que não seja o proximo TabIndex?? o que devo usar??

então macedo, vou tentar explicar melhor como está meu aplicativo. Espero que tenha paciencia de ler tudo e possa me ajudar....pois explicarei exatamente como é o aplicativo... É um programa para controlar o tempo que os clientes tem para serem atendidos Cada cliente tem direito a 5 horas de atendimento por mês Aí num form tem o cadastro de clientes, para cadastrar na tabela Clientes o código, nome, endereço, cidade, e assim por diante...e um ultimo campo a ser preenchido é o tempodisponivel...onde cada novo cliente já terá preenchido com 05:00, pois tem direito a 5 horas por mês aí tem um outro form para cadastrar os atendimentos na tabela Atendimentos nesse form tem os campos Data, Nome, Inicio, Termino, Duração e Tempodisponivel aí surge o problema....eu coloquei dois datacontrol cada um relacionado com cada uma das tabelas... então precisava chamar o cliente por uma combo e o tempodisponivel deste cliente que esta cadastrado na tabela Clientes, aparecer na textbox para poder ser subtraído do valor do campo Duração e então ser gravado na tabela Atendimentos. Mas quando chamo o cliente pela combo, o seu tempodisponivel não aparece. então resolvi fazer o seguinte... coloquei no form de cadastro de atendimentos, um MSFlexGrid com os clientes cadastrados, então era só selecionar o cliente atraves da propriedade Trim do MSFlexGrid e o nome e tempodisponivel deste cliente aparecia nas textbox para poder ser gravada na tabela Atendimentos... até aí deu certo.... o problema se dá após a gravação do atendimento na tabela.... exemplo: no MSFlexGrid temos os seguintes clientes cadastrados: Gabriel, Juliana, Gustavo, Cristiano, Ronaldo então vou cadastrar um atendimento feito ao cliente Gustavo, aí seleciono ele no MSFlexGrid, cadastro todo o atendimento e gravo Aí surge o grande problema...o atendimento é cadastrado corretamente na tabela Atendimentos, mas la na tabela Clientes há uma alteração..... O campo Nome do primeiro registro da tabela é substituído pelo último Nome cadastrado em Atendimentos.....ou seja se os nomes dos clientes cadastrados eram Gabriel, Juliana, Gustavo, Cristiano e Ronaldo, e o cliente cadastrado em atendimentos foi Gustavo, os nomes dos clientes na tabela Clientes passa a ser Gustavo, Juliana, Gustavo, Cristiano e Ronaldo ou seja....não altera o primeiro registro inteiro, altera apenas o campo nome... esse é o grande problema com o qual não estou sabendo lidar.... voce tem alguma soluçao para este problema???.......alguma outra forma de fazer o que estou tentando fazer??? quer que eu mande a codificação do aplicativo??? se puder me ajudar, ficarei muito grato Obrigado MSN: gfcabral666@hotmail.com

Valeu KUROI, usei o que você me passou...deu certinho muito obrigado

Então Rafael, eu qria que o foco mudasse sem eu ter que dar Tab ou Enter é usando o Tabindex mesmo???? onde eu uso essa propriedade?? tentei aqui dessa forma.... If Len(txtAtend_Inicio) = 5 Then txtAtend_Termino.TabIndex End If mas não consegui

Ola pessoal estou com uma duvida que aparentemente deve ser simples..... tenho uma textbox para digitar algo com um numero determinado de caracteres....um CEP por exemplo... então gostaria de ao terminar de digitar os 9 caracteres do CEP, o foco mudar automaticamente para a proxima textbox tem como??? obrigado

Olá pessoal... estou usando um MSFlexGrid e percebo que la em cima, na barrinha d titulos, são mostrados os nomes dos campos da tabela... por exemplo.... no meu MSFlexGrid está Cli_Cod, Cli_Nome, Cli_Endereco......e assim por diante teria como eu deixar Um outro texto no titulo de cada campo, sem ser o proprio nome do campo ???? obrigado

Valeu Kuroi exatamente o que eu precisava muito obrigado até a proxima

Então Macêdo, no form de cadastro de atendimentos eu uso 2 datacontrol um relacionado à tabela clientes e outro à tabela atendimentos eu precisava gravar dados na tabela atendimentos interferindo sim na tabela clientes, pois o tempodisponivel resultado no atendimento deverá ser gravado na tabela clientes... mas só o tempo, o nome fantasia não pode mudar mas mesmo usando os 2 datacontrol não está dando certo... e eu não sei trabalhar direito com o ADODC o que fazer??!!