@line

Preciso incrementar alguns campos de uma tabela utilizando o UPDATE da seguinte forma: SQL = "UPDATE Avaliação SET " If optBom.Value Then SQL = SQL & "QBom = QBom + 1 " Else If optRegular.Value Then SQL = SQL & "QRegular = QRegular + 1 " Else SQL = SQL & "QRuim = QRuim + 1 " End If End If SQL = SQL & "WHERE CodTreinamento = " & CodTreinamento Não dá erro mas também não incrementa os campos. Alguém pode me ajudar?

Ninguém pode me ajudar???

Tenho uma aplicação VB + Access e faço a seguinte consulta para buscar a dta do servidor: SQL = "SELECT Date() As Data" Mas ao invés de trazer a data do Servidor onde está o Banco Access ele tra a data da máquina onde está rodando a aplicação. Alguém sabe como solucionar isso?

Obrigada!!!

Eu de novo... E para travar a digitação na linha selecionada da listview. Alguém sabe?

Obrigada!!!

Como faço para não permitir que o usuário digite na combobox?

Desculpa não me expressei direito. Quero mostrar uma planilha do Excel dentro de um form. Quero colocar um sheet no form e abrir minha planilha nela. É possível?

Olá! Como faço para abrir uma planilha do excel no VB?

Olá! Eu troquei o título para "Microsoft Outlook" e o nome do botão que ele irá procurar para "&Sim" e mesmo assim nada acontece. O código que você me enviou só funciona com MAPI ou o problema é outro? O primeiro parâmetro que você passa nesta linha também muda caso eu use Microsoft Outlook? Se muda como descubro o valor correto? pai = FindWindow("#32770", "Outlook Express")

Por favor me ajudem!!!

Não estou usando o MAPI, e sim uma referência ao Microsoft Outlook. Testei o exemplo do link que você enviou e também nada acontece. A mensagem aparece normalmente. Já conferi tudo...

Não há nenhuma instrução para mover.

Olá Graymalkin Obrigada pela ajuda, mas não funcionou. A mensagem continua aparecendo...

Olá Alguém sabe como mudar a cor de fundo do toolbar?

Obrigada!!!

Não há MoveNext. Estou usando Access e esse campo DescriçãoGrau1 é um texto que eu precisei declarar como Memorando, porque era maior do que 255 caracteres. Você acha que a informação pode estar se perdendo por isso? Se for você tem alguma dica de como trazer textos do banco de dados...

Estou com um problema um tanto absurdo. Ao debugar o código, os campos retornados por uma consulta SQL ficam nulos de repente. Por exemplo: SQL = "SELECT CodCompetência, Competência, DescriçãoGrau1, DescriçãoGrau2, DescriçãoGrau3, DescriçãoGrau4 " SQL = SQL & "FROM Competências_Gerenciais " SQL = SQL & "WHERE CodCompetência = '" & Mid(pCompetência, 1, 4) & "'" Set rdRes = DbCn.OpenResultset(SQL, rdOpenStatic, , rdExecDirect) If Not rdRes.EOF Then PrimCaracter = 1 UltCaracter = 1 i = 0 Achou = True Do While Achou <> False UltCaracter = InStr(PrimCaracter, rdRes!DescriçãoGrau1, ".", vbTextCompare) ... ... ... A consulta funciona perfeitamente, pois se eu colocar o cursor sobre rdres!DescriçãoGrau1 o valor correto aparece, mas se eu retornar o cursor para lá o valor que aparece é Null. E então dá erro! Alguém sabe me dizer como isso é possível, não é a primeira vez que acontece!!!

Olá! Alguém sabe se existe alguma função para contar quantas vezes um determinado caracter aparece em uma string?

Infelizmente eu não sei mexer com API... Poderia me ajudar???

Como faço para que a barra de rolagem da msflexgrid sempre apareça, ainda que desabilitada por não haver linhas para rolar.

Obrigada!!! Eu usava Aline antes de estar cadastrada no Fórum, agora só soui @line. Um abraço

Fiz uma função que envia e-mail automático pelo VB através do Outlook. Mas sempre antes de enviar o Outlook exibe a seguinte mensagem: "Um programa está tentando enviar um correio eletrônico automaticamente em seu nome. Deseja permitir essa operação? Se essa operação for inesperada, a causa pode ser um vírus e você deve escolher "não". " Alguém sabe como desabilitar esta mensagem?

Alguém teria um código para criptografar e descriptograr senha?

E o que eu coloco em origem.Text e senha.Text ? MAPISession.UserName = origem.Text MAPISession.Password = senha.Text