Search results

First of all, I know that the last reply in this thread was a while ago. Nevertheless I think my reply has got a small contribution for this thread, here it is: thanks for the code to retrieve the HandleID! I placed the HandleID in the persistent access properties and made the ribbon...

So you're trying to get some information from the table "users" and you only get the value from the column "UserID" wich should be numeric (long). You filter this with the colum Username (wich is a string) and check it with a combobox 'cboUsername' on your form. What is the referenced...

try this: i needed this to make a combobx scroll with the form_mousewheel function Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal count As Long) 'Some personal code... If Me.ActiveControl.OnChange = "[Event Procedure]" Then txt = Me.ActiveControl.EventProcPrefix &...

it did the trick, thanks ByteMyzer

yes i have, but it didn't help me out.

hello, i'm having a problem with setting up a query that only needs to show data from one table that's not in the other one. I'll explain a little: I have 2 tables (i've got more but this are the ones i need for this query) called tblUsr and tblGameUsr In tblUsr i have 2 column called 'Id'...

You need the requery, do it like this under the command "After update" of "form_Close" forms!frmMovieDetails.form.frmMovieDetailsSubform.form.cboAddStarToMovie.requery Or just reload the whole (sub)form forms!frmMovieDetails.form.frmMovieDetailsSubform.requery

nice explanation! My second suggestion won't work indeed, i was a bit too fast.

just use this: if me.avalue <> "" then .... or if not me.avalue <> "" then ... this does the same trick, take the one you need :P

Thanks, i'll check it out

Hello, I have a problem when i want to insert a string into a table using SQL Insert Into statement example: set db = currentdb() set rs = db.openrecordset(AnSQLstr, dbopensnapshot,dbfailonerror) rs .... .... 'examplefield: RS!afield has this string = "an example that has an ' inside" when i...

Do you mean something like this: Dim StrSN As String StrSN = "CN-0T6116-71618-123-A2C3" 'or a me.the_serial_txt_box If Left(StrSN, 2) = "CN" Then If Not Len(StrSN) = 24 Then MsgBox ("Invalid serial")if the serial begins with CN then check if the length is 24, if not then warn the tech.

i've tried that, does'nt work, I get the same error 3151 :s even tried dsn=;DRIVER=.... but doesn't work either. It's just strange, when i input a ODBC system dsn to an informix server, and i delete it immediately after i created it. it will work (also if no static dsn is setted...

Hi, I'm working with an Informix 3.32 32 BIT dbserver and want to connect my pass trough queries dsnless by setting the .connect parameter in the querydefs. here's my odbc connection method (with pass-trough queries). I have one table in my Mdb file with the diffrent connect type's (to...

Use this code to be sure it's maximized: ... wordapp.Documents.Parent.Visible = True wordapp.Application.WindowState = 1 ' or wdWindowStateMaximize wordapp.ActiveWindow.WindowState = 1 ' or wdWindowStateMaximize AppActivate "Microsoft Word" ...

I know its not the best way to do it, i use this method in access to undo. Users can not edit records until the user saved or clicked on undo on the headform (custom build function) So when an other users access the same record and presses the edit record button i've made they get a msgbox that...

In bound forms: Use global arrays(x,y) (for each form) where you temporarly dump the current record data in on change event. Now when you edit some fields in the subform, and you go back to your headform (setfocus w. mouse or code) access will save the record you changed, but the old value is...

i'm using a button with width & height = 0 and transparent button style atm. works the same as your solution. A text box would indeed be better to use sometimes, I'll keep that in mind. I'm already using global declarations instead. I was just curious if there's any other solution for this :(

hello, i've searched this forum for a sollustion but didn't find any. Here's my problem and some info about the actions: 1 - I have a continuous subfrm called 'FrmHfdPersUit' that has 2 buttons 'nieuw' (on subfrmheader) and 'bewerk' (in cont.form) and some textboxes which can not be selected...

Private Sub Button1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Screen.MousePointer = 11 'or 0,1,3,7,9 Me.TimerInterval = 500 End Sub Private Sub Form_Timer() Screen.MousePointer = 0 Me.TimerInterval = 0 End Sub is it this what you need?