access

[TittyMail]

Ciao a tutti non so dove inserire questo tipo di rtichiesta ma è urgente.
Allora vorrei sapere come faccio una select in access da codice(sottospecie di visual basic) e non da query, con l'eventuale connessione e recordset.
Perchè mi serve per recuperare dei dati in una tabella e visualizzarli in una lista.

poi volevo sapere se qualcuno di voi ha usato l'oggetto documento che ho usato per inserire un documento word nella maschera access.
Questo doc posso solo visualizzarlo nel momento i cui lo lancio e a me servirebbe poterlo modificare.
Ho notato che lo posso modificare solo se vado in struttura maschera.
Grazie a tutti

[fabio309]

esempio:
dopo aver aggiunto nei riferimenti "Microsoft DAO 3.6"

Dim rc As Recordset
Set rc = CurrentDb.OpenRecordset("SELECT Net.IP FROM Net WHERE Net.Nome_computer='" & Tag & "';")
while not rc.eof
    debug.print rc("Ip")
    rc.movenext
loop
rc.close
set rc = nothing

[TittyMail]

la connessione ????

[TittyMail]

ti posto il codice
non va mi da errore sulla rigia in cui apro il recordset
Private Sub cmdRicerca_Click()
Dim sQuery As String
Dim Conn As Connection
Dim rs As Recordset

Set Conn = New Connection





Conn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Documents and Settings\Titty\Desktop\COMITATO DI DIREZIONE\ComitatoDirezione.mdb;"


If (Form_Ricerca.txtRicOggetto.Value <> "") Then
oggetto = Form_Ricerca.txtRicOggetto.Value
sQuery = "Select Oggetto,Struttura,Data,Appunto1,Appunto2,LinkDoc,d ata " & _
" from Appunto where Oggetto like '%" & oggetto & "%'"


Set rs = CurrentDb.OpenRecordset("Select * from Appunto")

Do While Not rs.EOF
Debug.Print rs("Oggetto")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Else
MsgBox "Inserire l'oggetto di ricerca"
End If



On Error GoTo Err_cmdRicerca_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_cmdRicerca_Click:
Exit Sub

Err_cmdRicerca_Click:
MsgBox Err.Description
Resume Exit_cmdRicerca_Click

End Sub

[TittyMail]

scusa come aggiungo i riferimenti "Microsoft DAO 3.6" ????

[fabio309]

Originariamente inviato da TittyMail
la connessione ????

non ne hai bisogno se lavori in access, al connessine è implicita, per usare l'oggetto Currentdb devi aggiungere DAO 3.6 nei riferimenti

[fabio309]

Originariamente inviato da TittyMail
scusa come aggiungo i riferimenti "Microsoft DAO 3.6" ????

non ho fatto in tempo a scrivere...
strumenti--> riferimenti, scorri l'elenco fino a Microsoft DAO 3.6, dopo averlo aggiunto chiudi la maschera dei riferimenti e la riapri, selezioni il DAO e lo sposti in alto, 3 posizione, altrimenti non funziona

[TittyMail]

sos non ho nel menu i riferimenti!!!! Ma è su access????
Come non detto...dovevo stare sul codice

[TittyMail]

grazie gentilisssssssimo....

solo adesso ho un altro problema....
quando clikko sul pulsante mi apre la finestra quella del trova nel documento.....come mai????

[TittyMail]

aiuto!!!
Come faccio???


E poi come posso fare per inserire in un database i campi di una tabella di word???