Newsgroup: it.comp.appl.access
Titolo: Nel debug i bollini d'interruzione non funzionano più

Scusate, ma mi succede una cosa strana.
Nell'applicativo su cui sto lavorando ad un certo punto non riesco più a
fare il debug posizionando i bollini marron a lato del codice. Cioè si
posizionano ma non arrestano il programma durante l'esecuzione. Succede con
il codice  di tutte le maschere.
Con altri applicativi Access funzionano normalmente.
Ho fatto compatta ecc. ma non cambia niente.  Uso Access 2000 con WXP.
Grazie anticipatamente.
Francesco

 ha scritto nel messaggio
news:5bmid.122962$b5.60...@news3.tin.it...

Per Vs. conoscenza, ho importato tabelle, query, ecc. in un DB nuovo vuoto e
i bollini del debug hanno ricominciato a funzionare.
C'è qualcuno che sa spiegare l'accaduto?
Francesco

 C'è qualcuno che sa spiegare l'accaduto?
Io no ma a volte capita pure a me...
PErò uscendo e rientrando tutto torna a posto...
-- 
Alex {per email metti '[NOSPAM]' nell'oggetto}
"Prima di dedicarti all'impossibile accertati di aver fatto tutto il
possibile" (Alex1980)

 PErò uscendo e rientrando tutto torna a posto...
Tipico M$.
la sai quella che tre amici vanno in cinquecento e questa si ferma.
il primo, elettrauto, dice: sicuramente è la batteria. dobbiamo smontarla e
controllarla.
il secondo, meccanico: ma saranno le candele. apriamo il motore, smontiamo
le candele e puliamole.
il terzo, tecnico M$: Proviamo ad uscire e rientrare!!!
ciao MAssimiliano

Buonasera,
mi sono, tanto per cambiare, bloccata sul codice per duplicare un record.
Ho la mia solita maschera Prodotti con una serie di controlli associati e non.
L'origine dati è la tabella Prodotti. La chiave primaria è un contatore (ad
incremento).
Ora io vorrei semplicemente duplicare un record cliccando su un pulsante
accodare il nuovo record in fondo e... tutti vissero felici e contenti.
Ho seguito l'help di access e i vostri vecchi posts e Il codice che uso è
questo:
===
Private Sub CopiaIncolla_Click()
    Dim IntNuovo As Integer, strTitolo As String
    Dim IntFinestraMsg As Integer, strMsg As String
    strTitolo = "Conferma di duplicazione record"
    strMsg = "Vuoi effettivamente duplicare il record corrente??"
    IntFinestraMsg = vbYesNo + vbQuestion
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    If IntNuovo = vbYes Then
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70
 
   Else
        strTitolo = "Fai attenzione!"
        strMsg = "Ok, per questa volta passi..."
        IntFinestraMsg = vbExclamation
        IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    End If
 
End Sub
==
Il record viene duplicato senza problemi, ma quando vado a cercarlo nella
tabella... non c'e'. O meglio, c'e' il nuovo record, ma i campi sono vuoti.
Evidentemente io devo dire alla tabella di aumentare il contatore di +1 e
inserire i valori nelle varie caselle. Ma come? 
Dove sbaglio?
Grazie in anticipo per l'aiuto!
Erika
-- 
Per rispondermi... Togli "nospam"
To send me an email... take out "nospam"

Forse ho risolto il problema ^_^ ... dopo lungo vagare su google e nell'help ho
risolto in questo modo, con un pulsante e una query di accodamento:
Private Sub CopiaIncolla_Click()
    Dim IntNuovo As Integer, strTitolo As String
    Dim IntFinestraMsg As Integer, strMsg As String
      strTitolo = "Conferma di duplicazione record"
    strMsg = "Vuoi effettivamente duplicare il record corrente??"
    IntFinestraMsg = vbYesNo + vbQuestion
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    If IntNuovo = vbYes Then
DoCmd.OpenQuery "ACCODA_RECORD"
DoCmd.Requery
DoCmd.GoToRecord , , acLast
    Else
        strTitolo = "Fai attenzione!"
        strMsg = "Ok, per questa volta passi..."
        IntFinestraMsg = vbExclamation
        IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    End If
 
End Sub
dove l'SQL della query ha questa forma:
INSERT INTO Prodotti ( CodiceProdotto, IDOrdine, NomeOriginale, Traduzione,
Descrizione, Autore, Immagine, Genere, Fornitore, Magazzino, Titolo,
StatoConservazione, CostoProdotto, CostoFinito, InVendita, Cambio, Ricarico,
PrezzodiVendita, CambioMedio, CostoFinito2, PrezzoVenditaCambioMedio,
VenditaEffettivo, Venduto, Onhold, Cliente, [NOTE] )
SELECT [Forms]![Maschera_Prodotti]![CodiceProdotto],
[Forms]![Maschera_Prodotti]![IDOrdine],
[Forms]![Maschera_Prodotti]![NomeOriginale],
[Forms]![Maschera_Prodotti]![Traduzione],
[Forms]![Maschera_Prodotti]![Descrizione], [Forms]![Maschera_Prodotti]![Autore],
[Forms]![Maschera_Prodotti]![Immagine], [Forms]![Maschera_Prodotti]![Genere],
[Forms]![Maschera_Prodotti]![Fornitore],
[Forms]![Maschera_Prodotti]![Magazzino], [Forms]![Maschera_Prodotti]![Titolo],
[Forms]![Maschera_Prodotti]![StatoConservazione],
[Forms]![Maschera_Prodotti]![CostoProdotto],
[Forms]![Maschera_Prodotti]![CostoFinito],
[Forms]![Maschera_Prodotti]![InVendita], [Forms]![Maschera_Prodotti]![Cambio],
[Forms]![Maschera_Prodotti]![Ricarico],
[Forms]![Maschera_Prodotti]![PrezzodiVendita],
[Forms]![Maschera_Prodotti]![CambioMedio],
[Forms]![Maschera_Prodotti]![CostoFinito2],
[Forms]![Maschera_Prodotti]![PrezzoVenditaCambioMedio],
[Forms]![Maschera_Prodotti]![VenditaEffettivo],
[Forms]![Maschera_Prodotti]![Venduto], [Forms]![Maschera_Prodotti]![Onhold],
[Forms]![Maschera_Prodotti]![Cliente], [Forms]![Maschera_Prodotti]![NOTE];
====================
Ora il tutto funziona apparentemente bene, ma dato che non avevo mai fatto
niente di simile non vorrei avere pasticciato e avere problemi piu' avanti. 
Potete dirmi se ci sono errori o, piuttosto, se posso migliorare il tutto?
Grazie ancora!
