Search results for query: *

Hi! The hyperlink support only controls of type acLabel, acImage, acCommandButton. But it's possible to solve it using label control. Example. Create a combobox named "Combo0", and label named "Label0" Set the folloving Combobox data: RowSourceType: Value List RowSource...

Hi! Here's code for DAO: dim dbs as database dim tdf as tabledef set dbs=currentdb set tdf=currentdb.tabledefs("MyTableName") tdf.name="NewNameOfMyTable" dbs.close set dbs=nothing Aivars

Hi! Your table contains too many fields for normally work with them. It would be good that you would split your huge table. Seeing that you're beginner you can use wizard: <Menu bar>;<Tools>;<Analyze>;<Table>. Follow wizard's recommendations... Then continue creating of forms. Aivars

Private Sub Form_Timer() Me![CallTime] = DateDiff(&quot;n&quot;, StartTime, Time()) Me!lblClock.Caption = Format(Now, &quot;dddd, mmm d yyyy, hh:mm:ss AMPM&quot;) Me.Repaint End Sub Aivars [pipe]

Hi Gerard! Yor solution seems me too difficult for user. I proffer you other way if you want to allow user to change word places on string. Create on form an unbound list box (row source type=Value List); two text boxes - the first one related to table field, but other one - unbound; two...

Check box has value -1 if Yes same True and value 0 if No same False It is easy to relate it to Oracle field (type dec0) Aivars

One of ways how to solve your problem is Boolean type variable using. You can confirm this variable value on update. Dim blnSave As Boolean Private Sub cmdSave_Click() 'Sub program of <Save button> blnSave = True DoCmd.RunCommand acCmdSaveRecord blnSave = False End Sub Private Sub...

Create an unbound frame box on form and add picture by using mouse right button. Of course you may create field (type Ole) for picture saving on your table before. Control source of unbound frame box must be this field. Aivars

Change property Tab Stop to No for needless fields or lock, or disable those fields on form. Aivars

Hi! You do use wrong options on DoCmd. You try to put filter option on wrong place. stLinkCriteria =&quot;PropertyId=&quot; & [Me!QueryPropertySubform!PropertyId.Value] 'If type of field PropertyId is Text use delimiter ' on criteria string: [/color blue]stLinkCriteria...

Me.txtTextBox.ControlSource = &quot;&quot; You can put these code into any sub program such comand button click, form load etc. Aivars [pipe]

Hi Gus! There is sub program, which refreshes links: Sub RefreshLinks(strNewConnect As String, _ strOldConnect As String, _ Optional prbProgressBar As Control) 'This procedure refreshes linked table connections ' 'strOldConnect - Current connect string 'strNewConnect - connect string...

The calculated controls are not updatable. Aivars

if not rs.eof then rs.FindFirst &quot;[ID] = &quot; & Str(Me![cboDescription]) if not rs.nomatch then Me.Bookmark = rs.Bookmark else msgbox &quot;There is not found ...&quot; end if else msgbox &quot;There is not any record...&quot; end if Aivars

I really never have meet such problem. I always give expected results of recordsets updating (including MEMO fields). Try to print field values: rstTR_History.Edit debug.print rstTR!actTaken debug.print rstTR_History!actTaken rstTR_History!actTaken = rstTR!actTaken debug.print...

Some times recordset.RecordCount doesn't count the records. It's good if record set is populated before using RecordCount property rstTR_History.movelast rstTR_History.movefirst If rstTR_History.RecordCount > 0 Then Aivars

Those code you may put in sub program YourCommandButton_Click. This command updates text box txtPhoneNo on form. Accordingly current table field phonenumber (current shown phone No) will be updated if your form record source is set as query based on your table SITEDATA, and Control Cource of...

Sorry, Don! I mistook before during coying your codes: 'Copy memo field SOURCE to DESTINATION rstTR_History.Edit rstTR_History!actTaken = rstTR!actTaken rstTR_History.Update Aivars

Split your huge table and create relations between those ones. It will easier to work with data after them. Aivars

Private Sub First_NameTxtbox_Afterupdate() SurnameTxtbox=DLookup(&quot;LastName&quot;,&quot;ManagerTable&quot;,&quot;First_Name = '&quot; & me.First_NameTxtbox & &quot;'&quot;) 'DoCmd.Close acTable,&quot;Manager&quot; Wrong command string because your table isn't opened, I think...