iCentar » Racunari i oprema » Programirannje i baze podataka » Access

pmiroslav	26.01.2012 13:26
Predmet:AÅ¾uriranje Textbox-a Imam aplikaciju i u njoj formu za promjenu linka. Na formi "Trazi Materijal" iz koje pozivam formu za promjenu linka imam i text box koji mi kazuje na koju bazu (godinu sam vezan) U tblLink ručno upiÅ¡em putanju do datoteka pa je korisnik bira iz ComboBox-a Problem je u tome Å¡to nakon promjene linka ne mogu aÅ¾urirati TextBox koji mi kazuje na koju godinu sam povezan. Molim pomoć
Prilozi: Prodaja.rar (Velicina datoteke:525.92 KB)

pmiroslav

26.01.2012 13:26

Predmet:AÅ¾uriranje Textbox-a

Imam aplikaciju i u njoj formu za promjenu linka.
Na formi "Trazi Materijal" iz koje pozivam formu za promjenu linka imam i text box koji mi kazuje na koju bazu (godinu sam vezan)
U tblLink ručno upiÅ¡em putanju do datoteka pa je korisnik bira iz ComboBox-a
Problem je u tome Å¡to nakon promjene linka ne mogu aÅ¾urirati TextBox koji mi kazuje na koju godinu sam povezan.

Molim pomoć

Prilozi:
Prodaja.rar (Velicina datoteke:525.92 KB)

zxz	26.01.2012 13:58
Predmet:Re: AÅ¾uriranje Textbox-a U txtlink Control source neka bude prazno. Jos bi bolje bilo da je labela umjesto txtboxa. Evo tboja procedura. PreuzmiIzvorni kôd (Visual Basic): rivate Sub cmdLinkTables_Click() On Error GoTo Err_cmdLinkTables_Click DoCmd.RunCommand (acCmdSaveRecord) If Len(Nz(Me!txtDataFilePath, "")) > 0 Then If RefreshMDBLinks(Me!txtDataFilePath) Then ' If LinkFromTables("DATA") Then MsgBox "Tabele su uspesno povezane!", vbInformation 'OVAJ RED SAM JA DODAO SAMO Forms![Trazi Materijal]![txtLink] = "Spojeni ste na bazu: " & Me.txtDataFilePath & vbTab & Me.Combo25.Column(0) & ".godine" Forms![Trazi Materijal].Requery DoCmd.Close Else MsgBox "Povezivanje tabela nije uspelo!", vbCritical End If End If Exit_cmdLinkTables_Click: DoCmd.Hourglass False Exit Sub Err_cmdLinkTables_Click: Beep Beep Beep MsgBox "rmRelinkTables Error " & err & Chr(13) & ": " & Error$ Resume Exit_cmdLinkTables_Click End Sub

zxz

26.01.2012 13:58

Predmet:Re: AÅ¾uriranje Textbox-a

U txtlink Control source neka bude prazno.
Jos bi bolje bilo da je labela umjesto txtboxa.
Evo tboja procedura.

PreuzmiIzvorni kôd (Visual Basic):

rivate Sub cmdLinkTables_Click()
On Error GoTo Err_cmdLinkTables_Click
DoCmd.RunCommand (acCmdSaveRecord)
If Len(Nz(Me!txtDataFilePath, "")) > 0 Then
If RefreshMDBLinks(Me!txtDataFilePath) Then
' If LinkFromTables("DATA") Then
MsgBox "Tabele su uspesno povezane!", vbInformation
'OVAJ RED SAM JA DODAO SAMO
Forms![Trazi Materijal]![txtLink] = "Spojeni ste na bazu: " & Me.txtDataFilePath & vbTab & Me.Combo25.Column(0) & ".godine"
Forms![Trazi Materijal].Requery
DoCmd.Close
Else
MsgBox "Povezivanje tabela nije uspelo!", vbCritical
End If
End If
Exit_cmdLinkTables_Click:
DoCmd.Hourglass False
Exit Sub
Err_cmdLinkTables_Click:
Beep
Beep
Beep
MsgBox "rmRelinkTables Error " & err & Chr(13) & ": " & Error$
Resume Exit_cmdLinkTables_Click
End Sub

pmiroslav	26.01.2012 14:42
Predmet:Re: AÅ¾uriranje Textbox-a Veliko hvala!

pmiroslav

26.01.2012 14:42

Predmet:Re: AÅ¾uriranje Textbox-a

Veliko hvala!

pmiroslav	26.01.2012 14:49
Predmet:Re: AÅ¾uriranje Textbox-a MoÅ¾e joÅ¡ pomoć. Ovo radi odlično kada se mjenje link, ali sada sam primjetio da kada se otvori baza, txtLink bude prazan, a u njemu bi trebao biti podatak na koji link je baza spojena kada se otvorila.

pmiroslav

26.01.2012 14:49

Predmet:Re: AÅ¾uriranje Textbox-a

MoÅ¾e joÅ¡ pomoć.
Ovo radi odlično kada se mjenje link, ali sada sam primjetio da kada se otvori baza, txtLink bude prazan, a u njemu bi trebao biti podatak na koji link je baza spojena kada se otvorila.