COMO POSSO FAZER PARA CANCELAR OU NAO UMA ACAO??
Pessoal eu fiz um código que faz com que quando se acaba o numero de caracteres permitido em um registro, ao ir para o próximo, e vc estiver escrevendo uma palavra, ele será copiada para o próximo registro, para que não se pare de digitar...
Porém ha um problema, quando vc volta um registro para consertar uma letra, ele apaga a linha que estava escrita, o código é este:
rivate Sub Linha1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim i As Integer, Parte1 As String, Parte2 As String
If Len(Linha1.Text) > 39 Then ' coloca até 10 caracteres na linha1
If KeyCode = 32 Then ' se é espaço em branco vai para a outra linha
DoCmd.RunCommand acCmdRecordsGoToNext
ElseIf KeyCode > 32 And KeyCode < 127 Then ' se não, vai tentar encaixar na linha
If Right(Linha1.Text, 1) = " " Then 'acaba com espaço, próximo caracter na próxima linha
DoCmd.RunCommand acCmdRecordsGoToNext
Else ' tem que procurar um espaço, ou hÃfen, para quebrar a palavra
For i = Len(Linha1.Text) To 1 Step -1
If Mid(Linha1.Text, i, 1) = " " Or Mid(Linha1.Text, i, 1) = "-" Then 'achou, separa em dois pedaços
Parte1 = Left(Linha1.Text, i)
Parte2 = Mid(Linha1.Text, i + 1)
Linha1.Text = Parte1
DoCmd.RunCommand acCmdRecordsGoToNext
Linha1.Text = Parte2 '+ Chr(KeyCode) ' e o caractere digitado agora
KeyCode = 0 ' some com o caractere nesta linha
Exit For
End If
Next
If i = 0 Then ' não achou espaço em branco
' muda para a outra linha e aproveita o caractere
DoCmd.RunCommand acCmdRecordsGoToNext
End If
End If
End If
End If
End Sub
Têm como criar um modo para que quando tenha um texto no próximo registrto, ele pergunte algo como "este registro será apagado, deseja continuar " e com as opções Sim ou Não... caso a pessoa digite sim, ele continua, caso clique não, ele cancela a ação..
preciso deseperamente dessa ajuda.. quem puder ajudar... agredeço de coração...
Porém ha um problema, quando vc volta um registro para consertar uma letra, ele apaga a linha que estava escrita, o código é este:
rivate Sub Linha1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim i As Integer, Parte1 As String, Parte2 As String
If Len(Linha1.Text) > 39 Then ' coloca até 10 caracteres na linha1
If KeyCode = 32 Then ' se é espaço em branco vai para a outra linha
DoCmd.RunCommand acCmdRecordsGoToNext
ElseIf KeyCode > 32 And KeyCode < 127 Then ' se não, vai tentar encaixar na linha
If Right(Linha1.Text, 1) = " " Then 'acaba com espaço, próximo caracter na próxima linha
DoCmd.RunCommand acCmdRecordsGoToNext
Else ' tem que procurar um espaço, ou hÃfen, para quebrar a palavra
For i = Len(Linha1.Text) To 1 Step -1
If Mid(Linha1.Text, i, 1) = " " Or Mid(Linha1.Text, i, 1) = "-" Then 'achou, separa em dois pedaços
Parte1 = Left(Linha1.Text, i)
Parte2 = Mid(Linha1.Text, i + 1)
Linha1.Text = Parte1
DoCmd.RunCommand acCmdRecordsGoToNext
Linha1.Text = Parte2 '+ Chr(KeyCode) ' e o caractere digitado agora
KeyCode = 0 ' some com o caractere nesta linha
Exit For
End If
Next
If i = 0 Then ' não achou espaço em branco
' muda para a outra linha e aproveita o caractere
DoCmd.RunCommand acCmdRecordsGoToNext
End If
End If
End If
End If
End Sub
Têm como criar um modo para que quando tenha um texto no próximo registrto, ele pergunte algo como "este registro será apagado, deseja continuar " e com as opções Sim ou Não... caso a pessoa digite sim, ele continua, caso clique não, ele cancela a ação..
preciso deseperamente dessa ajuda.. quem puder ajudar... agredeço de coração...
não entendi muito mas... pegue ae...
tente melhorar,... ok?
[S45][S53]
Private sub textBox_onFocus()
if len(textbox.text) >0 then 'Contém texto
i = msgbox "este registro será apagado, deseja continuar?",vbquestion+vbyesno,"Decisão"
if i = vbyes then 'vbyes = 6
textbox1.text = ""
else
textbox2.setfocus
end if
end if
end sub
tente melhorar,... ok?
[S45][S53]
Tópico encerrado , respostas não são mais permitidas