En tiedä tarvitsetteko tällaista, mutta koodin periaate on kirjata tapahtunut virhe tiedostoon, jonne se lisää myös päivämäärän.
' Lisää virheellinen tehtävä komennoksi,
' ja tietokone tallentaa virheen tiedostoon!
' Huomaa, että sinun täytyy luoda kansio Testi C:hen,
' ja sinne virhe.log!
Private Sub Form_Load()
On Error GoTo virhe
' Esimerkkinä text1.text ja text2.text, joita ei ole!
Text1.Text = text2.Text
virhe:
Open ("C:\testi\virhe" & Right(nam, Len(nam) / 2) & ".log") For Output As #1
Print #1, Day(Now) & "." & Month(Now) & "." & Year(Now)
Print #1, Error
Close #1
MsgBox "Virhe löytyy kansiosta C:\testi\virhe.log"
End
End SubMikäs tuo nam on rivillä 11?
Se on sellainen vaan keksin siihen sellaisen. Jos koodia haittaa ota omastasi pois ;)
Aihe on jo aika vanha, joten et voi enää vastata siihen.