eu assisti o video ontem e adurei a ideia do google wave ...
aixo q se vai tornar numa ferramenta muito importante principalmente no trabalho, sendo opensorce vai permitir a adaptação desta aplicação as necessidades das nossas empresas

Cumps
30/06/2009, 16:49
30/06/2009, 15:32
Private Sub cmd_all_Click() Form_frm.RecordSource = "select * from db" Form_frm.SetFocus End Sub Private Sub cmd_procura_Click() entrada = 0 If (IsNull(campo1) = False) Then criterio = "campo1_na_tabela like '" & campo1.Value & "'" entrada = entrada + 1 End If If (IsNull(campo2) = False) Then If entrada = 0 Then criterio = "campo2_na_tabela like '" & campo2.Value & "'" entrada = entrada + 1 Else criterio = criterio & "and campo2_na_tabela like '" & campo2.Value & "'" End If If criterio = "" Then MsgBox ("Não inseriu nenhum parâmetro de pesquisa!") Else Form_frm.RecordSource = "select * from db where " & criterio If IsNull(Form_frm.ID) = True Then MsgBox ("Registo não existe!") Me.SetFocus Else Form_frm.Caption = "titulo" Form_frm.SetFocus End If End If End Sub Private Sub Form_Load() DoCmd.OpenForm "frm" criterio = "" End Sub Private Sub Form_Close() DoCmd.Close acForm, "frm" End Sub
31/01/2009, 10:48
31/01/2009, 10:44
26/01/2009, 16:58
Community Forum Software by IP.Board
Licensed to: Webmasters Online