Cadastrar após confirmação


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Cadastrar após confirmação

Luis CR

FORTALEZA
CE - BRASIL

ENUNCIADA !

Postada em 01/12/2010 08:20 hs

No meu formulário de cadastro coloquei um rotina para me informar se o registro já existe ou não e só cadastrar depois da confirmação. essa parte funcionou beleza, só que a rotina deixou de cadastrar aqueles que não estavam repetidos. podem me dizer qual é o erro?

Private Sub BtIncluir_Click()
Dim msgDuplicado As String
'Application.ScreenUpdating = False

If Not Worksheets("cadastro").Range("A7:A40").Find(ComboBox1.Text) Is Nothing Then
    msgDuplicado = MsgBox("Este código já está cadastrado. Continua?", vbInformation + vbYesNo, "Aviso!")

    Select Case msgDuplicado
    Case vbYes

    Set c = Sheet1.Range("A65536").End(xlUp).Offset(1, 0)
    Application.ScreenUpdating = False

    c.Value = Me.ComboBox1.Text
    c.Offset(0, 1).Value = Me.ComboBox2.Value
    c.Offset(0, 2).Value = Me.ComboBox3.Value
    c.Offset(0, 3).Value = Me.ComboBox4.Value
    c.Offset(0, 4).Value = Me.ComboBox5.Value
    c.Offset(0, 5).Value = Me.TextBox6.Value
    c.Offset(0, 6).Value = Me.TextBox7.Value
    c.Offset(0, 7).Value = Me.TextBox8.Value
    c.Offset(0, 8).Value = Me.TextBox9.Value
    c.Offset(0, 9).Value = Me.TextBox10.Value
    c.Offset(0, 10).Value = Me.ComboBox1.Value
    c.Offset(0, 11).Value = Me.CboTipo.Value

    With Me
        .ComboBox1.Text = vbNullString
        .ComboBox2.Value = vbNullString
        .ComboBox3.Value = vbNullString
        .ComboBox4.Value = vbNullString
        .ComboBox5.Value = vbNullString
        .TextBox6.Value = vbNullString
        .TextBox7.Value = vbNullString
        .TextBox8.Value = vbNullString
        .TextBox9.Value = vbNullString
        .TextBox10.Value = vbNullString

    End With
    Application.ScreenUpdating = True

    ActiveWorkbook.Worksheets("Cadastro").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Cadastro").Sort.SortFields.Add Key:=Range("A7:A40" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Cadastro").Sort
        .SetRange Range("A7:L40")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    Range("A7").Select
    End With
'**********************************************************************************************************
    With PG
    If PG.Value >= 1 And PG.Value <= 3 Then
        Worksheets("Receita").Range("E14").Value = "28%"
        ComboBox4.Value = "0%"
    ElseIf PG.Value >= 4 And PG.Value <= 6 Then
        Worksheets("Receita").Range("E14").Value = "25%"
        ComboBox4.Value = "0%"
    ElseIf PG.Value = 7 Then
        Worksheets("Receita").Range("E14").Value = "22%"
        ComboBox4.Value = "0%"
    ElseIf PG.Value >= 8 And PG.Value <= 10 Then
        Worksheets("Receita").Range("E14").Value = "19%"
        ComboBox4.Value = "0%"
    ElseIf PG.Value >= 11 And PG.Value <= 14 Then
        Worksheets("Receita").Range("E14").Value = "16%"
        ComboBox4.Value = "0%"
    ElseIf PG.Value >= 15 And PG.Value <= 18 Then
        Worksheets("Receita").Range("E14").Value = "13%"
        ComboBox4.Value = "0%"
    ElseIf PG.Value >= 20 And PG.Value <= 22 Then
        Worksheets("Receita").Range("E14").Value = "13%"
        ComboBox4.Value = "0%"
    ElseIf PG.Value = 19 Or PG.Value = 23 Then
        Worksheets("Receita").Range("E14").Value = "0%"
        ComboBox4.Value = "0%"
    End If
    End With

        Case vbNo
        Exit Sub
    End Select
    'Application.ScreenUpdating = True
End If
End Sub

Luis CR
não registrado

ENUNCIADA !

Postada em 02/12/2010 08:56 hs

Ninguem tem uma solução para mim?

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 02/12/2010 09:47 hs

oi luis, depurando com F8 e ou F9 ele entra nessa mensagem

quando não existe vc so colocou assim:

  Case vbNo
        Exit Sub  'aqui o problema por isso não grava nada. so ta saindo do case.
    End Select

Luis CR
não registrado

