Prikazi cijelu temu 24.09.2012 10:06
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:After update problem
Na subformi koja se zove 'subEvidencija' imam ComboBox 'IDnaloga' i na njemu na AfterUpdate Kod kojim se mjenja Recordsourse slijedećek ComboBox-a 'IDpozicije'
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub IDnaloga_AfterUpdate()
  2. Me.IDPozicije.Value = Null
  3. If (IsNull(DLookup("[NalogID]", "ArhivaNalog", "[NalogID] =" & [Forms]![frmEvidencijaRadnici]![subEvidencija].[Form]![IdNaloga]))) Then  
  4. Me.IDPozicije.RowSource = "Q_NalogPozicijeSve"
  5. Else
  6. Me.IDPozicije.RowSource = "Q_NalogPozicije"
  7. End If
  8. Me.IDPozicije.SetFocus
  9. End Sub
Ovo do sada sve radi dobro. Međutim kako je u ComboBox-u IDnaloga prilično dugačka lista, napravio sam drugu formu za pretraživanje naloga iz koje pomoću tzv. Drag And Drop funkcije miÅ¡em prenesem podatak IDNaloga iz jedne forme u drugu.

Na starnoj formi ide slijedeći kod:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  2. DragStart Me
  3. End Sub
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Text2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  2. DragStop
  3. End Sub
a na cijanoj ovaj:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub IDnaloga_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  2. DropDetect Me, Me![IdNaloga], Button, Shift, X, Y
  3. End Sub
Å to se tiče prenosa podatka iz forme u formu sve radi dobro, međutim ne odradi se funkcija AfterUpdate tj ne promjeni se recordSource Comba IDPozicije.
Pozdrav