Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 26.01.2012 12:26
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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:
Informacije o tipu datoteke za:rar  Prodaja.rar
Preuzimanja:352
Velicina datoteke:525.92 KB

Pozdrav
↑  ↓

#2 26.01.2012 12:58
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,644


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):
  1. rivate Sub cmdLinkTables_Click()
  2. On Error GoTo Err_cmdLinkTables_Click
  3.    
  4.     DoCmd.RunCommand (acCmdSaveRecord)
  5.  
  6.     If Len(Nz(Me!txtDataFilePath, "")) > 0 Then
  7.         If RefreshMDBLinks(Me!txtDataFilePath) Then
  8. '        If LinkFromTables("DATA") Then
  9.            MsgBox "Tabele su uspesno povezane!", vbInformation
  10. 'OVAJ RED SAM JA DODAO SAMO
  11.  Forms![Trazi Materijal]![txtLink] = "Spojeni ste na bazu: " & Me.txtDataFilePath & vbTab & Me.Combo25.Column(0) & ".godine"
  12.             Forms![Trazi Materijal].Requery
  13.             DoCmd.Close
  14.         Else
  15.             MsgBox "Povezivanje tabela nije uspelo!", vbCritical
  16.            
  17.         End If
  18.  
  19.     End If
  20.    
  21. Exit_cmdLinkTables_Click:
  22.     DoCmd.Hourglass False
  23.    
  24.     Exit Sub
  25.  
  26. Err_cmdLinkTables_Click:
  27.     Beep
  28.     Beep
  29.     Beep
  30.     MsgBox "rmRelinkTables Error " & err & Chr(13) & ": " & Error$
  31.    
  32.     Resume Exit_cmdLinkTables_Click
  33.    
  34. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 26.01.2012 12:59 od strane zxz. ↑  ↓

#3 26.01.2012 13:42
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Ažuriranje Textbox-a
Veliko hvala!
Pozdrav
↑  ↓

#4 26.01.2012 13:49
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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.
Pozdrav
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 7: 00 pm.