MrJunior

Galera estou com um probleminha aqui em um aplicativo que estou dando manutenção, ele ultiliza um spread versão 3.5, porém não estou conseguindo mexer nela, tipo mudar uma coluna que possui chekbox para outra coluna. alguém sabe como posso resolver isso?

alguém sabe me informar como eu configuro o dbgrid do access em uma tabela do proprio banco??

Galera estou trabalhando em uma aplicativo aqui na empresa no qual eu faço cadastro de 7 tarefas que são executadas. No meu banco de dados (ACCESS) eu criei 7 tabelas no qual cada uma é referente as tarefas e essas 7 tabelas são ligadas a uma tabela que controla essa movimentação. Agora que vem o problema eu preciso gerar relatorios relacionado a essas tarefas, criei 7 relatorios no access e relacionado a cada tarefa porem um dos campos que vai ser de grande importância fica na tabela que faz o controle da movimentação. A principio meu comando está assim: Private Sub cmdProcessar_Click() Dim sql1 As String Dim strsql As DAO.Recordset Set Ac = New Access.Application Ac.OpenCurrentDatabase (App.Path & "\banco.mdb") DataIni = mskDataIni.Text DataFim = mskDataFim.Text DataIni = "#" & Mid(DataIni, 4, 2) & "/" & Mid(DataIni, 1, 2) & "/" & Mid(DataIni, 7, 4) & "#" DataFim = "#" & Mid(DataFim, 4, 2) & "/" & Mid(DataFim, 1, 2) & "/" & Mid(DataFim, 7, 4) & "#" If cboAtividade.Text = "Alteração Contratual" Then sql1 = "SELECT *FROM (Movimentacao INNER JOIN AlterContratual ON Movimentacao.Cod_Movimentacao = AlterContratual.Cod_Movimentacao) INNER JOIN Empregado ON Movimentacao.Emp_Responsavel = Empregado.NomeEmpregado WHERE (((Movimentacao.DataSaida) Is not Null) AND ((Empregado.NomeEmpregado)= '" & cboEmpregado.Text & "')) and (DataIni & " <= DataVisita And DataVisita <= " & DataFim)" Set strsql = db.OpenRecordset(sql1, dbOpenDynaset) If strsql.BOF And strsql.EOF Then MsgBox "Os informações não encontrada!", vbExclamation Else Screen.MousePointer = vbHourglass Ac.DoCmd.OpenReport "Relatorio", acViewPreview end if Até ai tudo bem, porém quando o relatório é gerado ele me traz tudo que está na tabela da tarefa. Eu preciso arrumar uma forma de trazer as informações especifica com certas condições, do tipo (Nome do Empregado e um intervalo de datas), porém esse intervalo de datas vai ter que ser analizado na tabela movimentação. Eu criei uma consulta no banco de dados relacionado a essas duas tabelas(movimentação e a tarefa), porém eu precisaria passar a datainicial e a datafinal por parâmentro pro banco em tempo de execução. Se alguém poder me ajudar me mostrando uma forma de fazer isso eu ficarei grato. Desde já agradeço a atenção de vocês.

Poww velho valeu ai pela ajuda, achei o problema.

Rpz no momento em que é feito o segundo cadastro ele da o salto para o rotulo errGravacao: Eu mesmo estou sem entender o porque isso esta acontecendo.

