con la creazione guidata applicazioni ho collegato un db ai miei form, solo che non riesco a far girarae il prog causa errore:
TIPO UTENTE NON DEFINITO e mi viene evidenziata prima la prima riga PRIVATE e poi l'altra riga private...
codice:Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'Visualizza la posizione del record corrente per questo gruppo di record datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition) End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) 'Posizione in cui inserire il codice per la convalida 'L'evento viene richiamato in seguito alle seguenti azioni Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub
com'è?

Rispondi quotando
).
