|
HOLA, HABER SI ME PODEIS AYUDAR CON ESTA PROGRAMACION, lo que necesito es poner:el PrimerNombre, el SegundoNombre, ApellidoPaterno y ApellidoMaterno. Lo que me pasa es que cuando me falta algun dato en algun campo me sale "NULO" , y no puedo ver los demas datos, ¿que es lo que me falta de poner para poder ver los datos aunque no ponga alguno de ellos?
Un Saludo y Gracias de antemano.
Esta es la programación:
Option Compare Database
Option Explicit
Public Function NombreCompleto(numPed As Single) As String
Dim rs As Recordset
Dim cnn As Connection
Dim strsql As String
Dim resultado As String
Dim stPrimerNombre As String
Dim stSegundoNombre As String
Dim stApPat As String
Dim stApMat As String
resultado = "NULO"
Set rs = New ADODB.Recordset
Set cnn = Application.CurrentProject.Connection
strsql = "SELECT PrimerNombre, SegundoNombre, ApellidoPaterno, ApellidoMaterno FROM [Datos cliente] WHERE [Num pedido] = " & numPed & ";"
rs.Open strsql, cnn
On Error GoTo salir
stPrimerNombre = rs(0)
stPrimerNombre = LTrim(stPrimerNombre)
stSegundoNombre = rs(1)
stApPat = rs(2)
stApMat = rs(3)
resultado = stPrimerNombre & " " & stSegundoNombre & " " & stApPat & " " & stApMat
rs.Close
cnn.Close
salir:
NombreCompleto = resultado
End Function
|
