Opa eu queria Um sistema vip que e muito bom de uma engine que tinha usado curti muito o sistema vip de la Colocava Data Nome do playr contava os dias que ele ta vip e tal um otimo sistema alguem sabe um tutorial desse sistema vip para eu colocar na minha engine Se alguem puder me ajuda Agradeço demas clã!!  

A engine que tem o sistema e 
https://www.aldeiarpg.com/t11996-naruto-engine-link-atualizado-2017

https://www.aldeiarpg.com/t6856-sistema-de-premium-por-data?highlight=Premium

Faça bom uso.

Terntei na hora de salva deu erro sobre erro não sei se e porque tutorial e antigo triste 

Eoq

UASHusa, @lucastobias tente ser claro e trazer mais informações em seus posts.

Você tem um campo quase que infinito e com espaço para digitar um Livro aqui, tanto para criar o tópico quanto para responder nossas mensagens; 

Todas as vezes, você responde ou cria tópicos mau explicados. 

Estamos tentando lhe ajudar mas se você não nos trás o básico que é suas duvidas e as expõem de forma decente, torna uma tarefa muito difícil e árdua estar interpretando msgs que parecem ser de alguém que está à terminar a alfabetização. 

Se não ficou claro, amadureça seus post quando se tratar de duvidas/perguntas, traga o que você realmente quer, ou o que aconteceu de fato, com prints embasamentos caso não saiba explicar.

Torne nosso caminho mais fácil para que juntos possamos encontrar uma solução para os seus problemas de desenvolvimento < 3

Att

ok então não postarei pedindo ajuda conseguir foi dois codigo que tinha errado mas na hora de abir a janela ele não abre

Traga os códigos para vermos.

Profane ~ escreveu:Traga os códigos para vermos.

por favor pode me ajudar a encontrar esse erro o código e esse aqui:

Código:

' Sistema de Premium By : Guardian
Option Explicit

Private Sub cmdExit_Click()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

Me.Visible = False

' Error handler
    Exit Sub
errorhandler:
    HandleError "cmdExit_Click", "frmEditor_Premium", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub cmdPremium_Click()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

    'Check Access
    If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then
        Exit Sub
    End If
   
    'Check for blanks fields
    If txtPlayer.text = vbNullString Or txtSPremium.text = vbNullString Or txtDPremium.text = vbNullString Then
        MsgBox ("There are blank fields, please fill out.")
        Exit Sub
    End If
   
    'If all right, go for the Premium
    Call SendChangePremium(txtPlayer.text, txtSPremium.text, txtDPremium.text)
   
' Error handler
    Exit Sub
errorhandler:
    HandleError "cmdPremium_Click", "frmEditor_Premium", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Private Sub cmdRPremium_Click()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler

    'Check Access
    If GetPlayerAccess(MyIndex) < ADMIN_DEVELOPER Then
        Exit Sub
    End If
   
    'Check for blanks fields
    If txtPlayer.text = vbNullString Then
        MsgBox ("The name of the player is required for this operation.")
        Exit Sub
    End If
   
    'If all is right, remove the Premium
    Call SendRemovePremium(txtPlayer.text)
   
' Error handler
    Exit Sub
errorhandler:
    HandleError "cmdRPremium_Click", "frmEditor_Premium", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub