So Access definitely does not allow one to set the SizeMode prop thru VBA?
I wonder then why some props can be set and others not.
Thanks anyway, if that's the way to go, then that's the way we'll go!
Regards,
Premy
Hi there,
I have a form with an imageframe and 2 buttons which allow the user to either Clip (Me.Im1.SizeMode = acOLESizeClip) or Stretch (Me.Im1.SizeMode = acOLESizeStretch) the image. In design view SizeMode is set to Clip.
My prob is that when the user clicks Stretch, the image stretches...
How about creating a new table (with an Autonumber field) and append your old data to it with an append query?
http://allenbrowne.com/ser-26.html also might be worth taking a look at.
I'd suggest you first make a backup of your original table... just in case.
HTH
Premy
Took a quick glance and my first impression is that your diag table is liable to give u problems. I see for example, fields diagnosis 1 to 5. What happens if a patient has 6 diagnoses? or 7 or 8? will u simply add these fields as needed? And how about a patient that only has 1 diagnosis? This...
Well the Attended list should definitely be a subform, bound to a table, otherwise your data won't persist. 1 way to achieve what u want is doing a:
Sub btnAdd_Click()
Dim db as DAO.Database
Dim rs as DAO.Recordset
Set db = CurrentDB()
Set rs = db.OpenRecordSet("tblAttended", dbOpenDynaset)...
Well, where do you retrieve the fiscal year's value: is it in another field, is it based on the system date? Does it have the format 2007/2008 or 07/08 or 0708 or whatever? Pls give an example of a few contiguous values for PermitNr.
Regards,
Premy
Well if the field datatype is integer then, the 0 will automatically disappear. If it's text then:
Sub txtNumber_Afterupdate()
Me.txtNumber = Cint(txtNumber)
'Me.txtNumber = Cstr(txtNumber) 'only add this line if the value must remain text data type
End Sub
HTH
Premy
Not sure what yer really after, but if u just want to combine data from different fields in 1 textbox on your form, u could try setting the txtbox control source up like (for example):
=[Id] & " " & [Book] & " " & [Initials]
the fields Id, Book and Initials do not need to be on the form, but...
Well, does the workbook get's opened at least? U may wanna do a test on a shorter path like "C:\test.xls", just to see if this could be an issue with the path.
Well yeah, you'll have to put up some routine to return the value from, let's say cell 1 to cell 1000 on that column, check which is the first empty cell downwards, and use that cell's coordinates in cell filling code.
HTH
premy
How about:
Sub btnXL_Click()
Dim objXL as Excel.Application
Dim objWB As Excel.Workbook
Dim objWS As Excel.Worksheet
Set objXL as New Excel.Application
Set objWB = objXL.Workbooks.Open("C:\MyXl.xls")
Set objWS = objWB.Worksheets("Sheet2")
With objWS
.Cells(1, 1).Value = "Hello"...
Ok, there are quite some remarks to be made about your db and application setup/design, but since I won't have the time to go into a detailded analysis I'll just give u some general hints based upon a quick glance.
1. your tblCourseList should contain only 1 row per course, otherwise you'll end...