[es] - No current record poruka

sdds
beograd

Član broj: 155074
Poruke: 11
*.adsl-3.sezampro.yu.

Profil

"No current record" poruka

^{05.03.2008. u 13:48}

Kako pomocu koda potvrditi klik OK za ovu poruku

If Err.Description = "No current record." Then

Hvala

^{05.03.2008. u 13:48}

domaci_a_nas
Nikola Radovanović
Kragujevac

Član broj: 42333
Poruke: 301
*.dynamic.sbb.co.yu.

Profil

Re: "No current record" poruka

^{05.03.2008. u 17:18}

Problemu možeš pristupiti na više načina. Mislim da ne možeš da klikneš na message box jer se kod u trenutku pojavljivanja poruke blokira. Možeš koritstiti API (application program interface) funkciju messagebox koju možeš uključiti u kod.

Code:
Option Compare Database
Option Explicit
Private Declare Function MessageBox Lib "user32" _
   Alias "MessageBoxA" _
  (ByVal hwnd As Long, _
   ByVal lpText As String, _
   ByVal lpCaption As String, _
   ByVal wType As Long) As Long
Private Const MB_ICONINFORMATION As Long = &H40&

Private Sub Form_Load()
Me.TimerInterval = 500
MessageBox Me.hwnd, "Podatak ne postoji", "Moja poruka", MB_ICONINFORMATION
End Sub

Private Sub Form_Timer()
SendKeys "{ESC}"
Me.TimerInterval = 0
End Sub

Druga varijanta bi bila da ne izbaciš nikakvu poruku već jednostavno postaviš Response = 0, ili da koristiš on Error Resume Next.

Ozbiljan i odgovoran mladić

^{05.03.2008. u 17:18}

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 1692
*.100.46-69.q9.net.

Profil

Re: "No current record" poruka

^{06.03.2008. u 14:06}

U teoriji, svaka procedura u Accesu bi trebalo da ima Error Handling. To se postize ovako:

Code:

Sub MojaProcedure
ON ERROR GOTO ERROR_CODE

'ovde ide kod procedure koji nesto radi

EXIT_HERE:
ON error resume NExt
'pre Exit sub dodaju se rs.close, set db=nothing i slicno
'ON Error Resume Next sluzi da ignorise greske koje mogu uneti rs.close i slicne komande
  Exit sub

ERROR_CODE:
Slect Case err.number
  case 123456
         ne radi nista u slucaju greske 123456
  case else
         MsgBox Prompt:="Gresk " & err.number & vbcrlf & err.description
End select
Resume EXIT_HERE

end sub

Sve greske koje zelis da ignorises ili da uvedes posebnu poruku, stavis u Case komandu u ERROR_CODE sekciji.

Greske koje se ne mogu uhvatiti na ovaj nacin (unos duplikata, narusavanje referencijalnog integriteta i s cino) se love kodom u forminom On_Error eventu. U helpu imas veoma lepo objasnjenje za formin On_Error event, pa ga necu opisivati, a i bilo je na forumu.

^{06.03.2008. u 14:06}