Access - Duda Codigo Validar Entrada

   
Vista:

Duda Codigo Validar Entrada

Publicado por Juan (4 intervenciones) el 14/12/2013 05:38:29
Hola a todos, tengo una duda en el siguiente código que estoy realizando:

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
41
42
43
Private Sub SaveHours_Click()
 
Dim stDocName As String
Dim stLinkCriteria As String
Dim GradeLog As String
Dim GradeTask As String
 
 
GradeTask = Me.Text36.Value   ' El valor lo selecciona de un cuadro de texto
GradeLog = Me.List40.Column(1)  'El valor lo selecciona de una consulta pero sale error Null siempre pero la consulta en el formulario sale el resultado que debe mostrar
 
If GradeLog = "" Then   ' al ser una consulta, el primer registro estara vacio
 
    'If GradeTask = "X" Then  ' si es el primer registro e igual a X abre el formulario
 
 
    stDocName = "GradeTeamWorkedDefinition"
    'stLinkCriteria = "[LogReportID]=" & Forms!LogReportManagement!LogReportID.value
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
 
    'Else   'si es el primer registro y diferente de X ejecutara otra sentencia por definir
 
        ' Sin importancia de momento
 
    'End If
 
Else
 
    If GradeLog = GradeTask Then   ' si no es el primer registro, compara que la seleccion coincide con lo que se ha introducido previamente y ejecuta
 
        DoCmd.RunCommand acCmdSaveRecord
        DoCmd.RunCommand acCmdRecordsGoToNew
        Forms!LogReportManagement.WorksLog_subform!Combo30.Requery
        Forms!LogReportManagement.WorksLog_subform!List40.Requery
 
    Else
        MsgBox "Selected Task is Different Grade from Log Grade!"
    End If
 
End If
 
End Sub

No se donde esta el error pero siempre da error 94 null.....

Gracias
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
Imágen de perfil de Norberto

Duda Codigo Validar Entrada

Publicado por Norberto (432 intervenciones) el 19/12/2013 12:06:21
Hola.

Usa GradeLog = Nz(Me.List40.Column(1) )

Un saludo,

Nor.
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

Duda Codigo Validar Entrada

Publicado por Juan (4 intervenciones) el 27/12/2013 12:20:09
Gracias, Funciono
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