Newsgroup: it.comp.appl.access
Titolo: record vuoto

salve!
 
su scaricamento della maschera "Fatture3" ho iserito questo codice:
    Dim rs
    Set rs = Me![DETTAGLIO FATTURE Sottomaschera].Form.RecordsetClone
    Me![DETTAGLIO FATTURE Sottomaschera].Form.Requery
    If rs.RecordCount = 0 Then
       Me!MiaFattura = Null
    End If
 
per far si che chiudendo la maschera (con il numero impostato nel controllo 
"MiaFattura") senza alcun dettaglio nella
sottomaschera, il record nella testata della fattura non si crei.
 
Ma in questo modo ho il record nella tb "Fatture" vuoto.
Come posso fare perchè non si creii affatto?
Grazie
 
 
 


Io ho inserito una casella di testo nella maschera principale che ha 
come origine dati un campo della sottomaschera
esempio =[nomeSottomaschera1].Form!Testo6  
che puoi rendere visibile o meno.
Poi ho inserito un comando che evita di salvare 
se la casella di testo della maschera principale è vuoto.
Ciao

 Grazie
 
Io ho inserito una casella di testo nella maschera principale che ha
come origine dati un campo della sottomaschera
esempio =[nomeSottomaschera1].Form!Testo6
che puoi rendere visibile o meno.
Poi ho inserito un comando che evita di salvare
se la casella di testo della maschera principale č vuoto.
 
Ciao Ghost
 
Che comando hai utilizzato per non salvare?
Grazie
 
 

 Grazie
 
Del Tipo:
 If IsNull(Me!Testo47) Or Me!Testo47 = "" Then
        strMsg = "Mettere il dettaglio fattura o annullare il record!"
        strTitolo = "Mancanza di dati"
        intStile = vbOKOnly
        MsgBox strMsg, intStile, strTitolo
        Cancel = True
 
    End If
Ciao

 ha scritto nel messaggio 
news:1513630.1374.1335439196141.JavaMail.geo-discussion-forums@ynjj38...

grazie 
 
 

 ha scritto nel messaggio 
news:4f99399d$0$1383$4faf...@reader1.news.tin.it...

su che evento?
perchè anche cosi' mi rimane memorizzato nella tb "fatture" il record con il 
numero di fattura 
 
 

Il giorno giovedì 26 aprile 2012 15:19:34 UTC+2, Franco ha scritto:
 
su che evento? 
perchè anche cosi' mi rimane memorizzato nella tb "fatture" il record con il 
numero di fattura 
 
 
 
Sarò più esplicito!
 
Nella sottomaschera a piè di pagina della maschera crei una casella di testo (ad esempio Testo4) dove metti in origine riga:
 
=Conteggio([uncampodettagliosottomaschera])
 
Nella maschera principale crei  una casella di testo (ad esempio Testo7) dove metti in origine riga:
 
=[nomeSottomaschera].Form!Testo4  
 
Nell'evento "prima di aggiornare" della maschera principale metti la routine:
 
 
 
If IsNull(Me!Testo7) Or Me!Testo7 = 0 Then
 Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strTtl = "Mancanza di dati"
  strMsg = "Se vuoi mettere il dettaglio fattura clicca su ""SI"" o clicca su ""NO"" per annullare il record!"
   retValue = MsgBox(strMsg, vbQuestion + vbYesNo, strTtl)
   Select Case retValue
       Case vbYes
       Me![S_Dettaglio_Fatture Sottomaschera]!Data_FattFo.SetFocus
       Case vbNo
       Cancel = True
           DoCmd.RunCommand acCmdUndo
 
   End Select
End If
 
 
Nell'evento "su uscita" della sottomaschera metti la routine:
 
If IsNull(Me![nomeSottomaschera].Form!Testo4) Or Me![nomeSottomaschera].Form!Testo4 = 0 Then
 
  Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
  strTtl = "Mancanza di dati"
 strMsg = "Se vuoi mettere il dettaglio fattura clicca su ""SI"" o clicca su ""NO"" per annullare il record!"
   retValue = MsgBox(strMsg, vbQuestion + vbYesNo, strTtl)
   Select Case retValue
       Case vbYes
      Cancel = True
       Case vbNo
      [DataFattura].SetFocus
 
' datafattura è un capo della maschera principale
      DoCmd.RunCommand acCmdUndo
   End Select
 
End If
 
 
 Fammi sapere se hai risolto.
 
Ciao

 ha scritto nel messaggio 
news:17631637.8.1335527809510.JavaMail.geo-discussion-forums@ynjj38...
Il giorno giovedě 26 aprile 2012 15:19:34 UTC+2, Franco ha scritto:
 
su che evento?
perchč anche cosi' mi rimane memorizzato nella tb "fatture" il record con il
numero di fattura
 
 
 
Sarň piů esplicito!
 
Nella sottomaschera a pič di pagina della maschera crei una casella di testo 

' datafattura č un capo della maschera principale
      DoCmd.RunCommand acCmdUndo
   End Select
 
End If
 
 
 Fammi sapere se hai risolto.
 
Ciao
 
grazie 
 
 

 End If
 
ciao ghost
il tuo codice funziona, però se è possibile
lo vorrei senza dover ogni volta scegliere tra SI o No;
cioè se chiudo la maschera con il
solo numero e data, e come se avessi cliccato su NO
altrimenti è SI, ma senza dover cliccare per scegliere.
Grazie