Ayuda con codigo

Sin abrir la tabla, puedes utilizar una función, un ejemplo:
If Dcount( "*","Mi-Tabla") >0 Then

Un saludo E. Feijoo

"Nego" escribió en el mensaje news:
| No sé como expresarlo claramente asi que creo que lo expondre lo mejor que
| pueda
|
| Yo trabajaba en Clipper. y el codigo que usaba.. era asi.
|
| Use tabla1 ' aqui llamó a la Tabla
| if eof() ' compruebo que no tenga datos
| 'la tabla no tiene datos' ' aquí alerto que existen datos
| close all ' por lo tanto cierro la tabla
| return
| else ' en caso contrario
| 'la tabla tiene datos 'tiene datos y puedo seguir con
| codigo.
|
| Mi pregunta es como hago esto mismo. pero con una tabla o consulta de
| Access. Mediante obviamente Vbasic
| ...
| Nego
|
|



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.497 / Virus Database: 296 - Release Date: 04/07/2003

Muchas Gracias lo probaré

"E. Feijoo" <e.feijoo()retemail.es> escribió en el mensaje
news:
Sin abrir la tabla, puedes utilizar una función, un ejemplo:
If Dcount( "*","Mi-Tabla") >0 Then

Un saludo E. Feijoo

"Nego" escribió en el mensaje
news:
| No sé como expresarlo claramente asi que creo que lo expondre lo mejor que
| pueda
|
| Yo trabajaba en Clipper. y el codigo que usaba.. era asi.
|
| Use tabla1 ' aqui llamó a la Tabla
| if eof() ' compruebo que no tenga
datos
| 'la tabla no tiene datos' ' aquí alerto que existen datos
| close all ' por lo tanto cierro la tabla
| return
| else ' en caso contrario
| 'la tabla tiene datos 'tiene datos y puedo seguir con
| codigo.
|
| Mi pregunta es como hago esto mismo. pero con una tabla o consulta de
| Access. Mediante obviamente Vbasic
| ...
| Nego
|
|



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.497 / Virus Database: 296 - Release Date: 04/07/2003

Muchisimas Gracias.

Lo resolvi con lo que me dijiste..

If DCount("*", "Cta Envio informes A proveedor") <= 0 Then
MsgBox "No existen Datos"
Exit Sub
Else
DoCmd.OpenQuery "Cta Envio informes A
proveedor"
End If

Muchisimas Gracias

Nego

"Nego" escribió en el mensaje
news:

No sé como expresarlo claramente asi que creo que lo expondre lo mejor que
pueda

Yo trabajaba en Clipper. y el codigo que usaba.. era asi.

Use tabla1 ' aqui llamó a la Tabla
if eof() ' compruebo que no tenga

datos

'la tabla no tiene datos' ' aquí alerto que existen datos
close all ' por lo tanto cierro la tabla
return
else ' en caso contrario
'la tabla tiene datos 'tiene datos y puedo seguir con
codigo.

Mi pregunta es como hago esto mismo. pero con una tabla o consulta de
Access. Mediante obviamente Vbasic
...
Nego

Vale, me alegro de que te fuera útil

Una pregunta ¿ crees que en una tabla vacía podría darse el caso de tener menos de 0 registros ?

Un saludo E. Feijoo

"Nego" escribió en el mensaje news:%
| Muchisimas Gracias.
|
| Lo resolvi con lo que me dijiste..
|
| If DCount("*", "Cta Envio informes A proveedor") <= 0 Then
| MsgBox "No existen Datos"
| Exit Sub
| Else
| DoCmd.OpenQuery "Cta Envio informes A
| proveedor"
| End If
|
| Muchisimas Gracias
|
| Nego
|
| "Nego" escribió en el mensaje
| news:
| > No sé como expresarlo claramente asi que creo que lo expondre lo mejor que
| > pueda
| >
| > Yo trabajaba en Clipper. y el codigo que usaba.. era asi.
| >
| > Use tabla1 ' aqui llamó a la Tabla
| > if eof() ' compruebo que no tenga
| datos
| > 'la tabla no tiene datos' ' aquí alerto que existen datos
| > close all ' por lo tanto cierro la tabla
| > return
| > else ' en caso contrario
| > 'la tabla tiene datos 'tiene datos y puedo seguir con
| > codigo.
| >
| > Mi pregunta es como hago esto mismo. pero con una tabla o consulta de
| > Access. Mediante obviamente Vbasic
| > ...
| > Nego
| >
| >
|
|



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.497 / Virus Database: 296 - Release Date: 04/07/2003