Fabin

não é bem isso kuroi é mais pelo codigo do jonantahn ali entendeu é pelo modo que o usuario vai ver a tela entendeu, não tem haver com a resoluçao não, vou tentra do modo que o jonantahn passou ali e se não conseguir posto de novo valeu pela atenaçao de vocês ai brotehrs abraço t+ o modo do jonanthan deu certim aqui valews galera abraço t+

quando abro a tela em modo de execuçao no vb ela abre pela metade, ou seja, para o usuario visualizar todos os campos ele tem q alterar a dimensao da tela para visualizar os componentes entendeu?? queria que quando fosse aberta a tela tivesse como visualizar todos os componentes se que o usuario alterasse a dimensao ad telaentendeu?? valews pela atençao abraço t+

Galera é o seguinte tenho uam tela de form aqui soq ue quando coloco ela em execuçao ela aparece somente a metade ai tenho que arrastar para colocar ela no tamanho que de para visualizar todos os campos tem algum codigo pra eu ajustar ela pra que não tenha que arrastar para visualizar os campos?? valews pela juda abraço t+

não deu certo, mas o q acontece de errado?? é pra por em qualquer lugar desde o painel já esteja criado. vai la no design do form e seleciona a statusbar e, na janela de propriedades, entre em custom. la você pode adicionar os paineis q precisar. ai no lugar do 1 la em cima você poe o numero do indice do painel q você quer q apareca (comecando no 0, imagino). ou ainda você poderia adicionar os paineis por codigo mesmo. deve ter algum StatusBar1.Panels.Add() ou qualquer coisa assim, é so ir tentando, mas não vejo porque você usar esse metodo se você pode ir la no custom e setar. veja ai se funciona, qualquer coisa poste. opa, consegui aqui kuroi eu criei uma rotina e depois chamei ela no form load e deu certo valews pela atenção brother abraço t+

hum?? se o jonathan não tivesse postado o codigo pra pegar o usuario do windows, eu nunca imaginaria q era isso. é isso mesmo?? o q eu entendi é q você tava falando do usuario logado no seu sistema, e q você tem uma variavel com o nome dele. se for isso é exatamente o codigo q eu passei, mas ai você troca nome_do_usuario pelo nome dessa sua variavel e troca o 1 pelo indice do painel q você quer (comecando no 0). se for o usuario do windows q você quer, usa o codigo do jonathan. kroi épelo seu exemplo mesmo pois tenho uam tela de lgin e criei a variavel para receber o nomde do usuario caso eu fosse utilizar em outro form entendeu?? mas onde eu vou colocar StatusBar1.Panels(1).Text = nome_do_usuario ois tentei colocar no form load do mdi porem não deu certo eu teria que criar uma rotina???onde eu colocaria etse comando que voce me passou?? valews pela atençao abraço t+

certo kuroi consegui aqui colocar os itens que eu queria porem quero colocar onome do usuario que esta logado tenho uam variavel que recebe o nome do usuario como façao para aparecer na statusbar valews abraço t+

boa tarde galera gostaria de saber como colocar aquela barrinha em baixo que mostra o usuario que esta logado, a hora e o nome da empresa meu form é mdi tem como colocar??? valews pela ajuda abraço t+

opa e aew kuroi blzinha?? já consegui resolver o problema atraves desse código aqui mas primeiro cloquei uma picture depois uma image e dentro da image coloquei a imagem que eu queria e coloquei este código Dim mode As Integer Private Sub MDIForm_DblClick() mode = mode + 1 If mode > 2 Then MDIForm_Resize End If End Sub Private Sub MDIForm_Load() Picture1.Visible = False Picture1.BackColor = Me.BackColor MDIForm_Resize End Sub Private Sub MDIForm_Resize() Picture1.AutoRedraw = True Picture1.Cls Picture1.Height = Me.ScaleHeight + Picture1.Height - Picture1.ScaleHeight Select Case mode Case 0 'centered Picture1.PaintPicture Image1.Picture, (Me.ScaleWidth - Image1.Width) / 2, (Me.ScaleHeight - Image1.Height) / 2 Case 1 'stretched Picture1.PaintPicture Image1.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight Case 2 'tiled Dim i As Integer, j As Integer For i = 0 To Screen.Height Step Image1.Height For j = 0 To Screen.Width Step Image1.Width Picture1.PaintPicture Image1, j, i, Image1.Width, Image1.Height Next Next End Select Me.Picture = Picture1.Image Picture1.AutoRedraw = False End Sub valews pela atençao abraço t+

bom dia galera minha duvida é o seguinte coloquei uma imagem araves da propriedade picture de um formulario mdi porem quero centralizar ela, como eu faço isso??? valews abraço t+

sim já está, coloquei um botao que atualiza os dados e deu certo abraço t+

