Access 2003 añadir "," o "y" entre campos

No se si es posible realizar lo que pretendo, pero bueno, lo expongo.
Tengo cinco campos, ejem.
Campo1 Campo2 Campo3 Campo4 Campo5
Todos los campos van a parar a otro campo si es que tienen texto. CampoFinal
Lo que necesito es que en ese CampoFinal, si Campo1 tiene texto y Campo2 también, coloque una "y" entre ambos campos. Asimismo, si Campo1 Campo2 y Campo3 tienen texto, los separe de la siguiente forma Campo1, Campo2 y Campo3. Así con las distintas qcombinaciones entre los cinco campos, que si hay solo dos campos ponga entre ellos un "y", y si hay varios campos, entre ellos poner una coma "," y antes del último campo una "y" para finalizar.

2 Respuestas

Respuesta
1
Lo que puedes hacer es validar si existen datos en los campos por lo que puedes utilizar la función siinm puedes consultar la ayuda de access
Gracias por responder.
He mirado la función, pero realmente no se como aplicarla a mi pregunta
La puedes utilizar así:
siinm(campo1<>"" and campo2<>"";campo1 & " y " & campo2;siinm(campo1<>"" and campo2<>"" and campo3<>"";campo1 & ", " & campo2 & " y" campo3);campo1 & ", " & campo2 & ", " & campo3 & " y " & campo 4)
Si no entiendes mandame una copia de tu BD y te hago un ejemplo.
Respuesta
1
Te envío un ejemplo y pego el código.
***************************************************************
Option Compare Database
Private Sub Texto0_AfterUpdate()
funcionfinal
End Sub
Private Sub Texto2_AfterUpdate()
funcionfinal
End Sub
Private Sub Texto4_AfterUpdate()
funcionfinal
End Sub
Private Sub Texto6_AfterUpdate()
funcionfinal
End Sub
Private Sub Texto8_AfterUpdate()
funcionfinal
End Sub
Function funcionfinal()
Dim asignamosy, contador As Integer
Dim at0, at2, at4, at6, at8 As String
asignamosy = 0
If Me.Texto8 > "" Then
asignamosy = 1
at8 = " y " & Me.Texto8
Else
at8 = ""
End If
If Me.Texto6 > "" Then
    If asignamosy = 0 Then
        asignamosy = 1
        at6 = " y " & Me.Texto6
    Else
        at6 = ", " & Me.Texto6
    End If
Else
at6 = ""
End If
If Me.Texto4 > "" Then
    If asignamosy = 0 Then
        asignamosy = 1
        at4 = " y " & Me.Texto4
    Else
        at4 = ", " & Me.Texto4
    End If
Else
at4 = ""
End If
If Me.Texto2 > "" Then
    If asignamosy = 0 Then
        asignamosy = 1
        at2 = " y " & Me.Texto2
    Else
        at2 = ", " & Me.Texto2
    End If
Else
at2 = ""
End If
If Me.Texto0 > "" Then
    If asignamosy = 0 Then
        asignamosy = 1
        at0 = " y " & Me.Texto0
    Else
        at0 = ", " & Me.Texto0
    End If
Else
at0 = ""
End If
Me.Texto10 = at0 & at2 & at4 & at6 & at8
contador = Len(Me.Texto10)
If Left(Me.Texto10, 3) = " y " Then
Me.Texto10 = Mid(Me.Texto10, 3, contador - 2)
Else
Me.Texto10 = Mid(Me.Texto10, 2, contador - 1)
End If
End Function
***************************************************************
http://brmotorsport.es/mdb/texto en funcion de otros textos.mdb

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Desde venezuela

Chamo espero se encuentren bien les escribo desde Venezuela país del Loco Chavez que pronto va acabar con todos nosotros, pero antes de acabar con Venezuela quiero preguntarte algo: Tengo lo siguiente un Formulario donde necesito hacer unos cálculos...
2 respuestas

Almacenar un campo calculado

Tengo un problema ya que necesito almacenar en mi tabla un dato resultante de un calculo entre otros campos, que tengo que hacer.
1 respuesta

Reportes en access

¿Cómo hago para resaltar el contenido que cumpla con cierta condición?
1 respuesta

Elegir el valor mayor de varios campos

Tengo cuatro campos dependientes numéricos en un formulario (campo1, campo2, campo3 y campo4) y un campo calculado independiente. En el campo calculado me gustaría hacer una fórmula de cálculo que fuera "el mayor valor en los campos 1 ó 2 (coger el...
1 respuesta

Restas en Access

Como puedo hacer para que en una tabla .. Los dos valores que se ingresan a una tabla se muestren un otro nombre de campo es decir. -- Formulario Campo1: 5 Campo2: 3 Campo3: 2 -- En el campo 3 quiero que se me muestre el resultado de esa resta entre...
1 respuesta

¿Cómo puedo ocultar un campo de un formulario en Access?

Lo que requiero es hacer que se oculte y se muestre un campo dentro de un formulario, el cual depende de un resultado de un campo anterior. No se mucho de este tema les pido ser bastante específicos para poder entender. Me habían mencionado mediante...
1 respuesta

Actualizar un campo de una tabla desde botón en access, pero necesito verifique si el campo es nulo

Intento actualizar un campo de una tabla desde un botón en un formulario de access, pero necesito me valide que dicho campo este nulo para continuar de lo contrario me genere un mensaje que el campo no esta vacìo
1 respuesta

Insertar varios registros con los mismos datos por medio de un botón

Que tal quisiera saber como programar un botón guardar, para que los datos capturados en los textbox me los guarde n veces, en mi caso estoy haciendo una pantalla donde capturen pagos por realizar, pero se presenta la situación de que un pago se...
1 respuesta

Activar campos

¿Cómo puedo hacer para que en un formulario un campo este incativo hasta que se rellene el campo anterior? (Es decir, no poder rellenar el campo 2 si el 1 esta vacío)
1 respuesta

Abrir un formulario basado en una variable

Seguro que para los entendidos en Visual Basic, no creo que sea muy complicado lo que pregunto, aunque para mí es un reto en este lenguaje. Intentaré explicarme lo mejor que pueda. Tengo un formulario con estos controles: - Un cuadro de texto txtId -...
1 respuesta