Newsgroup: it.comp.appl.access
Titolo: Problema nessun record presente

Ciao a tutti.
Nella mia maschera di inserimento dati, ho messo come impostazione iniziale
la non possibilita di modificare i dati, se non con la pressione di un
pulsante denominato modifica.
Tutto ok, solo che quando non è presente nessun record, quando vado ad
aprire la maschera, mi viene fuori il messaggio di avviso: nessun record
corrente.
Poi entrando nella maschera, non so xke il  funzionamento del pulsante
risulta invertito, cioe all'inizio posso scrivere i dati ma premendo il
pulsante non piu.
Questo inconveniente succede quando non ci sono record presenti.
Come posso ovviare a questo problem?
Poi  x eliminare quel messaggio di nessun record corrente e sostituirlo
magari con un inserito nel codice apposta?
Grazie mille x l'aiuto..


Dovresti postare il codice che usi nell'evento Load della form.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 wrote in message 
news:iGN7e.45625$Of5....@nntpserver.swip.net...

Chissà quale frustrazione spinge quasi tutti i programmatori
a considerare i propri utenti di tanto più tonti di loro da ritenere
necessario mettere in atto tutti gli accorgimenti possibili per
complicare al massimo la vita a sé e a quelli.
Ciò premesso, ritengo tu non abbia solamente posto a No le proprietà
Allow Edits/Deletions/Additions della scheda, perché in tale
caso tutto funzionerebbe senza problemi anche in assenza
di record.
Dunque che altro?
Bruno

 Bruno
Fermo restando che non condivido chi si complica la vita...
Ciao.
-- 
Sergio MAZZA 

 Bruno
E tu vieni nella mia azienda e ai DB ci metterai anche il block shaft
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 E tu vieni nella mia azienda e ai DB ci metterai anche il block shaft
Cioé? L'antifurto co le palle?
Ciao.
-- 
Sergio MAZZA 

 Cioé? L'antifurto co le palle?
No, quello è a parte. ;-P


 (dicasi: paraculi, nel mio quartiere)...
L'utonto, come lo definisci, va comunque lasciato nella
condizione di castrarsi con le sue mani perché solo
così può imparare a maneggiare con cura il coltello.
Vero è invece che si pratica nelle software house un vero
e proprio lavaggio del cervello ai propri programmatori
onde vengano messi in atto tutti quegli accorgimenti che,
secondo me, sono addirittura controproducenti.
Ed è comunque proprietà peculiare del sottosviluppato
considerare, per default, il prossimo un emerito cretino.
Una persona intelligente ha normalmente rispetto
e considerazione per le capacità evolutive dei suoi simili.
Bruno

Scusate tanto mi ero dimenticato di postare il codice:
su evento load ho messo questo:Me.AllowEdits = False.
Sul evento click del pulsante modifica ho inserito questo codice:
If Me.AllowAdditions Then
        Me.AllowEdits = Not Me.AllowEdits
        Me.Elimina.Enabled = Not Me.Elimina.Enabled
        Me.Img_Load.Enabled = Not Me.Img_Load.Enabled
        Me.Cancellafoto.Enabled = Not Me.Cancellafoto.Enabled
        MsgBox "Abilitazione Modifica = " & Me.AllowEdits, vbInformation,
"Avviso..."
End If
Mentre x il conteggio dei record ho inserito questa function:
Private Function RecNum() As String
 Me.RecordsetClone.MoveLast
 RecNum = Me.RecordsetClone.RecordCount

 End If
Nella scheda poni a False le proprietą
AllowEdits/Additions/Deletions, poi
inserisci questo sul pulsante:
--------------------------------
If AllowEdits And AllowDeletions And AllowAdditions Then
    AllowEdits = False
    AllowDeletions = False
    AllowAdditions = False
Else
    AllowEdits = True
    AllowDeletions = True
    AllowAdditions = True
End If
----------------------------------
Ciao
Bruno

 Bruno
Ti sembrerà strano ma la penso anch'io come te, tranne per il fatto che una volta che hai dato il coltello in mano all'utente, 
questo non lo rivolga verso di te e si diverta a vedere cosa succede affondandolo nelle tue carni (leggi: assistenza).
Non mi pronuncio sulle capacità evolutive dell'essere umano, visto che non mi ritengo una persona intelligente...
Ciao.
-- 
Sergio MAZZA 

 wrote in message 
news:gGO7e.45669$Of5....@nntpserver.swip.net...

La gatta frettolosa...
L'errore ti viene generato, quando non hai record, da
Me.RecordsetClone.MoveLast.
Infatti non puoi andare all'ultimo record se record non
ce ne sono.
Sostituisci con:
----------------------------------
If Recordset.RecordCount Then
    Recordset.MoveLast
    RecNum =  Recordset.RecordCount
Else
    RecNum = 0
End If
--------------------------------
Se RecNum è un campo di form potresti avere ritardo
nell'aggiornamento quando inserisci/cancelli un record.
Nel qual caso andrebbe meglio un campo nella form
avente    =Count([NomeDiUnCampoQualunque])
nel Control Source.
Ciao
Bruno

 ..., visto che non mi ritengo una persona intelligente...
Ne dubito, non l'ho mai sentito dichiarare seriamente.
Ciao
Bruno

 Bruno
Ciao, grazie mille per l'aiuto, un ultima cosa e non disturbo piu, ti chiedo
perchč mettendo  AllowEdits/Additions/Deletions su False in access non mi fa
visualizzare i campi? solo lo sfondo della maschera e basta..boo.. io ho
provato a guardare un po dappertutto ma non ci sono arrivato.

 provato a guardare un po dappertutto ma non ci sono arrivato.
Se non hai record Access ti mostra solo lo sfondo.
Tu dici che dovrebbe mostrarti almeno il tracciato
di un record senza peraltro consentirti alcuna
operazione.
Lo dico anch'io, perň cosě non č.
Ti mostra le label dei campi, se le hai create.
Ciao
Bruno

 Bruno
Ciao.
-- 
Sergio MAZZA