Access - separar caracteres de caja de texto y copiarlas en otras diferentes

   
Vista:
Imágen de perfil de JUAN MIGUEL

separar caracteres de caja de texto y copiarlas en otras diferentes

Publicado por JUAN MIGUEL juan13miguel@gmail.com (37 intervenciones) el 31/12/2015 18:25:16
BUEN DIA, estoy diseñando un formulario para que cuando ingresen datos en caja de texto "tex1"
y uno en text2
el codigo me copie los dos primeros caracteres de esa caja text1 y copie todos los datos de text2 y los pegue en la caja de texto "text3" completando una palabra
pero tengo problemas con la palabra clipboard que no se como utilizarala

recuerdo que este codigo lo encontre en una web que colgo un programador llamado asderpunk y que se le dal el credito por el tiempo que se tomo y lo he modificado pero no me resulta

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub Command1_Click()
    'Condicion para que no tenga los textbox solos
    If Text1.Text = "" And Text2.Text = "" Then
        MsgBox "No puedes dejar un campo en blanco"
        'Condición para poder seleccionar las 2 _
        primeras letras del textbox
    ElseIf Len(Text1.Text) > 2 Then
        Text1.SetFocus      'Da el foco al text1
        Text1.SelStart = 0  'Se posiciona al inicio
        Text1.SelLength = 2 'Selecciona solo 2
        Clipboard.SetText (Text1.SelText) 'Copia el texto seleccionado
        Text3.Text = Clipboard.GetText() & Text2.Text 'Pega el clipboard
        Text1.SelStart = 0 'Desmarca la selección del texto
        Text3.SetFocus 'Pone el foco en el text3
        MsgBox "Nombre de usuario generado " & _
        "correctamente.", vbInformation, "Correcto"
    Else
        MsgBox "Escribe un nombre mas largo", vbExclamation, _
        "Error Nombre"
    End If
End Sub
Private Sub Command2_Click()
    'Limpia los textbox
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
End Sub
Private Sub Form_Load()
On Error Resume Next 'Control de errores
    Me.Caption = "Crear Nombre de Usuario"
    Me.Command1.Caption = "Crear"
    Me.Command2.Caption = "Limpiar"
End Sub
Private Sub Text3_Change()
Dim I As Integer
    'Para convertir el resultado a mayúsculas
    Text3.Text = UCase(Text3.Text)
    I = Len(Text3.Text)
    Text3.SelStart = I
End Sub

agradeszco a quien me pueda ayudar
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

separar caracteres de caja de texto y copiarlas en otras diferentes

Publicado por Enrique Heliodoro (1663 intervenciones) el 31/12/2015 23:14:59
En la primera línea de ese código, ya aparece el primer error.

No se puede referenciar a la propiedad Text de un cuadro de texto si este no tiene el foco (es el objeto activo) .... curiosamente un poco mas adelante se respeta esa norma (y sinceramente me parece que en dos líneas resolvías el conflicto, sobran el resto)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar