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
Male
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 Sub31/01/2009, 10:48
31/01/2009, 10:44
26/01/2009, 16:58
Community Forum Software by IP.Board
Licensed to: Webmasters Online

Postagens