galera meu botao anteriro proximo estva funcionando perfeitamente, derrepente o botao anteriror deu esta mensagme isso ocorre somente quando eu abro a tela, quando faço inclusao, alteração ou exclusao ele funciona normalmente so não funciona quando abre a tela Run-Time error '3219' Operaçao não permitida neste contexto Private Sub cmdAnterior_Click() If Not rsSeleçao.BOF Then rsSeleçao.MovePrevious End If If Not rsSeleçao.BOF Then lblCodEstagiario.Caption = rsSeleçao.Fields("CodEstagiario") txtNome.Text = rsSeleçao.Fields("Nome") cboInstituiçao.Text = rsSeleçao("Instituiçao") cboCurso.Text = rsSeleçao("Curso") txtPeriodo.Text = rsSeleçao("Periodo") cboTurno.Text = rsSeleçao("Turno") lblMASP.Caption = rsSeleçao("MASP") cboSetor.Text = rsSeleçao("Setor") txtMatricula.Text = rsSeleçao("Matricula") cboChefia.Text = rsSeleçao("Chefia") txtDataInicio.Text = rsSeleçao("DataInicio") txtDataTermino.Text = rsSeleçao("DataTermino") txtDtaSaida.Text = rsSeleçao("DataSaida") txtHorario.Text = rsSeleçao("Horario") Else MsgBox "Primeiro Registro Cadastrado", vbInformation, "Aviso" End If End Sub e o botao proximo ele fala que é o ultimo registro cadstrado porem o que esta na tela é o primeiro Private Sub cmdProximo_Click() If Not rsSeleçao.EOF Then rsSeleçao.MoveNext End If If Not rsSeleçao.EOF Then lblCodEstagiario.Caption = rsSeleçao.Fields("CodEstagiario") txtNome.Text = rsSeleçao.Fields("Nome") cboInstituiçao.Text = rsSeleçao("Instituiçao") cboCurso.Text = rsSeleçao("Curso") txtPeriodo.Text = rsSeleçao("Periodo") cboTurno.Text = rsSeleçao("Turno") lblMASP.Caption = rsSeleçao("MASP") cboSetor.Text = rsSeleçao("Setor") txtMatricula.Text = rsSeleçao("Matricula") cboChefia.Text = rsSeleçao("Chefia") txtDataInicio.Text = rsSeleçao("DataInicio") txtDataTermino.Text = rsSeleçao("DataTermino") txtDtaSaida.Text = rsSeleçao("DataSaida") txtHorario.Text = rsSeleçao("Horario") Else MsgBox "Ultimo Registro Cadastrado", vbInformation, "Aviso" End If End Sub o que esta acontecendo valews abraço t+

a certo o meu form já afz isso acho que vou criar um form a paret so para pesquisa porque quando efetuo no form normal so tem como navegar pelos nomes encontrados entendeu valews pelas dicas raphael abraço t+

a certo então qual seria a melhor forma de trabalhar com este botap pesquisar raphael??? valews abraço t+

qual sera o problema???

eu acho que é por causo do bof=true e eof=true não é não??? sera que não tem outra forma de achar e carregar os dados na tela ao modo que expliquei anteirormente possibilitando a navegaça mesmo apos acabar a pesquisa do nome digitado?? abraço t+

deu certo raphael porem ta acontecendo o seguinte ele so esta navegando pelos nomes digitado na pesquisa queria por exemplo que mesmo depois desses nomes não teram mais continuasse a navegaçao como tinha explicado anteriromente ou seja, se acabos os fabios e ele clicar no prox vai para os nomes com g entendeu?? abraço T+

é o seguinte vou colocar aqui para voltar e ordenar por ordem de nome ok na linha embaixo da querry de delete voce coloca rs.close rs.open "SELECT * FROM tabela order by nomefantasia",conexao...... txtnomefantasia.text = rs.fields("nomefantasia") e assim por diante essa seria para carregar os dados para voce limpar voce cria uma sub rotina para limpar os campos exemplo private sub limaparcampos() txtnomefantasia = empty...... e chama ela depois da querry delete tendeu?? coloca isso e se der certo post ai abraço t+

