I am trying to code in VBA a simple routine to copy selected cells in one workbook to selected cells in another. The routine is working but the copied data is displayed as #REF instead of numbers. Both Workbooks are formatted exactly the same. The Code is contained in a user form in Target...
Is the Listnames listbox MultiSelect ?
Yes.
Is the Lectures control holding the table field name ?
Yes - you select one field from a field list in the Lectures list box
Is this SQL created dynamically ? (I hope so)
Yes, it is created through design query. That is what it looks like in sql...
PHV - the training table consists of the students personal details plus a check box for each of the nominated training lectures.
When I say Correct records I mean that when a number of names are selected in one list box and a field checkbox selected in the second list box where the checkbox is...
I have training table which displays training lectures attended by students i.e. each subject has a check box associated with it.
Problem:
I want to be able to select a checkbox field from a lisbox set to list each checkbox field and display corresponding records selected in another list box...
Don't think you can do this even if you 'joined' the secured MDW.
Why not just open another blank database, import all the tables, forms, queries etcetera from the original one and redesign that one?
G.
...as an unbound text box. You can name this box anything you like but let us call it Calculate. Set the Control property of this box to: = [Length] * [Width]
This box will now do the calculation for the area of the rectangle.
At this point when you enter data nothing happens except that the...
Try Using:
************************************************************
Private Sub (YourTextboxname)_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8 ' backspace/delete
' always allow this key
Case 9 To 34
Case 36 To 255
Case 48 To 57 ' Asc("0") to Asc("9")...
It won't - you need to put the code in the After_Update
event of the Score6 field...
this way what happens is;
The hidden box calculates on the fly the total score when you enter a number in to the Score1 thru Score6 fields as this happens the Score6 After_Update event fires, reads the value...
Private Sub wside_AfterUpdate()
Me.TotalScore.Locked = False
Me.TotalScore = Me.Calctotscore
Me.TotalScore.Locked = True
End Sub
Should read:
Private Sub Score6_AfterUpdate()
Me.TotalScore.Locked = False
Me.TotalScore = Me.Calctotscore
Me.TotalScore.Locked = True
End Sub
Sorry
G.
...in this field to =[Score1] + [Score2] +[Score3] + [Score4] + [Score5] + [Score6]
Then in the [Score6] field set the After_Update property code to:
************************************************************
Private Sub Score6_AfterUpdate()
Me.TotalScore = Me.Calctotscore
End Sub...
...On the form create the three bound text boxes.
Create a fourth text box and name it Calculate (for instance)
Set this data control to: = [Length] * [Width]
Then in the Width field set the After_Update property code to:
************************************************************
Private...
Hmmm, I think I know what you are trying to achieve here.
Try this:
Private Sub CurrentlyWith_Event(Cancel As Integer)
If IsNull ([ClosedDate])Then
Me!CurrentlyWith = " "
Else
Me!CurrentlyWith = "CLOSED"
End If
End Sub
Thus when you enter/tab into the CurrentlyWith field...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.