Hasta hace poco me funcionaba pero no sé que he hecho que ya no funciona y sin el valor de la variable no me deja seguir.
Paso el código por si hay alguna solución.
Public Class FTRANSF_C
Public vff2 As Date
Public Const vgf As Date = #1/1/1001#
Dim strcnn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\GESTION\GESTION.mdb"
Private Sub FTRANSF_C_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
vff2 = FTRANSF.vff
MsgBox("Fecha seleccionada " & vff2, 1)
FTRANSF.Close()
vencimiento(vff1:=vff2)
'DG1.DataSource = dst.Tables("Vencimientos").DefaultView
'Dim vpi As Integer
'vpi = DG1.RowCount
'If vpi = 0 Then
' Dim vpt As String
'Dim vpt1 As String
' Dim vpd As Single
'Dim vpi1 As Integer = 0
'For i = 1 To vpi
'vpt = DG1.Rows(vpi1).Cells(1).Value
' While DG1.Rows(vpi1).Cells(1) = vpt
' End While
'Next
'DG1.Name = "Listado de Vencimientos"
' DG1.ReadOnly = True
'DG1.DataSource = dst.Tables("Vencimientos").DefaultView
'If DataRow = 0 Then 'DG1.RowCount = 0 Then
'MsgBox("NO HAY REGISTROS")
'Else
'MsgBox("Si")
'End If
'End If
End Sub
Private Sub vencimiento(ByVal vff1 As Date)
vff1 = vff2
If vff1 > vgf Then
Dim conexion As OleDb.OleDbConnection = _
New OleDb.OleDbConnection(strcnn)
Dim adaptador As OleDb.OleDbDataAdapter = _
New OleDb.OleDbDataAdapter("SELECT TFACTURASR.VENCIMIENTO, " & _
"TPROVEEDORES.NOMBRE,TFACTURASR.IMPORTE,TFACTURASR.IMPORTET," & _
"TFACTURASR.FACTURANE,TFACTURASR.CONCEPTOP,TFCTURASR.FECHAE," & _
"TFACTURASR.FACTURANR,TFACTURASR.FECHAP " & _
"FROM TFACTURASR INNER JOIN TPROVEEDORES ON " & _
"TPROVEEDORES.CLAVE = TFACTURASR.CPROVEEDOR " & _
"WHERE TFACTURASR.VENCIMIENTO = # " & Format(vff1, "MM/DD/YYYY") & " # " & _
"AND TFACTURASR.NOPAGAR = 0 AND TFACTURASR.PAGADA = FALSE " & _
"AND TPROVEEDORES.NOPAGAR = 0 AND TFACTURASR.FPAGO LIKE '" & 4 & "%'" & _
"ORDER BY TFACTURASR.VENCIMIENTO, TPROVEEDORES.NOMBRE", conexion)
Dim dst As DataSet = New DataSet
Try
conexion.Open()
adaptador.Fill(dst, "Vencimientos")
DG1.Name = "Listado de Vencimientos"
'DG1.ReadOnly = True
DG1.DataSource = dst.Tables("Vencimientos").DefaultView
If DG1.RowCount = 0 Then
MsgBox("NO HAY REGISTROS")
Else
MsgBox("Si")
End If
' Vencimientos = dst.Tables(0)
Catch ex As OleDb.OleDbException
MsgBox("se ha producido una excepción: " + ex.Message, 16, Me.Text)
Finally
conexion.Close() 'conexion.Dispose()adaptador.Dispose(dst.Dispose())
End Try
End If
End Sub
Private Sub BS_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BS.Click
Me.Close()
End Sub
End Class