Newsgroup: it.comp.appl.access
Titolo: Problema con evento non in elenco......

Salve a tutto il news una domanda per tutti i cervelloni avendo questa
Runtime :
Private Function IsLoaded(strName As String, Optional lngType As
AcObjectType = acForm) As Boolean
IsLoaded = (SysCmd(acSysCmdGetObjectState, acForm, strName) <> 0)
End Function
Private Sub Artikel_NotInList(NewData As String, Response As Integer)
Dim mbrResponse As VbMsgBoxResult
Dim str As String
strMsg = "" & NewData & "     Questa voce non è presente nell'elenco..." &
"Aggiungere?"
mbrResponse = MsgBox(strMsg, vbYesNo + vbQuestion, "Voce insesistente")
Select Case mbrResponse
    Case vbYes
       DoCmd.OpenForm "Artikel", acNormal, , , acFormAdd, acDialog, NewData
        If IsLoaded("Artikel") Then
            Response = acDataErrAdded
             DoCmd.Close acForm, "Artikel"
    Else
          Response = acDataErrContinue
       End If
  Case vbNo
        Response = acDataErrContinue
   End Select
End Sub
Ma purtroppo quando immetto il record nella maschera che dovrebbe
aggiornarmi la combo mi viene questo errore:
Errore di Runtime"2118"
Ènecessario salvare il campo corrente prima di eseguire l'azione
rieseguiquery.
Premettendo che ho inserito un pulsante Salva che mi salva il record
corrente ma non và, il codice si ferma non avviene l'aggiornamento della
combo è normalmente viene il messagio predefinito di access che normalmente
non dovrebbe essere visualizzato.
dove ho fatto l'errore.?!?
-- 
Gianni B.

 ha scritto nel messaggio
news:3eba14fa$1...@news.bluewin.ch...

lo uso spesso, così funziona!!!!
Private Sub Comando0_Click()
    If Me.Comando0.Picture = "C:\MiaDir\KEYOff.BMP" Then
        Me.Comando0.Picture = "C:\MiaDir\KEY.BMP"
    Else
        Me.Comando0.Picture = "C:\MiaDir\KEYOff.BMP"
    End If
exit sub

 ha scritto nel messaggio
news:b9dbsu$g26$1...@server2.ouverture.it...

Scusa ma che centra con l'evento "Non in elenco?"
-- 
Gianni B.

 Scusa ma che centra con l'evento "Non in elenco?"
centra centra e' "Un evento not in list" appunto ;<)
--
a.cara 
Togli qualcosa dall'email

 ha scritto nel messaggio
news:3eba14fa$1...@news.bluewin.ch...

Dal codice VBA che hai postato non si vede dove effettui il requery della
casella combinata Artikel (penso tu lo faccia a fronte dell'evento "Su
chiusura" della maschera Artikel); dovunque tu lo faccia è necessario che,
prima di effettuare il requery, tu cambi il valore della casella combinata,
impostandolo con l'ID o la descrizione dell nuovo record inserito con la
maschera Artikel a seconda di quante colonne ha la combo e di quale è la sua
colonna associata.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Togli qualcosa dall'email
AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH! AH!
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:3eba14fa$1...@news.bluewin.ch...

Chiedo scusa, ho sbabliato a postare il messaggio.
Scusate ancora..........


Scusa Roberto ho seguito la discussione perchè ho un problema simile
ti è possibile spiegarmi meglio  :
dovunque tu lo faccia è necessario che,
 prima di effettuare il requery, tu cambi il valore della casella combinata,
 impostandolo con l'ID o la descrizione dell nuovo record inserito con la
 maschera Artikel a seconda di quante colonne ha la combo e di quale è la
sua
 colonna associata.
perchè io ho una casella combinata dove inserisco il nuovo record , ma
non è quella la colonna associata della combo
Ciao Giuseppe

 Ciao Giuseppe
