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):Private Sub IDnaloga_AfterUpdate()
Me.IDPozicije.Value = Null
If (IsNull(DLookup("[NalogID]", "ArhivaNalog", "[NalogID] =" & [Forms]![frmEvidencijaRadnici]![subEvidencija].[Form]![IdNaloga]))) Then
Me.IDPozicije.RowSource = "Q_NalogPozicijeSve"
Else
Me.IDPozicije.RowSource = "Q_NalogPozicije"
End If
Me.IDPozicije.SetFocus
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):Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DragStart Me
End Sub
PreuzmiIzvorni kôd (vbnet):Private Sub Text2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
DragStop
End Sub
a na cijanoj ovaj:
PreuzmiIzvorni kôd (vbnet):Private Sub IDnaloga_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DropDetect Me, Me![IdNaloga], Button, Shift, X, Y
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