Jump to content
Sign in to follow this  
JorgeCostaRL

Impedir registo de valores duplicados

Recommended Posts

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,

Edited by thoga31
GeSHi

Share this post


Link to post
Share on other 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

Edited by acao

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.