CODIGOS ACESS
Boa noite
Menudo
Aqui abriu normal anexei um bloco de notas com a senha.
Vou postar de novo 1 minuto.
Menudo
Aqui abriu normal anexei um bloco de notas com a senha.
Vou postar de novo 1 minuto.
Esta ai novo link- bloco de notas esta no arquivo com as senhas.
Até mais
http://www.megaupload.com/?d=00Y0SISH
BOM DIA
Testei o link, tenta ai de novo LINK: http://www.megaupload.com/?d=00Y0SISH
Testei o link, tenta ai de novo LINK: http://www.megaupload.com/?d=00Y0SISH
Bom dia.
http://www.megaupload.com/?d=00Y0SISH – arquivo zip completo
http://www.megaupload.com/?d=PE8ICLSX- Noé.accdb
http://www.megaupload.com/?d=7Z4EDHX5 – noé_be.accdb
Ola este banco é apenas prototico que estou montando.
A base dele é do Maestro- do Avelino do usandoacess.
Adquiri o monta ribbons dele e como trabalho com gestão comecei a montar este banco de dados.
Noé-A senha dele é 123456789.
e de login é admin- admin
Noé-be a1234
Caro MENUDO
Já verifiquei e baixei em outro computador e ele abriu normal.
Ele só abre em acess 2010 caso vc esteja usando um versão anterior.
Se puder me mandar este arquivo que esta corrimpido eu agradeço.
existe outra forma de mandar este banco de dados.
Já verifiquei e baixei em outro computador e ele abriu normal.
Ele só abre em acess 2010 caso vc esteja usando um versão anterior.
Se puder me mandar este arquivo que esta corrimpido eu agradeço.
existe outra forma de mandar este banco de dados.
Menudo/ Tecla
Consegui que eu queria com este código.
Private Sub Form_Load()
Call fncPermissões(Me)
If Me.Manutenção = True Then
Exit Sub
Else
If (sim) = False Then
If DATAPARAREALIZAÇÃO = False Then
Dim iDias As Integer
iDias = Datediff([Ô]d[Ô], Now(), Me.DATA_PARA_REALIZAÇÃO)
If iDias <= 2 And iDias >= 0 Then
MsgBox [Ô]Faltam [Ô] & iDias & [Ô] dias para realizar a manutenção[Ô], vbOKOnly, [Ô]Aviso Alerta[Ô]
ElseIf iDias < o Then
iDias = iDias * (-1)
MsgBox [Ô]A manutenção está com [Ô] & iDias & [Ô] dias de atraso[Ô], vbOKOnly, [Ô]Aviso Alerta[Ô]
End If
End If
End If
End If
End Sub
Agora só falta os outros registros deste formulário passarem todos por esta rotina como faço isso?
Consegui que eu queria com este código.
Private Sub Form_Load()
Call fncPermissões(Me)
If Me.Manutenção = True Then
Exit Sub
Else
If (sim) = False Then
If DATAPARAREALIZAÇÃO = False Then
Dim iDias As Integer
iDias = Datediff([Ô]d[Ô], Now(), Me.DATA_PARA_REALIZAÇÃO)
If iDias <= 2 And iDias >= 0 Then
MsgBox [Ô]Faltam [Ô] & iDias & [Ô] dias para realizar a manutenção[Ô], vbOKOnly, [Ô]Aviso Alerta[Ô]
ElseIf iDias < o Then
iDias = iDias * (-1)
MsgBox [Ô]A manutenção está com [Ô] & iDias & [Ô] dias de atraso[Ô], vbOKOnly, [Ô]Aviso Alerta[Ô]
End If
End If
End If
End If
End Sub
Agora só falta os outros registros deste formulário passarem todos por esta rotina como faço isso?
Tópico encerrado , respostas não são mais permitidas