Leandro_Pirozzi

Tipos de dados: CODEMP - Texto ASSESSOR - Texto EQUIPE - Texto TAREFA - Texto HISTORICO - Memorando CARTA - Texto HORA - data/hora TEMPOGASTO - data/hora No sql do access ele vai direitinho. Mas na compilação exibe esse erro e não existe nada numerico.

opa!! testando!! hahaha...olha só nem tinha idéia que dava pra fazer isso. muito boaaa Raphael. Vlw Kuroi. OBS> Testado e aprovado Office 2003

Exibe isso de acordo com o que preenchi. Erro: Tipos de dados imcompativel na expressao de critério. INSERT INTO CONTATOS_HISTORICO (CODEMP, ASSESSOR, EQUIPE, TAREFA, HISTORICO, CARTA, HORA, TEMPOGASTO )VALUES ( '2498' , 'LEANDRO' , 'GIRARDI' , 'TEL' , 'JDHJDJHDJDHJDHDJHDJHDJDHJDHDJHDJHDJDHJDDJD' , 'SEI LA' , '15:00' , '')

eu tb não achei não e tb fiz em frames separados. Agora fica a dúvida existe o groupname ou não?? hehhe...

opa! obrigadão Raphael vou dar uma verificada!!! onde fica? nas propriedades do option?

Estou utilizando vários optionbuttons, porém não consigo marcar todos. Por exemplo: pra todas perguntas tenho uma opção SIM e outra NÃO, mas marco sim na primeira e quando vou pra segunda e marco qualquer alternativa ele desmarca o que estava na primeira pergunta e somente uma pergunta fica respondida. Já tentei fzer array, mas mesmo assim não vai. alguém consegue me ajudar??? Vlw, obrigado!!!

Segue o SQL estranho q no access ele executou normal. SQL = "INSERT INTO CONTATOS_HISTORICO " SQL = SQL & "(CODEMP, ASSESSOR, EQUIPE, TAREFA, HISTORICO, CARTA, HORA, TEMPOGASTO )" SQL = SQL & "VALUES ( '" & Me.txtcodempativ.Text & "' , " SQL = SQL & "'" & Me.txtassessorativ.Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(0).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(1).Text & "' , " SQL = SQL & "'" & Me.txthistorico.Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(3).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(4).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(7).Text & "')"

Pro listbox tenta isso. Private Sub Command1_Click() List1.List(0) = Text1.Text List1.List(1) = Text2.Text End Sub

Exibiu isso aqui.

vamos ver se da pra voce ter uma ideia ai.

MARAVILHA kuroi. hehehe... só não estou achando o novo registro na tabela de contatos_historico. mas ele disse q o cadastro foi efetuado.

heeh.. já estou utilizando a SSTab. Tem alguma maneira de enviar um PRINT da minha tela pra postar?

Apresentou a seguinte msg de erro. Compile Error: ByRef argument type mismatch. Private Sub cmdsalvarativ_Click() Dim SQL As String Dim icol As Integer Set rsativcont = New ADODB.Recordset SQL = "INSERT INTO CONTATOS_HISTORICO " SQL = SQL & "(CODEMP, CODCONTATO, ASSESSOR, EQUIPE, TAREFA, DATACONCLUIDA, HISTORICO, CARTA, HORA, IMPORT, CODIMP, TEMPOGASTO )" SQL = SQL & "VALUES ( '" & Me.txtcodempativ.Text & "','" & Me.txtcodcont.Text & "', " SQL = SQL & "'" & Me.txtassessorativ.Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(0).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(1).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(2).Text & "' , " SQL = SQL & "'" & Me.txthistorico.Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(3).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(4).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(5).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(6).Text & "','" & Me.hora.Caption & "')" Set rsativcont.ActiveConnection = cnativcont MsgBox "Cadastro de atividade efetuado com sucesso" txtequipeativ(7).Text = MontaHora(contcron) 'aqui ele exibiu o erro. Timer1.Enabled = False End Sub

