
Originariamente inviato da
dragone bianco
Non ho più idee altro non saprei cosa farti controllare
CIao
PS:
Qual'è la parte di codice che da problemi?
La parte che da errore è sempre quella dove compaiono istruzioni del tipo me.nomecontrollo. Se per esempio ho una maschera con la casella di testo nome, e nel codice scrivo un'istruzione che mi permetta di controllare che non siano stati inseriti due nomi uguali, scrivo questo codice VBA.
01 Private Sub Nome_Exit(Cancel As Integer)
02 Dim rst As DAO.Recordset, strNames As String
03 ' If on a new row,
04 If (Me.NewRecord = True) Then
05 ' Check for similar name
06 If Not IsNull(Me.Nome) Then
07 ' Open a recordset to look for similar names
08 Set rst = CurrentDb.OpenRecordset("SELECT Nome FROM " & _
09 "Attivita WHERE [Nome] = '" & _
10 Me.Nome & "'")
11 ' If got some similar names, issue warning message
12 Do Until rst.EOF
13 strNames = strNames & rst!Nome & vbCrLf
14 rst.MoveNext
15 Loop
16 ' Done with the recordset
17 rst.Close
18 Set rst = Nothing
19 ' See if we got some similar names
20 If Len(strNames) > 0 Then
21 ' Yup, issue warning
22 If vbOK = MsgBox("Esiste un' attività con un Nome simile " & _
23 "già salvata nel database: " & vbCrLf & vbCrLf & _
24 strNames & vbCrLf & "Scegliere un altro nome!", _
25 vbQuestion + vbOKOnly, "ATTENZIONE DUPLICATO") Then
26 ' Cancel the save
27 Cancel = True
28 Me.Nome.SetFocus
29 End If
30 End If
31 End If
32 End If
End Sub
Quando poi lo mando in esecuzione, mi compare il messaggio di errore: Errore di compilazione: errore di caricamento dll e mi evidenzia in blu .nome nella riga 10..
Grazie comunque per tutti i consigli che mi hai dato!