Solved DoCmd. GoToRecord does not work correctly

Gasman said:
You don't. I just posted the whole event, expecting you to identify what you could take from that.?
Look at the GotoRecord lines.
Click to expand...
Okay. If in the event when I open the form I do not put it to go to any record, it shows me all, from the beginning.

Yes I use it
Code: 
DoCmd.GoToRecord,, acNewRec

It shows me only the last record, and I can't see any more records on the screen.

And if I use
Code: 
DoCmd.RunCommand acCmdRecordsGoToLast
     DoCmd.GoToRecord acDataForm, Me.Name, acPrevious, 3
     DoCmd.RunCommand acCmdRecordsGoToNew

It takes me all the registers adjusted to the height of the screen (8 registers plus the new register). In the form that had the problem I have 11 records. When I add 12, I close and reopen, with your code it already shows me all three plus the new one.

So I guess this is the best I can hope for.

Thank you very much to all.
 
Excuse me I have managed to fix it everywhere except in a subform.

I have a code to fill a subform with some dates that I choose. At the end of this code, I call the function to take me to the last record, showing this and the previous three. But it does not work. I have done an error control and it does not give any.

This is the code:

Code: 
Option Explicit

Function Rellenar(FName As Form, Codigo As String, Tabla As String, Subform As String, ValorCodigo As Variant)
Dim Observaciones As String
Dim FechaInicio As Date
Dim FechaFinal As Date
Dim rstRegistro As DAO.Recordset

    On Error GoTo err_lbl
    If Not IsNull(FName.Controls(Codigo)) Then
        Select Case MsgBox("¿Quieres rellenar con un texto hasta una fecha determinada?", vbYesNo Or vbQuestion Or vbDefaultButton1, NombreBD)
            Case vbYes
                Observaciones = InputBox("¿Qué texto quieres añadir en las observaciones?", NombreBD)
                'Si el usuario cancela el InputBox, salimos
                    If StrPtr(Observaciones) = 0 Then Exit Function
                FechaInicio = InputBox("Desde cuándo quieres rellenar?", NombreBD, Format(Date, "dd-mmm-yyyy"))
                FechaFinal = InputBox("¿Hasta cuándo quieres rellenar?", NombreBD, Format(DateAdd("d", 1, Date), "dd-mmm-yyyy"))
                FechaFinal = DateAdd("d", 1, FechaFinal)
                Do
                    Set rstRegistro = CurrentDb.OpenRecordset(Tabla)
                    If FechaInicio < FechaFinal Then
                        rstRegistro.AddNew
                        rstRegistro!Fecha = FechaInicio
                        rstRegistro.Fields(Codigo) = FName.Controls(Codigo)
                        rstRegistro!SiNo = True
                        rstRegistro!Observaciones = Observaciones
                        rstRegistro.Update
                    End If
                    FechaInicio = DateAdd("d", 1, FechaInicio)
                Loop While FechaInicio < FechaFinal
                FName.Controls(Subform).Requery
            Case vbNo
                Exit Function
        End Select
    Call PersonalizarVista(FName, Tabla, True, Codigo, ValorCodigo)
    Else
        MsgBox "No has seleccionado un registro.", vbInformation, NombreBD
        Exit Function
    End If
err_lbl:
    Select Case Err.Number
        Case 13
            MsgBox Err.Number & " " & Err.Description
            Exit Function
    End Select
End Function

The function PersonalizarVista has ended up like this (it is the one I use to go to the new record ...):

Function PersonalizarVista(FName As Form, Tabla As String, Optional HayCriterio As Boolean = False, Optional CampoCriterio As String, Optional Criterio As Variant)
Dim Registros As Long
On Error GoTo err_lbl
If HayCriterio = False Then
Registros = DCount("*", Tabla)
Else
Registros = DCount("*", Tabla, CampoCriterio & "=" & Criterio)
End If
DoCmd.RunCommand acCmdRecordsGoToLast
Select Case Registros
Case Is > 5
DoCmd.GoToRecord acDataForm, FName.Name, acPrevious, 3
Case 2 To 5
DoCmd.GoToRecord acDataForm, FName.Name, acPrevious, 1
End Select
DoCmd.RunCommand acCmdRecordsGoToNew
err_lbl:
Select Case Err.Number
Case 3075
MsgBox Err.Number & " " & Err.Description
Exit Function
End Select
End Function

Thanks!!!
 