outra dúvida essa function montahora como posso chamar ela e jogar o valor do tempo q o usuário gastou q esta na variavel contcron para um textbox? text1.text = contcron ???

hehhe... agora me ferrei heehehe... é q minhas telas tem tantas informações q nossa!!!

não eu tinha perguntado se seria correto escrever do jeito que eu tinha feito com While. Mas voce já me respondeu e tirou minha dúvida. Consigo usar o valor da variavel contcron para usar essa função? Pois o valor da contcron vem em milisegundos. Obrigado! Public Function MontaHora(Seg As Double) As String Dim Hor As Double, Min As Double If Seg < 0 Then MontaHora = "- " Seg = Abs(Seg) Else MontaHora = "" End If Hor = Seg \ 3600 Seg = Seg - (Hor * 3600) Min = Seg \ 60 Seg = Seg - (Min * 60) MontaHora = MontaHora & Hor & ":" & _ IIf(Len(CStr(Min)) = 1, "0", "") & Min & ":" & _ IIf(Len(CStr(Seg)) = 1, "0", "") & Seg End Function

Opa! Eu aqui denovo heheheh :D Existe alguma maneira de fazer com q o form se adapte com a configuração de tela do pc do usuário. porque estou fzendo em 1280x768 pixels e acabei de ser informado que a resolução não é essa.

seria correto para fazer o timer correr e guardar o tempo que o usuário leva para preencher os campos? Dim contcron as integer 'declarado no generals 'esse trecho esta no botao de limpar campos. ai ele começa a contar os milisegundos. contcron = 0 While cmdsalvarativ.Enabled = False contcron = contcron + 1 end While

então, esse valor em milisegundos, como faço pra passar ele pra segundos, minutos ou ate mesmo horas? então, é q esse codigo ai é o seguinte, se o usuario clica na grid ela alimenta todos os campos, porém se ele clica no botao de cadastrar atividades, eu preciso limpar todos os dados que estavam nos campos referente ao grid que o usuario selecionou e depois que ele preencher efetuar o insert, será que deu pra ter uma ideia? To postando o conteudo da sub Limpa_Atividades(). Vlww, obrigadão!!! Function Limpa_Atividades() Me.txtcodempativ.Text = "" Me.txtcodcont.Text = "" Me.txtassessorativ.Text = "" Me.txtequipeativ(0).Text = "" Me.txtequipeativ(1).Text = "" Me.txtequipeativ(2).Text = "" Me.txthistorico.Text = "" Me.txtequipeativ(3).Text = "" Me.txtequipeativ(4).Text = "" Me.txtequipeativ(5).Text = "" Me.txtequipeativ(6).Text = "" Me.txthistorico.Text = "" End Function

Aeee agora foi hehehe... :D Muito obrigado Raphael_Suporte e Kuroi pela paciencia. Estou postando o codigo, caso alguém tenha a mesma dúvida. Function Exibiraniver() Dim SQL As String Dim Data As Date Data = Date Set cnaniver = New ADODB.Connection With cnaniver .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;" .CursorLocation = adUseClient .Open End With Set rsaniver = New ADODB.Recordset SQL = "Select CODEMP, NOMEMPRESA, NOMCONT, ANIVERSARIO, CARGOCONT, EMAILCONT, TELCONT " & _ "FROM CONTATOS_CONTATO Where ANIVERSARIO = Date() " Set rsaniver = cnaniver.Execute(SQL) Set Me.DataGrid4.DataSource = rsaniver If rsaniver.RecordCount <= 0 Then DataGrid4.Visible = False lblfeliz.Caption = "SEM ANIVERSARIANTES!" Else DataGrid4.Visible = True lblfeliz.Caption = "FELIZ ANIVERSÁRIO!" End If End Function

