Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

JorgeCostaRL

Impedir registo de valores duplicados

Mensagens Recomendadas

JorgeCostaRL

Boa noite,

Venho pedir a vossa ajuda para um problema que me está a torrar o cérebro!

Estou a desenvolver uma aplicação de fidelização de clientes, onde a ideia é por cada compra efectuada na loja, por cada euro gasto recebe-se um ponto e ao fim de determinado numero de pontos obtemos desconto!

Para tal, primeiro temos de criar um cartão de cliente (já feito, com registo dos mesmos, com ID unico, etc...)...

Depois ao efectuar uma compra na loja, registasse o numero do talão e voilá a aplicação transforma a compra em pontos... Até aqui também tudo bem, o problema aparece quando quero impedir que um talão já cadastrado seja cadastrado novamente! consigo que aplicação proiba o registo de um talão repetido, mas o código não me deixa gravar novos registos!

Vou colocar aqui o código que estou a utilizar quando clico no ok para gravar os dados na sheet "Cadastro de vendas"!

Private Sub CommandButton3_Click()
Dim NumeroComanda As String
Dim myRange As Range
Dim F As Range
NumeroComanda = frmCadastroVendas.CBTalao.Text
Set myRange = Worksheets("Cadastro de vendas").Range("b:b")
Set F = myRange.Find(NumeroComanda)
If F > 0 Then
   MsgBox "Venda ja Registada", vbOKOnly, "Venda já registada"
       End
       Else




Dim intLinha As Integer

intLinha = ThisWorkbook.Worksheets("Cadastro de Vendas").Range("A1048576").End(xlUp).Offset(1, 0).Row

ThisWorkbook.Worksheets("Cadastro de Vendas").Cells(intLinha, 1) = cnNome
'ThisWorkbook.Worksheets("Cadastro de Vendas").Cells(intLinha, 2) = CBSerie
ThisWorkbook.Worksheets("Cadastro de Vendas").Cells(intLinha, 2) = CBTalao
ThisWorkbook.Worksheets("Cadastro de Vendas").Cells(intLinha, 3) = TextBox1
ThisWorkbook.Worksheets("Cadastro de Vendas").Cells(intLinha, 4) = CBFuncionaria
ThisWorkbook.Worksheets("Cadastro de Vendas").Cells(intLinha, 5) = TextBox2
MsgBox "Venda Gravada Com Sucesso", _
          vbOKOnly, "Parfois Cadastro de Vendas"
cnNome = ""
'CBSerie = ""
CBTalao = ""
TextBox1.Text = ""
CBFuncionaria = ""
TextBox2 = ""
cnNome.SetFocus

Exit Sub
       End If
   Else
End If
End Sub

Está constantemente a dar erros diferentes conforme tento modificar o código.

Uma ajuda pf

Abraços e muito obrigado desde já pela grande ajuda prestada sem o saberem que estão a fazer, utilizo muitas vezes o fórum para resolver dilemas! E já aprendi muito com isso :)

Cumprimentos,

Editado por thoga31
GeSHi

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
acao

boas

deixo aqui um pequeno exemplo adapte as suas necessidade.

estou a verificar se existe o registo nº35 na coluna A entre as linhas 5 a 10

Private Sub CommandButton1_Click()
Dim rang As Range
Set rang = Range("A5:A10")
Dim rangCel As Range
Dim regExiste As Boolean
regExiste = False
For Each rangCel In rang.Cells
If rangCel.Value = 35 Then
	regExiste = True
End If
Next
If regExiste = True Then
MsgBox "o registo já existe"
Exit Sub
Else
MsgBox "Coloque aqui o cod para efectuar o registo"
End If
End Sub

cumps

acao

Editado por acao

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.