[386Enh]
PerVMFiles=<value> // Onde <value> pode ter at� 225
a=CurrentDb.OpenRecordSet( "SELECT COUNT(*) FROM TESTE" )
IF a.Count = 0 Then
MsgBox( "N�o existem TESTES" )
End If
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
| Dicas DOS / Windows | |||||||||||
| Para rodar antigos programas Clipper em ambiente Windows ME, deve ser utilizada a vari�vel PerVMFiles na se��o 386Enh do arquivo SYSTEM.INI : | |||||||||||
|
|||||||||||
| SYSTEM.INI [386Enh] PerVMFiles=<value> // Onde <value> pode ter at� 225 |
|||||||||||
| ACCESS: Para acessar uma tabela a partir de um m�dulo: | |||||||||||
| Private Sub Form_Open( Cancel as Integer) a=CurrentDb.OpenRecordSet( "SELECT COUNT(*) FROM TESTE" ) IF a.Count = 0 Then MsgBox( "N�o existem TESTES" ) End If End Sub |
|||||||||||