Me pide que ingrese el Valor del parametro
Publicado por Sandra Veronica (203 intervenciones) el 30/12/2007 23:02:43
Hola a todos .... Muy feliz 2008
Necesito de suma urgencia que alguien me ayude con esto. Me pide que le ingrese el valor del parametro cuando en ralidad ya le estoy asignando el valor. La variable es la que se llama Pirulo
Desde ya muchas gracias
Sandra!
------------------------------------------------
Private Sub Comando99_Click()
Dim mRs As DAO.Recordset
Set mRs = CurrentDb.OpenRecordset("SELECT TOP 1 NroActa AS Acta From CliProv WHERE Right( NroActa,4) = Year (Date() ) ORDER BY Left (NroActa, 4) DESC")
Dim nActa As String
Dim Pirulo As String
Dim SQL As String
If mRs.RecordCount = 1 Then
nActa = Left(mRs!acta, 4) + 1
Else
nActa = 1
End If
Pirulo = Format(nActa, "0000") & "/" & Year(Date)
SQL = "UPDATE CliProv SET NroActa = Pirulo Where Cuenta = " & Me.cuenta
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
mRs.Close
End Sub
Necesito de suma urgencia que alguien me ayude con esto. Me pide que le ingrese el valor del parametro cuando en ralidad ya le estoy asignando el valor. La variable es la que se llama Pirulo
Desde ya muchas gracias
Sandra!
------------------------------------------------
Private Sub Comando99_Click()
Dim mRs As DAO.Recordset
Set mRs = CurrentDb.OpenRecordset("SELECT TOP 1 NroActa AS Acta From CliProv WHERE Right( NroActa,4) = Year (Date() ) ORDER BY Left (NroActa, 4) DESC")
Dim nActa As String
Dim Pirulo As String
Dim SQL As String
If mRs.RecordCount = 1 Then
nActa = Left(mRs!acta, 4) + 1
Else
nActa = 1
End If
Pirulo = Format(nActa, "0000") & "/" & Year(Date)
SQL = "UPDATE CliProv SET NroActa = Pirulo Where Cuenta = " & Me.cuenta
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
mRs.Close
End Sub
Valora esta pregunta
0