[Resolvidos]If ElseIf, ao clicar mudar valores em textbox

Boa tarde amigos, ca estou outra vez

Tenho a caixa de texto que ao abrir o formulario tem o valor predeterminado de 65.

No formulário que ao fazer click dentro dela muda o valor 12 e com mais um click para 1.

Private Sub txtCopias_Click()
If Me.txtCopias = 65 Then
txtCopias = 12
Else
txtCopias = 1
End If

A questão é que eu queria que ela possa fazar o circuito complecto, assim:

65 click 12 click 1 click 65 click 12 click 1

Desde já agradeço

Tente assim:

Private Sub txtCopias_Click()
If Me.txtCopias = 65 Then
txtCopias = 12
ElseIf Me.txtCopias = 12 Then
txtCopias = 1
Else
txtCopias = 65
End If
End Sub

ou assim

Private Sub txtCopias_Click()
If Me.txtCopias = 65 Then
txtCopias = 12
ElseIf Me.txtCopias = 12 Then
txtCopias = 1
ElseIf Me.txtCopias = 1 Then
txtCopias = 65
End If
End Sub

Obrigado criquio

Espero um dia destes também ajudar

Valeu pelo retorno. Precisando, estamos aí.

fiz este codigo abaixo, que para variar nao funciona.....alguma sugestao?
Private Sub Comando190_Click()
If IsNull(Me.RT) Or Me.RT.Value = ""
Me.RT.BackColor = 4210943
If IsNull(Me.SE) Or Me.SE.Value = "" Then
Me.SE.BackColor = 4210943
If IsNull(Me.ORDEM) Or Me.ORDEM.Value = "" Then
Me.ORDEM.BackColor = 4210943
If IsNull(Me.KM) Or Me.KM.Value = "" Then
Me.KM.BackColor = 4210943
If IsNull(Me.CLIENTE) Or Me.CLIENTE.Value = "" Then
Me.CLIENTE.BackColor = 4210943
If IsNull(Me.RAMO_ATIVIDADE) Or Me.RAMO_ATIVIDADE.Value = "" Then
Me.RAMO_ATIVIDADE.BackColor = 4210943
If IsNull(Me.OC) Or Me.OC.Value = "" Then
Me.OC.BackColor = 4210943
If IsNull(Me.P) Or Me.P.Value = "" Then
Me.P.BackColor = 4210943
If IsNull(Me.T) Or Me.T.Value = "" Then
Me.T.BackColor = 4210943
If IsNull(Me.C) Or Me.C.Value = "" Then
Me.C.BackColor = 4210943
If IsNull(Me.ICV) Or Me.ICV.Value = "" Then
Me.ICV.BackColor = 4210943
If IsNull(Me.KG) Or Me.KG.Value = "" Then
Me.KG.BackColor = 4210943
If IsNull(Me.PRIORIDADE) Or Me.PRIORIDADE.Value = "" Then
Me.PRIORIDADE.BackColor = 4210943
If IsNull(Me.CREDITO) Or Me.CREDITO.Value = "" Then
Me.CREDITO.BackColor = 4210943
If IsNull(Me.PONTO_DE_REFERENCIA) Or Me.PONTO_DE_REFERENCIA.Value = "" Then
Me.PONTO_DE_REFERENCIA.BackColor = 4210943
MsgBox ("Campos precisam ser preenchidos")
Me.RT.SetFocus
Else
Dim stDocName As String
stDocName = "RL CLIENTE PARA CADASTRO"
DoCmd.OpenReport stDocName, acPreview
Exit Sub
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub Comando190_Click()
Dim stDocName As String
If IsNull(Me.RT) Or Me.RT.Value = "" Then
Me.RT.BackColor = 4210943
ElseIf IsNull(Me.SE) Or Me.SE.Value = "" Then
Me.SE.BackColor = 4210943
ElseIf IsNull(Me.ORDEM) Or Me.ORDEM.Value = "" Then
Me.ORDEM.BackColor = 4210943
ElseIf IsNull(Me.KM) Or Me.KM.Value = "" Then
Me.KM.BackColor = 4210943
ElseIf IsNull(Me.Cliente) Or Me.Cliente.Value = "" Then
Me.Cliente.BackColor = 4210943
ElseIf IsNull(Me.RAMO_ATIVIDADE) Or Me.RAMO_ATIVIDADE.Value = "" Then
Me.RAMO_ATIVIDADE.BackColor = 4210943
ElseIf IsNull(Me.OC) Or Me.OC.Value = "" Then
Me.OC.BackColor = 4210943
ElseIf IsNull(Me.P) Or Me.P.Value = "" Then
Me.P.BackColor = 4210943
ElseIf IsNull(Me.T) Or Me.T.Value = "" Then
Me.T.BackColor = 4210943
ElseIf IsNull(Me.C) Or Me.C.Value = "" Then
Me.C.BackColor = 4210943
ElseIf IsNull(Me.ICV) Or Me.ICV.Value = "" Then
Me.ICV.BackColor = 4210943
ElseIf IsNull(Me.KG) Or Me.KG.Value = "" Then
Me.KG.BackColor = 4210943
ElseIf IsNull(Me.PRIORIDADE) Or Me.PRIORIDADE.Value = "" Then
Me.PRIORIDADE.BackColor = 4210943
ElseIf IsNull(Me.CREDITO) Or Me.CREDITO.Value = "" Then
Me.CREDITO.BackColor = 4210943
ElseIf IsNull(Me.PONTO_DE_REFERENCIA) Or Me.PONTO_DE_REFERENCIA.Value = "" Then
Me.PONTO_DE_REFERENCIA.BackColor = 4210943
MsgBox ("Campos precisam ser preenchidos")
Me.RT.SetFocus
Exit Sub
Else
stDocName = "RL CLIENTE PARA CADASTRO"
DoCmd.OpenReport stDocName, acPreview
End If
End Sub