Danleonhart

Pessoal, Ainda não fiz, então como devo proceder para fazer uma consulta a Tabelas que estão relacionadas através do Campo Codigo e em um único RecordSet ? Tipo assim: :mellow:

Amigo, isso é configurado nas Propriedades do Form... Veja a imagem: Tenha cuidado! Principalmente se pegou o projeto de alguém...isso pode interferir na execução do aplicativo Leia sobre MDI Form: AQUI VALEU ! :rolleyes:

Tens MSN ? (que pergunta... <_< ) dannleonhart@hotmail.com EDIT: "vDT" é apenas um exemplo...ela poderia ser uma TextBox, Label... com um valor que você quisesse jogar no BD... "Rs" é também um exemplo...de uma variavel representando uma Objeto RecorSet ADO queria apenas exemplificar como "formatar" a data tanto para jogar no BD, quanto para pegar do BD para algum objeto... :)

Olá Falmeidinha, seja bem-Vindo ! 1º-Access não é velho... a versão 2007 é muito melhorada e mais segura; 2º-Como está o Tipo do Campo "Data" no Access ? está como "Data/Hora" ? se sim, tudo OK...se não, mude. Você deve saber usar a função "Format", certo ? então, eu faço assim quando vou gravar no "BD" (Banco de Dados): supondo que a data esteja alocada na variavel "vDT", então vDT = "21/05/2011" Format(vDT, "YYYY-MM-DD") Gravando nesse formato fica mais seguro para casos de filtragens por Datas... Quando carregar do BD para a TextBox faça o mesmo, só que agora com a formatação desejada: supondo que Rs é o RecordSet: txt_Data.Text = Format(Rs("Data"), "DD/MM/YYYY") Citei exemplos bem resumidos...se quiser algo mais detalhado, basta dá uma fuçada nos tópicos antigos que já postei muitas dúvidas sobre o assunto :) Aqui um deles:http://scriptbrasil.com.br/forum/index.php?showtopic=158961 FUI !

Cara, tem certeza que isso funcionou ?! Aqui não rolou acrescentando o " '0' " :blink:

Gilberto... Para verificar se o FlexGrid está vazio, eu me baseio nas linhas (.Rows) do grid... então se eu utilizo uma linha fixa (.FixedRow) eu pergunto assim: If FGrid1.Rows = 1 Then ' 1 pois estou utilizando uma lina fixa... MsgBox "Grid vazio." End If é interessante usar o "On Error Resume Next" também... Para capturar a célula que você coloca o Mouse, use o ".Clip"... não importa a linha ou coluna, ele captura exatamente o que está dentro da celula... Dim vN vn = FGrid1.Clip Vê se isso te ajuda...:)

Oks... Por isso que estava querendo finalizar e depois iniciar novamente a aplicação, para assim ela reconhecer as bibliotecas que foram instaladas...no VB.NET tem uma maneira se não me engano é "Application alguma coisa..." :D... Acho que com API devo conseguir...vou procurar mais ;) se encontrar posto aqui... e sugestões são bem vindas !

Kuroi... Seguinte...criei um instalador de jogo...este aplicativo roda direto do CD...porém ele precisa saber se o PC do usuário tem as bibliotecas necessárias para a aplicação rodar...se não tiver ele instala...mas é preciso reiniciar a aplicação para fazer funcionar... O que ocorreu comigo é que utilizo a DLL do Active Skin, e tem que instalar e registrar a DLL... e reiniciar a aplicação para assim ela rodar beleza ! O que fiz...criei uma aplicação "Hide" para fazer a verificação no PC do usuário...se as bibliotecas estiverem instaladas e registradas esta aplicação é fechada e inicia a aplicação do Instalador.... Queria fazer tudo isso em uma unica aplicação...por isso perguntei se existia esse método...:) O que vale é que está funcionando ;)

Tentei com : Unload Me Form1.Show Mas não deu certo... fiz: End Form1.Show Também não funcionou <_< Me deram uma dica de usar um aplicativo extra para manipular o aplicativo principal...até dá certo mas fica complexo...vou continuar procurando...

Olá Luis Martins ! Aqui é o sub-fórum para Visual Basic 6 (VB-6) e Visual Basic for Application (VBA)...essa IDE que usas é a NET, então deves postar as dúvidas lá, beleza ?! Sub-Fórum NET: http://scriptbrasil.com.br/forum/index.php?showforum=49

Pessoal... Tem alguma maneira prática de fazer uma atualização do Form...tipo um "Refresh", como se o finalizasse e em seguida o abrisse novamente... É que tenho uma aplicação que em determinado momento ela sofre uma alteração e só é possível visualizar a alteração se a finalizar e abrir novamente... Já tentei usando o "Form_Load" mas não resultou no esperado...

Olá ! Bem, uma das maneiras é assim: Private Sub Command1_Click() Dim Arq1, Arq2 As String Arq1 = Text1.Text Arq2 = Text2.Text FileCopy Arq1, Arq2 End Sub Aqui uma imagem do exemplo: Lembrando que coloquei da maneira mais simples, sem tratamento de erros...se você usar dessa maneira e o diretório não existir, será apresentado um erro. Também tem de colocar sempre o formato do arquivo (".txt" no caso do exemplo)...senão ele será salvo sem formato. O ideal para esse tipo de script é usar o componente "Commom Dialog"...no link abaixo tem uma boa dica para iniciar com este componente: http://www.forum-invaders.com.br/vb/showth...g-Box-%28VB6%29 VALEU !

Olá ! Julgando que você já tenha seus objetos de Conexão e RecordSet configurados, pode fazer assim: Sub FullGrid() Dim SQLbd As String Abb Set Rs = New ADODB.Recordset SQLbd = "SELECT * FROM Tabela1" Rs.CursorLocation = adUseClient Rs.Open SQLbd, Con, adOpenKeyset, adLockReadOnly Set DGrid1.DataSource = Rs DGrid1..Refresh End Sub ** Para informação: "Abb" é uma Função que tenho configurado para abrir a minha conexão; "Con" no exemplo é o objeto de conexão; "Rs" é o objeto RecordSet; "DGrid1" meu DataGrid. Essa é uma das maneiras...existem outras mais

Olá ! Cara, de boa...essa parte do fórum é voltado para VB-6 e VB-Script...essa IDE que você citou é VB.NET...então tópicos voltado a este assunto você pode postar no fórum "NET" Quanto a informações, você já olhou o site do Macoratti ? http://www.macoratti.net/pageview.aspx?catid=1 :rolleyes: :rolleyes: :rolleyes:

Fala Matheus ! Ver esse link aê : http://support.microsoft.com/kb/162613/pt-br Fiquei de lê também, mas... :wacko:

Duvida simples... Se eu declarar no Modulo: Type Tipagem vNome As String vCod As Integer vVal As Double vCal As Variant End Type Em qualquer parte do script posso usar essas variáveis já definidas ? Tipo, se no Form1 "vCod" recebeu um valor "X", e então fechei o Form...somente o Form, não a aplicação...e abrir o Form2 e nele existir uma Sub que necessita desse valor alocado no Form1, esse valor vai ser setado ? Se alguém tiver algum link, apostila que aprofunde mais em "Type" e outros (pois só utilizo com consciência a "Sub" e a "Function"), me dá uma força aê ;) Preciso me aprofundar mais neles ! Exemplos são bem vindos ! :D Obrigado a todos !

Seguinte: Preciso fazer uma "varredura" (busca) em um arquivo de texto (.txt), e verificar se determinada palavra existe... se existir me retornar "Positivo" e "pegar" a palavra encontrada (irei carregá-la em uma Label), se não existir retornar "Negativo" e encerrar a Sub. Estou a tentar com o FSO (FileSystemObject)... será que consigo com ele ? Aberto a sugestões...de preferência com o proprio FSO ;) Obrigado !

Pessoal... Uso o Active Reports para gerar relatórios e para Impressão e exportação em PDF, Excel, TXT... porém tenho 8 relatórios (Active Report.Dsr) que só fecham se for colocado o comando "Unload Relatorio"...então estou colocando no Unload do MDIForm todos os relatórios, para que ao fechar a aplicação feche junto todos os relatórios que estiverem abertos... Então, uso o script abaixo para fechar todos os Form's: Private Sub MDIForm_Unload(Cancel As Integer) On Error Resume Next Dim Frm As Form For Each Frm In Forms Unload Frm Next Frm Tentei adaptar para fechar todos os relatórios, porém não deu resultado...coloquei assim: Private Sub MDIForm_Unload(Cancel As Integer) On Error Resume Next Dim Frm As Form For Each Frm In Forms Unload Frm Next Frm Dim Act As ActiveReport For Each Act In Forms Unload Act Next Act Alguém pode dá uma ajuda ? É apenas para "limpar" mais o script ;)

Gilberto... No código: SQL = "SELECT * FROM OS WHERE Codigo LIKE '" & FT & "'" Estais selecionando tudo ("SELECT * ") da Tabela...ao invés disso, informe quais os "Campos" que deseja carregar no DataGrid...no seu caso fica assim: SQL = "SELECT Cliente,Data FROM OS WHERE Codigo LIKE '" & FT & "'" OK ?! Qualquer coisa estamos aê :D

Sem problema... o que aconteceu foi que uso um MDIForm e não queria criar outro Menu...então coloquei as opções no Menú do MDIForm e chamei pelo Form Form_3.MenuOculto Tá funfando beleza ! :D

Valeu Kuroi ! De boa cara ! funcionou perfeitamente :D Só para esclarecer melhor no ponto onde coloca-se o nome do menú...esse menú só pode ser feito no "Menu Editor" ou tem outra forma ? Obrigado mais uma vez ! :rolleyes: :rolleyes: :rolleyes:

Pessoal... Preciso configurar o meu FlexGrid para apresentar opções com o botão direito do Mouse...não faço ideia de como iniciar um script para isso... Tipo assim: Ao clicar com o botão Direito do Mouse, apresentar duas opções: Alterar, Excluir...e ao selecionar a opção, executar o script (esses eu já tenho). Acho que só vai com API... Se alguém puder me ajudar, agradeço :D

É... mas só desinstala se for complementado com o parâmetro "/i"... então faz somente: RegSVR32 crviewer.dll Desde que o arquivo ".DLL" esteja na pasta "C:\WINDOWS\System32" funciona de boa :rolleyes:

Provavelmente está faltando esta biblioteca em seu PC... Se for isto, então baixe-a no link abaixo: http://www.dlldll.com/crviewer.dll_download.html * Descompacte o arquivo e coloque a "DLL" na pasta do Sistema: C:\WINDOWS\System32; * Despois registre a mesma digitando no "Executar" ou no "Prompt de Comando": RegSVR32 /u crviewer.dll * Reinicie o PC. Isso deve resolver seu problema ! :)

Olá Julia... Para sua aplicação iniciar com o sistema, você pode usar o script logo abaixo... Dim WS As Object Set WS = CreateObject("WScript.Shell") WS.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Aplicação", "C:\Aplicação.exe", "REG_SZ" Lembre-se de colocar o nome de sua aplicação onde eu coloquei "Aplicação"... Para temporizar o tempo em que a mensagem irá aparecer basta colocar um objeto "Timer" e setar a opção "Interval" com o tempo do intervalo desejado...lembrando que o mesmo é medido em milisegundos...ou seja, se você colocar "Interval = 1000", equivale a 1 segundo...então para 5 minutos equivale setar com "Interval=300000". Para seu form iniciar oculto voce deve colocar no Form Load o script: Me.Hide Para facilitar, você pode fazer o seguinte: 1-Crie um Form, e nele inclua um objeto Timer; 2-Coloque o seguinte script no Evento Load do Form: Private Sub Form_Load() Me.Hide Timer1.Enabled = True Timer1.Interval = 5000 End Sub Dentro do Timer1 (a julgar que você não alterou o nome do objeto), coloque: Private Sub Timer1_Timer() MsgBox "Olha a Mensagem !", vbInformation End Sub Espero que essas informações te ajude ;)