Denis_Rave

alguém sabe me dizer como reconhecer o pressionamento das setas, como para cima, para baixo, esquerda e direita? Elas tem um numero na tabela keyascii? Se tiver, alguema ai pode me dizer?? vlw.............

vlw cara.....ta funcionando.......

OE, APROVEITANDO ESTE TPC.....COMO FAÇO PARA BUSCAR PRO UMA APOSTROFE (') DENTRO DE UM TEXT BOX COM VARIAS PALAVRAS E SE TIVER DAR MSG??

ok......obrigado......agora está funcionando perfeitamente vlw!!!!

Bom, eu acabei resolvendo de uma otra maneira.....para q verificasse por toda tabela....mais vlw mesmo assim eu fiz desse jeito ver = 1 Data1.Recordset.MoveFirst While frmanimesdb.Data1.Recordset.EOF = False If txtnome.Text = frmanimesdb.Data1.Recordset.Fields("Nome").Value Then ver = 0 End If frmanimesdb.Data1.Recordset.MoveNext Wend If ver <> 0 Then Data1.Recordset.Update frmanimesdb.Data1.Refresh Else MsgBox "Título já existente. Por favor escolha outro nome.", vbInformation, "Erro" End If

ah, o rs precisa estar "parado" neste valor??? porque se for ai é q esta o erro......eu quero q ele busque por toda a tabela

tem assim.....eu Digito: Fernando na caixa de texto la na tabela Clientes tem o campo "Nome" e no campo ta salvo Fernando ai quando eu clicko no botao ele diz q é diferente.....

não, é texto mesmo cara.......

tem certeza q o eskema de compara é assim? porque não ta dando certo.....fika dando sempre q é diferente

você queria q o programa não fosse redimensionado?? arrume as opções do form: MaxButton = false Border Style = 3-Fixed Dialog axo q resolve........

quero perguntar duas coisas 1-Como compara um campo do meu form com o q ta na tabela, e ,se for igual dar uma mensagem de erro 2-Como abrir um banco de dados com senha usando Data Control? vlw........

aeee agora funcionou obrigado

mesma coisa cara nun sei o q pode ser.......

não.....não da certo.......o form não carrega...trava o vb e o som do video continua tocando.....q estranho.......

bom, eu consegui resolver a segunda pergunta assim: 'General Declarations. 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 Private Sub Text1_Change() List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text)) End Sub Mas ainda não sei o q esta dando errado na 1ª.....sera q ninguém sabe não??

ta assim.... Private Sub Form_Load() Dim MInfo As String Dim ShortName As String Screen.MousePointer = 11 CommonDialog1.CancelError = True On Error GoTo EH1 CommonDialog1.FileName = "C:\Vídeos\filme.avi" ShortName = GetShortName(CommonDialog1.FileName) i = mciSendString("close all", 0&, 0, 0) Last$ = Picture1.hWnd & " Style " & &H40000000 ToDo$ = "open " & ShortName & " Type avivideo Alias video1 parent " & Last$ i = mciSendString(ToDo$, 0&, 0, 0) i = mciSendString("put video1 window at 0 0 500 400", 0&, 0, 0) Screen.MousePointer = 0 i = mciSendString("play video1 from 0", 0&, 0, 0) Exit Sub EH1: Screen.MousePointer = 0 If Err = 32755 Then Err.Clear: Exit Sub MsgBox Err.Description, vbExclamation, "ERR #" & Err End Sub

Bom, então, eu consegui mas e quando o video terminar Tem como por uma açao pra ele fazer quando o video terminar??

OPA, BOA....EU TB QUERIA SABER MAS SE PUDEREM RESPONDER MINHA PREGUNTA EU AGRADEÇO....

barra de progresso a progressbar axo q é isso tb queria saber

Private Sub Update_Click() If txtnome.Text = "" Then MsgBox "Digite um nome de Anime", vbExclamation, "Erro" txtnome.SetFocus End If If txtnome.Text = Data1.Recordset!Nome Then MsgBox "Erro" Else frmanimesdb.List1.AddItem (frmincluir.txtnome.Text) Data1.Recordset.Update frmanimesdb.Data1.Refresh Unload Me frmanimesdb.Enabled = True frmanimesdb.Show End If End Sub

por favor...preciso de ajuda eu to rodando o Kurumin via boot de disquete.....ele faz todo o carregamento dos dados em unix......mas na hora de entrar no Linux ele muda a resoluçao da tela e e não consigo ver nada..... alguém tem ideia do q pode estar acontecendo??? vlw

eu to pondo no botao de gravar.....o de update.......mas não ta funcionando...... e otra coisa.....essa rotina d API do marcorrati funciona com list box?? porque eu num consegui fazer não........

ai cara....to voltando porque não deu certo......o maximo q consegui foi fazer o form iniciar com a janela de open.....e dps já dar o play.....mas não consgui fazer pra quando carregar o form já começar o video.......

wu to pondo no botao de gravar.....o de update.......mas não ta funcionando...... e otra coisa.....essa rotina d API do marcorrati funciona com list box?? porque eu num consegui fazer não........

ahhh.....axo q entendi....vo da uma testada aki.....qualquer coisa eu volto com mais duvidas vlw..........