You need to walk through the code and see what it is actually doing?
This does not look correct to me Registros = DCount("*", Tabla, CampoCriterio & "=" & Criterio) Put the citeria into a string, then you can debug.print it to see if it is correct. :(

Should be more like
Code: 
Registros = DCount("*", Tabla, "CampoCriterio =" & Criterio)
and if Criterio is actually a string, it should be surrounded with single quotes or triple double quotes.? Best to put into a string variable to make sure.?
 
Gasman said:
You need to walk through the code and see what it is actually doing?
This does not look correct to me Registros = DCount("*", Tabla, CampoCriterio & "=" & Criterio) Put the citeria into a string, then you can debug.print it to see if it is correct. :(

Should be more like
Code: 
Registros = DCount("*", Tabla, "CampoCriterio =" & Criterio)
and if Criterio is actually a string, it should be surrounded with single quotes or triple double quotes.? Best to put into a string variable to make sure.?
Click to expand...
I have tested that and it works correctly. I've already passed the code using F8 and it doesn't give any error. That's why I ask, in case anyone knows what else it could be.
 
zelarra821 said:
I have tested that and it works correctly. I've already passed the code using F8 and it doesn't give any error. That's why I ask, in case anyone knows what else it could be.
Click to expand...
Sorry, I cannot see that as being correct, due to the syntax there.?
 
I have already fixed that problem:

Code: 
Function PersonalizarVista(FName As Form, Tabla As String, Optional HayCriterio As Boolean = False, Optional CampoCriterio As String, Optional Criterio As Variant)
    Dim Registros As Long
    On Error GoTo err_lbl
    If HayCriterio = False Then
        Registros = DCount("*", Tabla)
    Else
        Dim Criterio1 As String
        Criterio1 = CampoCriterio & " = " & Criterio
        Registros = DCount("*", Tabla, Criterio1)
    End If
    DoCmd.RunCommand acCmdRecordsGoToLast
    Select Case Registros
        Case Is > 5
            DoCmd.GoToRecord acDataForm, FName.Name, acPrevious, 5
        Case 2 To 5
            DoCmd.GoToRecord acDataForm, FName.Name, acPrevious, 1
    End Select
    DoCmd.RunCommand acCmdRecordsGoToNew
err_lbl:
    Select Case Err.Number
        Case 3075
            MsgBox Err.Number & " " & Err.Description
            Exit Function
    End Select
End Function

Now what I think happens. Where I have the problem is just in the forms with subform. These lines:

Code: 
DoCmd.RunCommand acCmdRecordsGoToLast
DoCmd.GoToRecord acDataForm, FName.Name, acPrevious, 5
DoCmd.RunCommand acCmdRecordsGoToNew

They refer to the main form, so nothing happens in the subform.

I have tried adding something similar to this

Code: 
FName.Controls("SubformName").SetFocus

But it doesn't work either.
 
Try passing in the full reference to the subform object. Something like

Forms!Mainform!Subform1.Form
 
Your syntax is still wrong for the criteria. :(
Obviously that needs to run in the subform?
 
Gasman said:
Your syntax is still wrong for the criteria. :(
Obviously that needs to run in the subform?
Click to expand...
Hi.

I honestly don't know what is wrong. Look, I put a Debug.Print, and in the immediate window it shows me the correct values.
ScreenShot001.jpg


I need it for the subform because that is where I want it to show me the new record plus three previous records.
 
Minty said:
Try passing in the full reference to the subform object. Something like

Forms!Mainform!Subform1.Form
Click to expand...
Where I think I have the problem is here:

Code: 
DoCmd.GoToRecord acDataForm, FName.Name, acPrevious, 5

That FName.Name I get it from the main form, not from the subform.
 
Try debug.print Criterio1 ? what does that show?
One path would be fine, but you need to test all paths?
 
Ah OK, sorry.
I thought CampoCriteria was the name of a field?. My apologies. :mad:

So how is the subform linked to the mainform?
Why not just have those 3 lines of code in the subform?
I'm all for making code generic, but you need to get the basic code working first, before trying more advanced methods.?
Can you pass a subform name or control in as optional?
 
Gasman said:
So how is the subform linked to the mainform?
Click to expand...
They are linked by a numeric code, which depends on the form, so I pass the name of the code to the function:

Optional CampoCriterio As String
 
Gasman said:
I'm all for making code generic, but you need to get the basic code working first, before trying more advanced methods.?
Click to expand...
In the other forms that I have no subform it works fine.
 
Look, I already have the error it gives. It's 2493, and it tells me that this action requires an Object Name argument
 
You must log in or register to reply here.

Similar threads

C
Another Save Error
Replies
4
Views
279
Isaac
Isaac
C
Date Filter not working
Replies
3
Views
369
Gasman
Gasman
P
Solved How does New Posts section work?
Replies
6
Views
560
Pat Hartman
P
mloucel
Solved Hide subform Does Not Work
2
Replies
20
Views
1,221
mloucel
mloucel
S
Solved Using a Does Not Contain Criteria in an IIf Statement
Replies
9
Views
361
Pat Hartman
P

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom