[es] - No current record poruka

sdds
beograd

Član broj: 155074
Poruke: 27
*.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: 504
*.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: 2600
*.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}

ilekicika

Član broj: 257869
Poruke: 19
*.dynamic.sbb.rs.

Profil

Re: "No current record" poruka

^{25.05.2011. u 13:19}

Moj problem se može svrstati u ovu temu pa ne bih otvarao drugu, o čemu se zapravo radi:
Imam glavnu formu i dve podforme. Izvor podataka za formu je tabela a za obadve podforme query. Relacija tabele u glavnoj formi i tabela u podvormi je jedan prema vise. Problem je taj što kada izvršim prvi unos podataka u glavnu formu pri prelasku u podformu javlja mi se poruka "No current record" ako nastavim sa pritiskom na taster "Enter" ili klikom na "Ok" kursor prelazi na prvo polje podforme normalno i normalno prihvata podatke pri unosu. Kada otvorim tabele prikaz podataka je ispravan. Pri nastavku unosa ova poruka se ne javlja. Pitanje glasi kako da izbegnem poruku "No curent record" jednostavno da se ne pojavljuje pri prvom unosu (programski kod ili nesto drugo) i zasto se pojavljuje kad je u unosu i relacijama sve ok ili ima neke greške. Molim za pomoc. Srdačan Pozdrav.

_{[Ovu poruku je menjao ilekicika dana 25.05.2011. u 15:27 GMT+1]}

I.L.

^{25.05.2011. u 13:19}

ilekicika

Član broj: 257869
Poruke: 19
..106.109.adsl.dyn.beotel.net.

Profil

Re: "No current record" poruka

^{25.05.2011. u 15:09}

Nisam dobro procitao temu sad vidim da je dat odgovor. Odgovor je Response = 0.
Ali bi ipak pitao zašto se javlja poruka o grešci i da li upotrebom u on Error Response = 0 ignorisu sve poruke o greskama u toj formi.
Pozdrav

I.L.

^{25.05.2011. u 15:09}