Galera é o seguinte no aplicativo que estou construindo esta com um probleminha, no momento em que eu executo ele e faço o primeiro cadastro e grava as informações normalmente na tabela do banco, agora quando vou fazer um segundo cadastro ele da problema, já olhei , olhei e não vejo o problema. Vou postar codigo pra ver se alguém pode me ajudar. Private Sub cmdSalvar_Click() Dim vConfMsg As Integer Dim vErro As Boolean On Error GoTo errGravacao 'Inicializa as variáveis auxiliares: vConfMsg = vbExclamation + vbOKOnly + vbSystemModal vErro = False 'Verifica os dados digitados: If txtMatricula.Text = Empty Then MsgBox "O campo Matricula do Empregado não foi preenchido.", vConfMsg, "Erro" vErro = True End If If mskDataEntrada.Text = "##/##/####" Then MsgBox "O campo Data de Entrada não foi preenchido.", vConfMsg, "Erro" vErro = True End If If mskDataSaida.Text = "##/##/####" Then MsgBox "O campo Data de Saida não foi preenchido.", vConfMsg, "Erro" vErro = True End If If cboEmpregado.Text = empyt Then MsgBox "O campo Empregado Responsavel não foi preenchido.", vConfMsg, "erro" vErro = True End If If txtOfAgente.Text = Empty Then MsgBox "O campo Nº OF Agente o não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtNomeAgente.Text = Empty Then MsgBox "O campo Nome do Agente não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtNomeMutuario.Text = Empty Then MsgBox "O campo Matricula do Imovel não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtOf.Text = Empty Then MsgBox "O campo Nº OF da Gifug não foi preenchido.", vConfMsg, "Erro" vErro = True End If 'Se aconteceu um erro de digitação, sai da sub sem gravar: If vErro Then Exit Sub Screen.MousePointer = vbHourglass SQL = "insert into Principal (Matricula, Data_de_Entrada, Empregado_Responsavel, Numero_OF_Agente, Nome_do_Agente," & _ "Nome_do_Mutuario, Numero_OF Data_de_Saida, TipoFormulario) values('" & _ txtMatricula.Text & "','" & _ mskDataEntrada.Text & "','" & _ cboEmpregado.Text & "','" & _ txtOfAgente.Text & "','" & _ txtNomeAgente.Text & "','" & _ txtNomeMutuario.Text & "','" & _ txtOf.Text & "','" & _ mskDataSaida.Text & "','" & _ lblGarantias.Caption & "')" Co.Execute (SQL) MsgBox "Gravação Concluida com Sucesso.", vbApplicationModal + vbInformation + vbOKOnly, "Gravação Ok" 'chama a função que limpa os campos do formularios Limpacampos txtMatricula.SetFocus Saida: Screen.MousePointer = vbDefault Set Co = Nothing Exit Sub errGravacao: With Err If .Number <> 0 Then MsgBox "Houve um erro durante a gravação dos dados na tabela.", _ vbexclmation + vbOKOnly + vbApplicationModal, "Erro" .Number = 0 GoTo Saida End If End With End Sub Sim uma observação, não estou usando chave primaria.

Valeu pela atenção velho, mais eu já consegui resolver esse problema. Agora eu estou com outra duvida, quando eu abro o formulario de cadastro ele automaticamente já traz todas as informações do banco de dados pro datagrid, eu queria saber se no momento em que eu abro o formulario de cadastro tem como ele mostrar o datagrid vazio sem informações nenhuma do banco de dados.

Pessoal estou tentando importar as informaçõe do meu banco de dados (SQL SERVER) para o datagrid do meu aplicativo, porém não estou conseguindo configura-lo, so estou consegundo para banco ACCESS. Se alguém puder me ajudar a fazer essa configuração eu ficarei grato.

É, como disse o colega ai em cima o melhor a fazer seria uma alocação dinâmica.

Galera estou tendo um probleminha aqui em minha aplicação, eu tenho duas tabelas vinculadas no qual eu preciso acessa-las para poder pegar os dados atravez de um aplicativo que eu criei, mais so que quando eu faço a conexão com o banco de dados (ACCESS) ele não consegue abrir essa tabela então eu estava pensando se teria alguma forma de através desse aplicativo eu acrescentar algum comando no codigo pra em tempo de execução ele criar uma copia dessa tabela para poder coletar esses dados presentes nela.

Poww bixo, não ajudou não, eu já tinha feito algo analogo, mas não é isso que eu quero, mais mesmo assim valeu pela atenção.

Galera estou fazendo o mapa do site da empresa onde trabalho, agora estou com um probleminha no alinhamento dos hiperlinks, eu criei uma tabela com três colunas, uma para o MENU ESQUERDO, outro para A PARTE PRINCIPAL DA PAGINA e outra PARA OS BANNERS, na primeira coluna eu queria deixar com varios links, tipo uma fila de links verticalmente e outra fila de links verticalmente tambem mais so que ao lado da primeira fila, porém, não estou conseguindo fazer isso, ambas as filas sempre ficam uma embaixo da outra, alguém tem alguma ideia de como eu posso fazer pra deixar nesse formato?

Eu tinha achado meu erro cara, mais mesmo assim valeu pela atenção. Abraços...

Estou com umas procedures que demonstram a aplicação de uma thread que estão na linguagem Pascal, elas ultilizam estruturas incondicionais ou seja GOTO e eu tenho que transforma -las pra linguagem Java, porém, eu não sei como ultiilizar goto em java, alguém pode me dizer se tem como ultilizar o goto em java, se tiver me dar uma dica de como eu posso fazer isso.