definir el tipo
Publicado por luca (15 intervenciones) el 05/10/2007 11:15:53
Hola, estoy haciendo una consulta donde me suma una fila una fila concreta de un MSFlexGrid1, pero no consigo hacerlo ya que me sale el siguiente error " NO SE HA DEFINIDO EL TIPO DEFINIDO POR EL USUARIO" el codigo que estoy utilizando es el siguiente, espero me puedan ayudar.
No se si sera importante, estoy utilizando win vista.
Private Sub Command2_Click()
Dim bd As Database
Dim rs As Recordset
Set bd = OpenDatabase("C:\Program Files\GestionPolicia\Policia.mdb")
Set rs = bd.OpenRecordset("Select Sum(horas) From tblHORASEXTRAS where [año] ='" & Text1.Text & "' AND [MES]= '" & Text2.Text & "'", dbOpenDynaset)
Data1.RecordSource = "SELECT * FROM tblHORASEXTRAS WHERE [AÑO] = '" & Text1.Text & "' AND [MES]= '" & Text2.Text & "' ORDER BY FECHA"
Text3.Text = rs.Fields(0)
End Sub
No se si sera importante, estoy utilizando win vista.
Private Sub Command2_Click()
Dim bd As Database
Dim rs As Recordset
Set bd = OpenDatabase("C:\Program Files\GestionPolicia\Policia.mdb")
Set rs = bd.OpenRecordset("Select Sum(horas) From tblHORASEXTRAS where [año] ='" & Text1.Text & "' AND [MES]= '" & Text2.Text & "'", dbOpenDynaset)
Data1.RecordSource = "SELECT * FROM tblHORASEXTRAS WHERE [AÑO] = '" & Text1.Text & "' AND [MES]= '" & Text2.Text & "' ORDER BY FECHA"
Text3.Text = rs.Fields(0)
End Sub
Valora esta pregunta
0