olha so papahel alterei o codigo e deu certo porem quero algo do tipo listou os nomes encontrados e o usuario vai navegando com o botao proximo ou anterior mas isso ordenado pelo nome por exemplo achou os fabios anterior então vai vir a letra e posteriro a letra g mas no meu codigo ta assim acha os nomes e o usuario vai navegando porem não fica em ordem de nome por exemplo achou fabios eles vem primeiro ai depois vem alexandre alberto não lista na ordem quero que fosse do jeito que expliquei acima entendue?? o codigo ta ai Private Sub cmdPesquisar_Click() dado = InputBox("Digite um nome a ser pesquisado!") sSQL = "SELECT * FROM Estagiarios WHERE Nome LIKE '%" & dado & "%'" rsSeleçao.Close rsSeleçao.Open sSQL, conexao, adOpenKeyset, adLockReadOnly If Not (rsSeleçao.BOF = True And rsSeleçao.EOF = True) Then txtNome.Text = rsSeleçao.Fields("Nome") cboInstituiçao.Text = rsSeleçao("Instituiçao") cboCurso.Text = rsSeleçao("Curso") txtPeriodo.Text = rsSeleçao("Periodo") cboTurno.Text = rsSeleçao("Turno") lblMASP.Caption = rsSeleçao("MASP") cboSetor.Text = rsSeleçao("Setor") txtMatricula.Text = rsSeleçao("Matricula") cboChefia.Text = rsSeleçao("Chefia") txtDataInicio.Text = rsSeleçao("DataInicio") txtDataTermino.Text = rsSeleçao("DataTermino") txtDtaSaida.Text = rsSeleçao("DataSaida") txtHorario.Text = rsSeleçao("Horario") Else MsgBox "Nome não Cadastrado!", vbInformation + vbOKOnly, "Nome não Encontrado" End If Exit Sub End Sub abraço t+

certo já sei como voce pode fazer seu botao excluir post ele ai para nos fazermos as alteraçoes no acso do seu botao editar você não precisa fazer um botao para pegar dados do banco não faça o seguinte no form load do seu banco voce colocar assim rs.open *SELECT * FROM tabela order by nomefantasia", conexao....... txtnome.text = rs("nome") e assim por diante no sue botao editar voce coloca assim conexao.execute "update tabela set nome = '" & txtnome.text & "', cnpj = " & txtcnpj.text & "....... where nomefanatsia = "' & txtnomefantasia & "';" lembrando que depois do whre voce tem que colocar a chave primaria que voce definiu no banco e quando voce terminar isso voce copia o mesmo comando para carregar os dados que ta no form load voce coloca epois da querry qualquer coisa posta ai abraço t+

rphael não entendi muito bem não como é que tenho que fazer??? colocar o do while ou com bof ou eof seria isso??? como faria??? abraço t+

mas no botao excluir o que voce quer que ele faz apos a exclusao?? você quer que ele quando excluir apague todos os dados da tela form ou quando excluir vai para o primeiro registro cadastrado??? poste ai seu código de editar ou alterar abraço t+

raphael eu coloquei assim Private Sub cmdPesquisar_Click() dado = InputBox("Digite um nome a ser pesquisado!") sSQL = "SELECT * FROM Estagiarios WHERE Nome LIKE '%" & dado & "%'" rsSeleçao.Close rsSeleçao.Open sSQL, conexao, adOpenKeyset, adLockReadOnly If Not rsSeleçao.BOF And rsSeleçao.EOF Then txtNome.Text = rsSeleçao.Fields("Nome") cboInstituiçao.Text = rsSeleçao("Instituiçao") cboCurso.Text = rsSeleçao("Curso") txtPeriodo.Text = rsSeleçao("Periodo") cboTurno.Text = rsSeleçao("Turno") lblMASP.Caption = rsSeleçao("MASP") cboSetor.Text = rsSeleçao("Setor") txtMatricula.Text = rsSeleçao("Matricula") cboChefia.Text = rsSeleçao("Chefia") txtDataInicio.Text = rsSeleçao("DataInicio") txtDataTermino.Text = rsSeleçao("DataTermino") txtDtaSaida.Text = rsSeleçao("DataSaida") txtHorario.Text = rsSeleçao("Horario") Else MsgBox "Nome não Cadastrado!", vbInformation + vbOKOnly, "Nome não Encontrado" End If End Sub porém ele passa pelo bof e eof e depois vai pra msgbox tem alkguma coisa errada ai?? valews pela ajuda brother abraço t+

a pesquisa eu sei que ficaria assim mesmo o meu problema como vou carregar os dados atraves do nome encontrado entendeu??? eu uso essa pesquisa e logo depois uso rs.fields para preencher os campos agora como voi fazer isso pelo nome encontrado entendeu?? isso que eu não to conseguindo fazer valews pela ajuda abraço t+

amigo somente o frame creio que não nunca vi alguém fazer isso mas posso estar enganado mas o que voce tem no frame abraço t+

ok rphael ate ai eu sabia um pouco já mas meu problema é como vou carregar os addos depois meu botao está assimpor enquanto dado = InputBox("Digite um nome a ser pesquisado!") rsSeleçao.Open "SELECT * FROM Estagiarios WHERE Nome LIKE '%dado%'", conexao, adOpenKeyset, adLockReadOnly valews pela ajuda brother abraçao t+