Prikazi cijelu temu 17.08.2015 21:34
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.