Testando a existência de um arquivo

Uma das maneiras de testar se um arquivo específico existe é utilizando a função Dir$, com a identificação completa do caminho do arquivo. Dir$ irá retornar o exato nome do arquivo (se existir) ou um nulo, se não existir. Por exemplo: If Dir$(“C:\DOCS\ARQUIVO.TXT”) <> “” Then ‘o arquivo existe – Insira sua rotina Else ‘arquivo

Continuar lendo »

CommitTrans, BeginTrans, RollBack

CommitTrans, BeginTrans, RollBack no Visual Basic Imagine que você tenha um processamento de diversas operações em um banco de dados e somente após a realização destes processos as alterações sejam realizadas de fato no Banco de dados. Utilizando BeginTrans, CommitTrans e RollBack você pode executar estes processos sem problemas permitindo que o processamento das alterações

Continuar lendo »

Enviando um E-Mail II

Enviando um E-Mail II Dim objSession As Object Dim objMessage As Object Set objSession = CreateObject(“MAPI.SESSION”) objSession.Logon “Your Profile Name”, , False,False Set objMessage = objSession.Inbox.Messages.Add objMessage.Subject = “Assunto da mensagem” objMessage.Text = “Texto da Mensagem” objMessage.Attachments.Add “Anexo”, , , “C:\webmundi.DOC” ‘caminho do arquivo em anexo objMessage.Recipients.Add “endereço do e-mail” objMessage.Recipients.Resolve objMessage.Send ‘Este codigo funciona

Continuar lendo »

Forçando a digitação de caracteres maiúsculos

Forçando a digitação de caracteres maiúsculos Para facilitar a digitação de maiúsculos, independente do pressionamento de CAPS LOCK, converta cada caracter no evento KeyPress. Private Sub Form_KeyPress (KeyAscii as Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Obs.: Para que esta rotina funcione para todos os campos do form, altere a propriedade KeyPreview do mesmo para true.

Continuar lendo »
Pages:«1234567...15»