Vb Access

[tog1]

ciao,

ho un db access con una tabella, una query, una maschera inserimento dati e sto facendo la maschera per le query.

ho un submit con questo codice:

Private Sub Comando30_Click()
On Error GoTo Err_Comando30_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "STORNI_IMPORT2"

stLinkCriteria = "[DataFax]=" & "#" & Me![DataFax] & "#"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando30_Click:
Exit Sub

Err_Comando30_Click:
MsgBox Err.Description
Resume Exit_Comando30_Click

End Sub

questa e' l'assegnazione di un campo della maschera in relazione ad un campo della query.

Io dovrei farlo per piu' parametri ma non ci riesco... avevo pensato di scrivere cosi'... ma non funziona

Private Sub Comando30_Click()
On Error GoTo Err_Comando30_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim stLinkCriteria1 As String

stDocName = "STORNI_IMPORT2"

stLinkCriteria = "[DataFax]=" & "#" & Me![DataFax] & "#"
stLinkCriteria1 = "[Nome]=" & "#" & Me![Nome] & "#"

DoCmd.OpenForm stDocName, , , stLinkCriteria, stLinkCriteria1

Exit_Comando30_Click:
Exit Sub

Err_Comando30_Click:
MsgBox Err.Description
Resume Exit_Comando30_Click

End Sub

Cos'e' che sto sbagliando?

Grazie dell'aiuto

[tog1]

:quote:

[tog1]

[ladyBlu]

Per prima cosa ti chiedo di utilizzare l'apposito tag CODE per scrivere il codice, che sennò tocca andarselo a cercare tra le righe dei tuoi post.

Per il tuo problema... se non ricordo male, credo che basti concatenare i criteri di selezione;
un'altra cosa: Me![Nome] è una stringa quindi non devi passargliela con # ma con '"; tra l'altro devi tener conto di eventuali apostrofi nel nome, quindi ti consiglio di fare una Replace su questa stringa.

Private Sub Comando30_Click() 
On Error GoTo Err_Comando30_Click 

 Dim stDocName As String 
 Dim stLinkCriteria As String 


 stDocName = "STORNI_IMPORT2" 

 stLinkCriteria = "[DataFax] = #" & Me![DataFax] & "#" 
 stLinkCriteria = stLinkCriteria & " AND " _
               & "[Nome]= '" & Replace(Me![Nome],"'","''") & "'" 

 DoCmd.OpenForm stDocName, , , stLinkCriteria 

 Exit_Comando30_Click: 
Exit Sub 

Err_Comando30_Click: 
 MsgBox Err.Description 
 Resume Exit_Comando30_Click 

End Sub