ENUNCIADA !

Postada em 02/12/2010 11:22 hs

Juan, antes de mais nada agradeço sempre pelo apoio que vc me dispensa. Agora, pode me dar a solução na prática, literalmente. Pq como disse, sou autodedata e estou aprendendo.

Luis
não registrado

ENUNCIADA !

Postada em 03/12/2010 08:30 hs

Problema resolvido com as alterações feita abaixo. Obrigado Juan

Private Sub BtIncluir_Click()

Dim msgDuplicado As String

If Not Worksheets("cadastro").Range("A7:A40").Find(ComboBox1.Text) Is Nothing Then

msgDuplicado = MsgBox("Este código já está cadastrado. Continua?", vbInformation + vbYesNo, "Aviso!")

Select Case msgDuplicado

Case vbNo

Exit Sub

End Select

End If

If Not Worksheets("cadastro").Range("A7:A40").Find(ComboBox1.Text) Is Nothing Then

msgDuplicado = MsgBox("Este código já está cadastrado. Continua?", vbInformation + vbYesNo, "Aviso!")

Select Case msgDuplicado

Case vbYes

End Select

End If

Set c = Sheet1.Range("A65536").End(xlUp).Offset(1, 0)

Application.ScreenUpdating = False

c.Value = Me.ComboBox1.Text

c.Offset(0, 1).Value = Me.ComboBox2.Value

c.Offset(0, 2).Value = Me.ComboBox3.Value

c.Offset(0, 3).Value = Me.ComboBox4.Value

c.Offset(0, 4).Value = Me.ComboBox5.Value

c.Offset(0, 5).Value = Me.TextBox6.Value

c.Offset(0, 6).Value = Me.TextBox7.Value

c.Offset(0, 7).Value = Me.TextBox8.Value

c.Offset(0, 8).Value = Me.TextBox9.Value

c.Offset(0, 9).Value = Me.TextBox10.Value

c.Offset(0, 10).Value = Me.ComboBox1.Value

c.Offset(0, 11).Value = Me.CboTipo.Value

With Me

.ComboBox1.Text = vbNullString

.ComboBox2.Value = vbNullString

.ComboBox3.Value = vbNullString

.ComboBox4.Value = vbNullString

.ComboBox5.Value = vbNullString

.TextBox6.Value = vbNullString

.TextBox7.Value = vbNullString

.TextBox8.Value = vbNullString

.TextBox9.Value = vbNullString

.TextBox10.Value = vbNullString

End With

Application.ScreenUpdating = True

ActiveWorkbook.Worksheets("Cadastro").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Cadastro").Sort.SortFields.Add Key:=Range("A7:A40" _

), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Cadastro").Sort

.SetRange Range("A7:L40")

.Header = xlGuess

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

Range("A7").Select

End With

With PG

If PG.Value >= 1 And PG.Value <= 3 Then

Worksheets("Receita").Range("E14").Value = "28%"

ComboBox4.Value = "0%"

ElseIf PG.Value >= 4 And PG.Value <= 6 Then

Worksheets("Receita").Range("E14").Value = "25%"

ComboBox4.Value = "0%"

ElseIf PG.Value = 7 Then

Worksheets("Receita").Range("E14").Value = "22%"

ComboBox4.Value = "0%"

ElseIf PG.Value >= 8 And PG.Value <= 10 Then

Worksheets("Receita").Range("E14").Value = "19%"

ComboBox4.Value = "0%"

ElseIf PG.Value >= 11 And PG.Value <= 14 Then

Worksheets("Receita").Range("E14").Value = "16%"

ComboBox4.Value = "0%"

ElseIf PG.Value >= 15 And PG.Value <= 18 Then

Worksheets("Receita").Range("E14").Value = "13%"

ComboBox4.Value = "0%"

ElseIf PG.Value >= 20 And PG.Value <= 22 Then

Worksheets("Receita").Range("E14").Value = "13%"

ComboBox4.Value = "0%"

ElseIf PG.Value = 19 Or PG.Value = 23 Then

Worksheets("Receita").Range("E14").Value = "0%"

ComboBox4.Value = "0%"

End If

End With

End Sub

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 03/12/2010 12:29 hs

cara não ta certo ainda.

olha so :

If Not Worksheets("cadastro").Range("A7:A40").Find(ComboBox1.Text) Is Nothing Then

aqui ja existe, então nao grava

coloca a mensagem que existe, mais nao coloque se quer gravar novamente para nao repetir e

coloca o exit sub

else

aqui que deve gravar

coloca o codigo da gravação aqui

endif

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR