Prikazi cijelu temu 26.01.2012 13:58
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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 13:59 od strane zxz.