Bom o botao efetua o cadastro de atividades, porém os campos se o usuário clica na grid onde existem as informações ele preenche todos esses campos, até ai belezinha. 1 --- O problema começando. Se o usuário clica na grid ele alimenta os campos, então nesse botao de cadastro comecei logo limpando todos os dados antes de fazer o insert. 2 --- Preciso por um cronometro que guarde o tempo q o usuário utiliza para efetuar um cadastro de atividade ai utilizei o timer, pelo menos ele esta rodando direitinho, só não sei se vai guardar o tempo q o usuario leva pra cadastrar. 3 --- Bom como se trata de informaçoes que veem de BD então deixei desativado para o usuário quando clicar na grid não alterar nenhum dos campos, porém agora eu preciso que o usuário insira informaçoes nesses campos então, tive que por TRUE para os campos nas quais preciso das informaçoes. 4--- Continuando tem um if pra verificar o limpa_atividades que somente deixa os campos "", se eu não coloco esse if ele diz q a conexao esta fechada, então deixei esse if, mas acontece q mesmo preenchendo todos os campos, ele exibe a msgbox e limpa todos os campos, perdendo tudo que o usuário digitou. alguém sabe o porque? 5--- ai vem o insert que não consegui testar. Quem puder ajudar muito obrigado!! Private Sub cmdnovaatividade_Click() '1--- Limpa_Atividades '2--- Timer1.Enabled = True hora.Visible = True framedadosgridativ.Visible = True framehist.Visible = True Dim SQL As String Dim icol As Integer '3--- txtcodempativ.Enabled = True txtcodcont.Enabled = True txtassessorativ.Enabled = True txtequipeativ(0).Enabled = True txtequipeativ(1).Enabled = True txtequipeativ(2).Enabled = True txthistorico.Enabled = True txtequipeativ(3).Enabled = True txtequipeativ(4).Enabled = True txtequipeativ(5).Enabled = True txtequipeativ(6).Enabled = True '4--- If Not Limpa_Atividades Then MsgBox "Campo obrigatório vazio, favor verificar.", vbInformation, "Atenção" Exit Sub End If '5--- Set rsativcont = New ADODB.Recordset SQL = "INSERT INTO CONTATOS_HISTORICO " SQL = SQL & "(CODEMP, CODCONTATO, ASSESSOR, EQUIPE, TAREFA, DATACONCLUIDA, HISTORICO, CARTA, HORA, IMPORT, CODIMP, TEMPOGASTO )" SQL = SQL & "VALUES ( '" & Me.txtcodempativ.Text & "','" & Me.txtcodcont.Text & "', " SQL = SQL & "'" & Me.txtassessorativ.Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(0).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(1).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(2).Text & "' , " SQL = SQL & "'" & Me.txthistorico.Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(3).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(4).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(5).Text & "' , " SQL = SQL & "'" & Me.txtequipeativ(6).Text & "','" & Me.hora.Caption & "')" 'Me.txtequipeativ(7).Text = Me.hora.Caption Set rsativcont.ActiveConnection = cnativcont rsativcont.Open SQL 'Verifica_Atividades 'LimpaTarefas 'Atualiza_Atividades MsgBox "Cadastro de atividade efetuado com sucesso" End Sub

o problema é q é uma tabela ai não tenho opção de sql nela. consegui, ele mostrou uma linha em branco.

então antes estava 26/02/2009 ai ele exibiu certinho mostrou a msg de FELIZ ANIVERSARIO e tudo. AI pra teste eu mudei a data no BANCO DE DADOS pra dia 27/02/2009. Porem continua mostrando como o aniversario no dia 26/02/2009

Agora sim ele ate exibiu, ai pra teste eu modifiquei a data para dia 27/02/2009 ai o sistema continua exibindo na grid o aniversariante.

então agora ele compila pelo menos, porém no grid ele não exibe nada, sendo q existe um aniversariante na data de hoje.