Keskustelu: Ohjelmointikysymykset: Access 2003 VBA Tietueeseen lisäämisen estäminen

leppo1 [22.05.2006 13:46:57]

Terve

Ongelma on ettei AllowEdits toimi kun tietueen arvoa muutetaan VBA:n kautta.

Private Sub Koodi_DblClick(Cancel As Integer)


Forms![Projekti]![Keräysali].Form![koodi] = [Forms]![Projekti]![Osienvalinta].[Form]![koodi ]


Forms![Projekti]![Keräysali].Form![koodi].SetFocus

 DoCmd.GoToControl "[Keräysali]"

 DoCmd.GoToRecord acActiveDataObject, , acNext


End Sub

Eikä kentän lukituskaa auta tuohon.
Miten tuohon lisäisi AllowEdits -tilan tunnistamisen ? Miten sitä lähtis siitä eteen päin. Vai onko muita konsteja mielessä?

T leppo

neau33 [25.05.2006 18:26:23]

Moikka leppo1!

kokeile vaikka seuraavaa...

'[k]toimii, kun formi saa focuksen[/k]
Private Sub Form_GotFocus()
 Me.AllowEdits = False
End Sub
'[k]tai...[/k]
Private Sub Form_Activate()
 DataAccessPages!Taulu.RecordLocks = 1
End Sub

leppo1 [26.05.2006 12:07:38]

Terve
Kiitos vastauksesta mutta en vain saa toimimaan?
Kokeilin molempia vaihtoehtoja. Mutta aina vain arvo muuttuu kaksoisklikatessa.

T leppos

neau33 [27.05.2006 08:06:08]

Moikka leppo1!

Olen ymmälläni...minulla seuraava koodinpätkä aiheuttaa sen, ettei formilla oleviin kenttiin muutella tai lisätä yhtään mitään.

Private Sub Form_Load()
 Me.AllowAdditions = False
 Me.AllowEdits = False
End Sub

[k]'eli tämä estää tietueessa siirtymisen.[/k]
Private Sub Koodi_DblClick(Cancel As Integer)
'...
'...
'...
If Me.AllowAdditions = True And Me.AllowEdits = True Then
 DoCmd.GoToRecord acActiveDataObject, , acNext
End If
End Sub

[k]ja lisää vaikka nappi jolla sallit siirtymisen... ja estät uudelleen.[/k]
Private Sub Komento1_Click()
  Me.AllowAdditions = Not Me.AllowAdditions
  Me.AllowEdits = Not Me.AllowEdits
  If Me.AllowEdits = False Then
   Komento1.Caption = "Salli"
  Else: Komento1.Caption = "Estä"
  End if
End Sub

leppo1 [28.05.2006 21:40:04]

Kiito kiitos
Ratkaisin asian näin.

Private Sub Koodi_DblClick(Cancel As Integer)



If Me.AllowAdditions = True And Me.AllowEdits = True Then






Forms![Projekti]![Keräysali].Form![koodi] = [Forms]![Projekti]![Osienvalinta].[Form]![koodi ]


Forms![Projekti]![Keräysali].Form![koodi].SetFocus

 DoCmd.GoToControl "[Keräysali]"

 DoCmd.GoToRecord acActiveDataObject, , acNext

End If
End Sub

Tuo esimerkkisi auttoi erittäin paljon. SIITÄ VALTAVAN SUURET KIITOKSET :)

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku