rbordini

obrigado pelo carinho irmãos ..... mas não estou saindo da SB não, só da moderação de Access..... continuarei repondendo às dúvidas do pessoal dentro do possível, mas quero me empenhar noutros propósitos agora.... Abraços,

!!

Crie uma consulta sem critérios e no form, não restrinja a edição, adição e exclusão de registros. Crie um botão adicionar também (lógico). Sds

Macro "Enviar Objeto" Sds,

Show irmão, muito bom mesmo! Nota 9,0 Sds,

cara, na boa... tu quer que avaliemos o que? o logo? o fórum é um PHPBB igual a todos os outros....

Cheguei!! Essa eu não sabia, por isso demorei em responder. Fucei por aí e encontrei esse tópico no Fórum da revista "Forum Access", do amigo Alcides Passos Vieira (http://forumaccess.com/6/ubb.x?a=tpc&s=922...03331#111603331) Divirtam-se: Sds, Rodrigo Bordini __________________________________________________________________ Ola amigos! Devido a enorme procura sobre o assunto de como usar a OCX (nslock15vb6.ocx) para criar programas do tipo TRIAL OU DEMO. é que eu decidi disponibilizar o codigo. Se voce baixar o codigo original, vai ver que foi feito para rodar no VB5/6, mas eu adaptei para o VBA: Passos Necessarios para este codigo funcionar: 1 - Voce deve adicionar as seguintes OCX na guia References no Ambiente de Desenvolvimento do Visual Basic: "Microsoft Visual Basic For Applications Extensibility 5.3" e "ActiveLock 1.2 (vb6 sp3)" ->Access 2000 2 - Setar como FormularioInicial na guia Inicializacao do Access OU atraves de uma funcao chamada pelo macro autoexec, ou ainda pela propria macro autoexec. 3 - Inserir o controle OCX diretamente no formulario e os 2 campos: Text1(software code) e Text2(Liberation key) 4 - Digitar o codigo abaixo de acordo com os eventos do formulario inicial. Option Compare Database Option Explicit Private Sub RemoveRef() 'Eu uso este procedimento para verificar se o usuario não apagou a OCX do diretorio do windows ou se a mesma esta devidamente registrada e instalada no IDE do VB. Voce não e obrigado a usa-lo para fazer funcionar o processo de registro!!!!!!! On Error GOTO ERRO Dim ref As VBIDE.Reference ' Use the active project With Application.VBE.ActiveVBProject ' Iterate through the references For Each ref In .References If ref.IsBroken Then 'nslock15vb5 If ref.Name = "nslock15vb6" Then Application.VBE.ActiveVBProject.References.Remove ref Application.VBE.ActiveVBProject.References.AddFromFile "c:\windows\System\nslock15vb6.ocx" End If End If Next End With Exit Sub Erro: MsgBox "Necessário entrar em contato com o suporte - Erro na inicializacao " & "Numero: " & Err.Number & " Descricao: " & Err.Description Application.Quit End Sub Private Sub RunLink() 'Eu criei este procedimento, para que o usuario possa efetuar a compra direto do meu site, antes ou depois de vencer o periodo de teste 30 dias. Dim vAddress As String vAddress="http://www.dm10.com.br/form_compra.htm" Application.FollowHyperlink vAddress, , True End Sub Private Sub cmdCancel_Click() 'Insira este codigo para o BOTAO com caption tipo "ENTRAR SEM REGISTRAR" OU "Avaliar". On Error Resume Next If Me.ActiveLock1.LastRunDate > Now Then MsgBox "Foi detectado que você alterou o relógio para uma data anterior! O sistema irá finalizar!" End If If Me.ActiveLock1.UsedDays < 30 Then DoCmd.Hourglass -1 DoCmd.Close DoCmd.Hourglass 0 Else ' If the evaluation period has expired... REsp = MsgBox("O prazo de avaliação deste aplicativo expirou! Gostaria de obter o seu 'Chave de Ativação' agora?", SN + Q, strTit) If REsp = 6 Then Call RunLink Else Application.Quit End If End If End Sub Private Sub cmdFechar_Click() Application.Quit End Sub Private Sub cmdRegistrer_Click() 'Aqui faz o registro propriamente dito On Error Resume Next ' Set the LiberationKey: ActiveLock1.LiberationKey = Text2 ' Check if it was correct: If Not (ActiveLock1.RegisteredUser) Then MsgBox "Liberation key inválido!" Else MsgBox "Obrigado por registrar Cell Church 5.0- Administração de Igrejas!" DoCmd.Hourglass -1 DoCmd.Hourglass 0 DoCmd.Close End If End Sub Private Sub Form_Load() On Error Resume Next Call RemoveRef 'Na linha abaixo, calculo os dias de uso Dias = Me.ActiveLock1.UsedDays falta = 30 - Dias If ActiveLock1.RegisteredUser Then DoCmd.Close Me.cmdRegistrer.Enabled = False Else Me.cmdRegistrer.Enabled = True End If Text1 = ActiveLock1.SoftwareCode Text2 = "" End Sub obs.: O codigo pode ter ficado meio confuso, porque não tenho ainda muita familiaridade ao colar o codigo no campo de postar nova resposta, ele ficou desposicionado. mas voces conseguirao entender!!

Não tem nada lá brother.

Inserir uma img onde? Num FORM? De que tipo é essa img?

tamos aí! ;-]

Olá Fabiano, um feliz ano novo pra você também. Quanto ao banco de dados, não é muito aconselhável utilizar o access para Web não. Operando na internet o Access torna-se muito lento e por isso é inviável. Um BD muito utilizado é o mySQL. Primeiro por ser gratuíto e outra porque ele apresenta um desempenho bastante razoável na Web. Depois temos o gigante Oracle e o Interbase - o qual se eu não me engano é Free tb. Recomendo: mySQL. Abraços

tenta isso, no fim da instrução ou em algum evento do sub (talves seja necessário colocar um record antes): docmd.requery ou nome_do_rcampo.requery é isso?

AKI também.

Não sei se entendi bem Dequinha, mas uma consulta exclusão no início da instrução não resolve seu problema?

Bastante criativo, muito bom. Daria nota 9. Não notei se está pesado não... e nem poderia mesmo, pois uso BL. Sds,

é.. não fosse a resolução do logo, seria excelente. Sds,

pode ser dep bancário. me passa um e-mail que passo os dados da minha conta. Sds,

Ok!

.. aproveite e faça um reforço nas aulas de Bons Modos. Fará bem. [ ]s

cara, tá legal. Só achei o slogan "Conectando sua empresa...." um pouco ilegível, mas tá 10. [ ]s

Muito bom! Posta aí quando os links estiverem funcionando. Sds,

cara, Seu site não rola nada.... porém, dou uma nota 8 em homenagem ao seu amor pelo BH Sds,

cara, Javascript pedindo voto ou o nome do usuário não funciona mais (como diria my brother xbararax), desde que minha vó deixou de usar fraldas (da primeira vez - rss). Na verdade eu mudaria tudo ali. Achei o topo um pouco desproporcional, além do meio desorganizado e do azul ...blargh!! ... ufa, e é só. Sds,

E se Deus quiser (e pro bem do nosso idioma) no próximo ano você vai se esforçar mais nas aulas de português. [ ]'s

cara, talvez mandando uma MP pro Administrador ele possa te ajudar. [ ]'s