pmiroslav | 24.09.2012 11:06 |
---|---|
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): 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):
PreuzmiIzvorni kôd (vbnet): a na cijanoj ovaj:
PreuzmiIzvorni kôd (vbnet): Å 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.
|
zxz | 24.09.2012 11:24 |
---|---|
Predmet:Re: After update problem Na Private Sub Text2_MouseDown Pozovi proceduru IDnaloga_AfterUpdate Posto su ove dvije na razlicitim formama cini mi se mozda bi bilo najlakse da napravis proceduru u modulu ovu na after Update pa je samo poszivas. |
pmiroslav | 24.09.2012 11:38 |
---|---|
Predmet:Re: After update problem MožeÅ¡ li mi malo pomoći kako bi ta procedura u modulu trebala biti. |
zxz | 24.09.2012 13:22 |
---|---|
Predmet:Re: After update problem Function NalogID () Forms![ImeForme]![IDPozicije]= Null If (IsNull(DLookup("[NalogID]", "ArhivaNalog", "[NalogID] =" & [Forms]![frmEvidencijaRadnici]![subEvidencija].[Form]![IdNaloga]))) Then Forms![ImeForme]![IDPozicije].RowSource = "Q_NalogPozicijeSve" Else Forms![ImeForme]![IDPozicije].RowSource = "Q_NalogPozicije" End If Forms![ImeForme]![IDPozicije].SetFocus end function A na after update i na mouse down ove druge forme napises odnosno pozivas ovu proceduru: call NalogID Mozda imas ovakvo ime procedure pa provjeri i ako bude promijeni ime. |
pmiroslav | 24.09.2012 14:01 |
---|---|
Predmet:Re: After update problem Hvala ovo radi. Imama joÅ¡ jedno pitanjce da ne otvaram novu temu. problem mi je sintaksa za link criteriju. Tablica je tblSkladiÅ¡te ima polje 'Skladiste' u kojemu su podaci u obliku 000 020 025 030 035 trebam izdvojiti podazke za 020 i 035 zajedno. u kodu imam slijedeće: Dim stLinkCriteria As String stLinkCriteria ="[Skladiste] = 020 or 035" - ovo je problem DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria St |
zxz | 24.09.2012 14:13 |
---|---|
Predmet:Re: After update problem Probaj sa: stLinkCriteria ="[Skladiste] in ('020', '035'" ako je polje tekst |
pmiroslav | 24.09.2012 14:28 |
---|---|
Predmet:Re: After update problem Polje je tekst i ovo radi. a kako treba biti ako su polja numerička. Hvala unaprijed. |
zxz | 24.09.2012 14:30 |
---|---|
Predmet:Re: After update problem stLinkCriteria ="[Skladiste] in (20, 35" |
zxz | 24.09.2012 14:30 |
---|---|
Predmet:Re: After update problem stLinkCriteria ="[Skladiste] in (20, 35") Da napomenem da ovo ima sve u skoli SQL-a, jedino je mozda malo drugacija primjena. |