PDA

Visualizza versione completa : ACCESS SPOSTARE UNA TABELLA


valcos
28-08-2008, 16.13.47
come posso spostare una tabella in modo dinamico (vba) tra 2 file di access
grazie

miciomao
29-08-2008, 10.02.24
Ciao prova con questa



Function CopyTab()
On Error GoTo CopyTab_Err
'Copio la tabella in un'altro DB
DoCmd.CopyObject "C:\PercorsoDB.mdb", "NomeDellaTabellaCopiata", acTable, "NomeTabellaDaCopiare"
'Cancello la tabella copiata
DoCmd.DeleteObject acTable, "NomeTabellaCopiata"

CopyTab_Exit:
Exit Function

CopyTab_Err:
MsgBox Error$
Resume CopyTab_Exit

End Function

valcos
04-09-2008, 11.37.27
grazie funziona perfettamente, :mm: altra questione da picchiarmi: in un form ho una sottomashera dove l'origine oggetto (sourceobject) viene modifificato a seconda della query selezionata vorrei contare le righe che contiene la sottomaschera, grazie

miciomao
04-09-2008, 12.30.31
Puoi numerarli a video

in un modulo a parte inserisci questa funziona pubblica


Public Function GetRecNum() As Long
On Error GoTo erh
With CodeContextObject.RecordsetClone
If Not (.BOF And .EOF) Then
.Bookmark = CodeContextObject.Bookmark
GetRecNum = .AbsolutePosition + 1
End If
End With
ext:
Exit Function
erh:
Exit Function
'GetRecNum = 0
End Function


poi nella sottomaschera crea una casella di testo che avrÓ come controllo origine

=IIf(Val(GetRecNum())=0;"";GetRecNum() & ")")


Ciao ;)