HELP after a network failure, all queries went blank (1 Viewer)

vbaInet said:

Use some code to get all the SQL statements then copy and paste them back in. Some aircode:

Code:Copy to clipboard

Dim qdf As DAO.QueryDef

For Each qdf In CurrentDb.QueryDefs
    Debug.print qdf.Name & vbNewLine & qdf.SQL & vbNewLine & vbNewLine
Next

Look in the Immediate Window for the printouts.

Click to expand...

testee
~sq_cCópia de Registo_teste_criancas_tudo~sq_ccsPDILista
SELECT;



~sq_cCópia de Registo_teste_criancas_tudo~sq_cSalas
SELECT;



~sq_cFicha Informativa Da Criança~sq_cAutorizações subformulário
SELECT;



~sq_cfrmIrmao~sq_cAutorizações subformulário
SELECT;



~sq_cfrmUtilizadores~sq_cIncorporado15
SELECT;



~sq_cfrmUtilizadoresLogados~sq_cLista41
SELECT;



~sq_cRegisto_teste_criancas_tudo~sq_cAutorizações subformulário
SELECT;



~sq_cRegisto_teste_criancas_tudo~sq_ccsModificado subformulário1
SELECT;



~sq_cRegisto_teste_criancas_tudo~sq_ccsPDILista
SELECT;



~sq_cRegisto_teste_criancas_tudo~sq_cSubFormPrgAcIniCreche
SELECT;



~sq_cSalas_teste~sq_cLista0
SELECT;



~sq_cTurmas~sq_cCrianças
SELECT;



~sq_cTurmas~sq_cLista28
SELECT;



~sq_dFicha Inf Crianca Filtro~sq_dAutorizações subformulário
SELECT;



~sq_dFicha Inf Crianca Pesq NumID~sq_dAutorizações subformulário
SELECT;



~sq_dFicha Inf Crianca por Sala~sq_dAutorizações subformulário
SELECT;



~sq_dFicha Inf Crianca Teste~sq_dAutorizações subformulário
SELECT;



~sq_dFicha Inf Crianca~sq_dAutorizações subformulário
SELECT;



~sq_fEcrã Arranque Activar Conteudo
SELECT;



~sq_ffrmUtilizadoresLogados
SELECT;



~sq_ffrmValorOrdMin
SELECT;



~sq_fMenu Principal
SELECT;



~sq_fSair Access
SELECT;



~sq_fTurmas
SELECT;



~sq_fVersao_be
SELECT;



csMudanca_Sala2
UPDATE Salas INNER JOIN Crianças ON Salas.IDSala_salas = Crianças.IDSalas SET Crianças.IDSalas = [Formulários]![frmTransitoDePara]![cxPara]
WHERE (((Crianças.IDSalas)=[Formulários]![frmTransitoDePara]![cxDe]) AND ((Crianças.Desistência)=False));

Click to expand...