zxz 16.08.2015 22:33
Predmet:Re: not in list

Imas tri slucaja kada otvoris formu frm_User.
1. Slucaj sa tasterom esc i i pobrise se first name koje je preneseno sa predhodne forme.
2. Pokusas izaci sa unosom samo First Name
3. Dopunis unos i pritisnes enter.

Gjoreski 16.08.2015 14:17
Predmet:Re: not in list

Kaj mene e vo red ne javuva nikakva greska. Sve funkcionira ok

pmiroslav 16.08.2015 14:30
Predmet:Re: not in list

Probaj ovo na AfterUpdare u frm_User:

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Form_AfterUpdate()
  2. On Error GoTo Err_AfterUpdate
  3.  
  4.  
  5.     If Me.OpenArgs & "" <> "" Then
  6.         lngNewUSerID = Me.tb_UserKey
  7.         'Since user entered through the openargs argument, he is in the middle of a combobox update
  8.         'We dont want to allow more then 1 record being added this way, so close form
  9.         DoCmd.Close acForm, Me.Name
  10.     End If
  11. exit_AfterUpdate:
  12. Exit Sub
  13.  
  14. Err_AfterUpdate:
  15. MsgBox "Greska broj " & Err.Number & vbCrLf & Err.Description & vbCrLf & "u sub AfterUpdate()"
  16. 'Poruka ce da javi broj greske.
  17. Resume exit_AfterUpdate
  18.  
  19. End Sub

Jasmin 16.08.2015 15:42
Predmet:Re: not in list

nece drug otvori mi vba i ovaj kod je oznacen u zutoj boji "DoCmd.Close acForm, Me.Name"

pmiroslav 16.08.2015 15:58
Predmet:Re: not in list

Dali si u tvoj kod dodao

On Error GoTo Err_AfterUpdate

...Tvo kod
...i na kraju

exit_AfterUpdate:
Exit Sub

Err_AfterUpdate:
MsgBox "Greska broj " & Err.Number & vbCrLf & Err.Description & vbCrLf & "u sub AfterUpdate()"
'Poruka ce da javi broj greske.
Resume exit_AfterUpdate

Kod mene zatvori formu bez problema

zxz 17.08.2015 20:34
Predmet:Re: not in list

Nije ti ovo dobro rjesenje Jasko. Nekad izlazis na enter a nekad na krstic.
Bolje je kad je jednobrazno uvijek ali eto ti si tako htio.
evo ti kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Dim Kancel As Boolean
  4. Private Sub Form_AfterUpdate()
  5.     If Me.OpenArgs & "" <> "" Then
  6.         lngNewUSerID = Me.tb_UserKey
  7.         If Format$(Me.tb_FirstName) = "" Or Format$(Me.tb_LastName) = "" Then
  8.         MsgBox "Popuni Podatke"
  9.         Kancel = True
  10.         Me.tb_LastName.SetFocus
  11.         GoTo Kraj
  12.         End If
  13.         DoCmd.Close acForm, Me.Name
  14.     End If
  15. Kraj:
  16. End Sub
  17.  
  18.  
  19. Private Sub Form_Load()
  20.    
  21.     If Me.OpenArgs & "" <> "" Then
  22.         'Open args was sent to the form.
  23.        Me.tb_FirstName = Me.OpenArgs
  24.         Me.tb_LastName.SetFocus
  25.     End If
  26. End Sub
  27.  
  28. Private Sub Form_Unload(Cancel As Integer)
  29. Cancel = Kancel
  30. Kancel = False
  31. End Sub

Jasmin 17.08.2015 21:33
Predmet:Re: not in list

Ne valja, vrijednost mi ostaje zapisana u listi kad zatvorim onaj prozor na X.

zxz 18.08.2015 10:21
Predmet:Re: not in list

Hoces reci ostaje ti upisano first name.
Nisi se ni izjasnio kako zelis iako sam ti ja opisao sve tri variante koje su moguce.

Ti dok otvoris formu tebi u polju bude upisan podatak i to sam ti vec napisao.
Sada ako kliknes na krstic za izlaz taj podatak ce se i upisati.
Jedini nacin je da provjeris pa ako nema upisano Last name da pobrise i firt name.
Mozda ti tako odgovara.

Rekao sam ti da si to lose postavi zbo izlaza na dva nacina.
To je lose i za korisnika.
Ti to nevidis ili jer nisi sagledao dovoljno dok si napisao kada ne uneses nista u stvari nikad se ne desi da ne uneses nista jer kada si kliknu da zelis unijeti novi podatak tebi je vec first name uneseno ili bolje reci otvori ti se forma i u polje first name unesen podatak iz comba predhopdne forme.
Znaci vec je nesto uneseno.

sad se postavlja pitanje sta ako neces da uneses nista u ovom momentu.
Rekao sam ti da tad moze priotisnuti esc taster te pobrisati (eliminisati) to sto je vec upisano i onda izaci.
Medjutim ti klikas na krstic i izlazis i naravno zapisuje se u tabelu to sto je upisano na formi.
Ukoliko ti neces da se to upise jedini je nacin da provjeravas pa ako nije i drugo polje popunjeno da se ne upise u tabelu.

Valjda si me sad razumio.

Najbolje je da izlaz napravis samo na jednom mjestu.
Napr samo na krstic ili napravis taster izlaz.

Gjoreski 19.08.2015 09:54
Predmet:Re: not in list

Jas vo vakov slucaj stavam tri butona izlezi odkazi i prifati i na sekoj od niv soodvetna funkcija ili moze dva prifati i odkazi