Newsgroup: it.comp.appl.access
Titolo: Informazioni su due codici in vba

Salve ragazzi. Volevo chiedervi due informazioni relative a due codici. Il 
primo è:
Private Sub Comando93_Click()
On Error GoTo Err_Comando93_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Msk_Opere_Visual"
    stLinkCriteria = "[ID_OPERA]=" & Me![id_opera]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando93_Click:
    Exit Sub
Err_Comando93_Click:
    MsgBox Err.Description
    Resume Exit_Comando93_Click
End Sub
che mi permette di visualizzare attraverso un pulsante della maschera 
Msk_Opere_visual i record correlati nella maschera Msk_Bibliografia_visual. 
Purtroppo questo codice mi presenta dei limiti quando nelle maschere non si 
verifica il   stLinkCriteria = "[ID_OPERA]=" & Me![id_opera] che mi mette in 
correlazione le due maschere e la maschera Msk_Bibliografia_Visual mi 
compare grigia. Come posso modificare questo codice in modo che se non si 
verifica la condizione   stLinkCriteria = "[ID_OPERA]=" & Me![id_opera] mi 
compaia un messaggio di errore "Non ci sono bibliografie corrispondenti 
all'opera" e che la maschera non mi compaia grigia ma mi ridia la maschera 
di partenza Msk_Opere_Visual?
Ho inoltre un altro problema con il seguente codice trovato sul sito comune 
di Access:
Dim ChiaveRicerca As StringPrivate Sub Ricerca_Change()   Dim rst As 
Recordset   Dim strR As String   strR = Me.Ricerca.Text   If Not 
IsNull(Me!Ricerca.Text) Then      Set rst = Me.RecordsetClone 
rst.FindFirst "DITTA like """ & ChiaveRicerca & Me!Ricerca.Text & "*""" 
Me.Bookmark = rst.Bookmark      rst.Close      Set rst = Nothing   End If 
Me!Ricerca = strR   Me!Ricerca.SelStart = 255 'Len(Me!Ricerca.Text)End Sub 
Private Sub Ricerca_DblClick(Cancel As Integer)   Select Case 
Me!Ricerca.SpecialEffect   Case 1      Me!Ricerca.SpecialEffect = 2 
ChiaveRicerca = "*"      Me!Ricerca.ControlTipText = "Ricerca rapida per 
parte del campo"   Case 2      Me!Ricerca.SpecialEffect = 1 
ChiaveRicerca = ""      Me!Ricerca.ControlTipText = "Ricerca rapida da 
inizio campo"   Case Else      MsgBox "Viene reimpostato l'aspetto della 
casella", vbExclamation, "Errore"      Me!Ricerca.SpecialEffect = 1 
ChiaveRicerca = ""      Me!Ricerca.ControlTipText = "Ricerca rapida da 
inizio campo"   End SelectEnd SubPrivate Sub ricerca_KeyDown(KeyCode As 
Integer, Shift As Integer) Dim rst As Recordset                    Dim str 
As String   If KeyCode = vbKeyDown Or KeyCode = vbKeyUp Then      If Not 
IsNull(Me!ricerca.Text) Then         Set rst = Me.RecordsetClone         If 
KeyCode = vbKeyDown Then            rst.FindNext "Cognome like """ & 
Me!ricerca.Text & "*"""             If rst.NoMatch Then 
rst.FindLast "Cognome like """ & Me!ricerca.Text & "*"""             End If 
Else            rst.FindPrevious "Cognome like """ & Me!ricerca.Text & "*""" 
If rst.NoMatch Then                rst.FindFirst "Cognome like """ & 
Me!ricerca.Text & "*"""             End If         End If 
Me.Bookmark = rst.Bookmark         rst.close         Set rst = Nothing 
End If      Me!ricerca.SetFocus      Me!ricerca.SelStart = 255   End IfEnd 
SubPurtroppo non riesco a capire dove vada applicato questo codice. Per 
esempio la mia maschera di ricerca si chiama Msk_Musei e il controllo non 
associato Nome_Museo. Ho provato molte volte, ma mi da sempre errore.C'e 
qualcuno che molto gentilmente mi sa spiegare passo per passo dove questo 
codice va applicato? Questo codice mi permette una ricerca multipla o solo 
per una stringa? Per esempio nella mi amaschera di ricerca Msk_Museiposso 
applicarlo solo a Nome_Museo o anche a altri controlli non associati come 
Località o Stato?Vo ringrazio per l'aiuto e scusatemi se quesste domande 
possono essere banali, ma sono un programmatore alle prime armi con i 
dcodici VBA,.Un saluto a tutti. 

 dcodici VBA,.Un saluto a tutti.
E' sempre complesso interpretare il codice VBA di qualcun altro, ma un
codice VBA scritto così a boschetto non credo che riuscirebbe a raggionarci
su neppure l'autore: penso che questa difficoltà non sia solo maia ma di
molti frequentatori del NG: ti consigio pertanto di porre nuovamente questo
quesito in un altro tuo messaggio nel quale, oltre a spiegare cosa vuoi
fare, indicherai l'autore ed il titolo della FAQ del Sito Comune cui fai
riferimento: il codice VBA in essa contenuto lo si andrà poi a vedere nella
FAQ stessa.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------