15. oktober 2003 - 15:43
Der er
21 kommentarer og 1 løsning
Lage en ny combobox på en form ved bruk av VBA
Jeg ønsker å lage en ny combobox på en form ved bruk av VBA. Og deretter sette høyde, bredde og koordinater. Er dette mulig ?
Annonceindlæg fra Pax8
15. oktober 2003 - 15:57
#1
jeg ved ikke hvor meget forskel der er på VB og VBA.. men det her virker i VB6: Private Function NewObj(obj As Object, L, T, W, H As Integer, cap As String) As Integer obj.Move L, T, W, H obj.Caption = hula End Function Private Sub Command1_Click() x = NewObj(Command1, 20, 100, 1000, 500, "hello") End Sub
15. oktober 2003 - 15:58
#2
dim strUnderSQL as string strUnderSQL = "SELECT [Underkategori] FROM _Underkategori WHERE Hovedkategori = " & me.comboHovedkategori me.comboUndercategori.RowSource = strUnderSQL me.comboUndercategori.requery
15. oktober 2003 - 16:00
#3
juks> hvad gør det der? det ligner at du henter noget fra en database..?
15. oktober 2003 - 16:12
#4
strUnderSQL = er den sql streng man skal bruge fx strundersql = select * from tabelnavn så vælger den alle poster i tabellen her fortæller vi så at man skal bruge den sql som rowsource me.comboUndercategori.RowSource = strUnderSQL
15. oktober 2003 - 16:13
#5
Men hvordan lager jeg selve comboboxen ?
15. oktober 2003 - 22:02
#6
juks > Jeg skjønner ikke helt...Hvis jeg skal fylle en combobox som heter kombo med data fra en tabell som heter xtra. Hva blir koden da ?
15. oktober 2003 - 22:14
#7
har du en combo boks eller skal du lave den via vba
15. oktober 2003 - 22:15
#8
Jeg har valgt å ikke lage comboboxen via VBA, men jeg trenger å fylle den med alle data i en tabell via VBA..Er dette mulig ?
15. oktober 2003 - 22:17
#9
Jeg har altså en combobox..
15. oktober 2003 - 22:30
#10
strUnderSQL = "SELECT * FROM xtra"
15. oktober 2003 - 22:31
#11
jeg er heller ikke sikker på man kan oprette en ny combo boks i såfald skal du ha fat i terry :-)
15. oktober 2003 - 22:44
#12
Jeg får en feilmelding når jeg kjører dette: dim sSQL as string sSQL = "SELECT * FROM xtra" DoCmd.RunSQL(sSQL) Hvorfor får jeg feilmelding på dette ?
15. oktober 2003 - 22:51
#13
fordi du selecter hvis det fx var en update el delete sql prøv at bruge den som rowsource så virker det
15. oktober 2003 - 22:58
#14
Skal dette da fungere(?): Me.combobox.rowsource = "Select from XTRA"
15. oktober 2003 - 23:01
#15
Det skal være : Me.combobox.rowsource = "Select * from XTRA"
15. oktober 2003 - 23:04
#16
ja plus me.comboUndercategori.requery
15. oktober 2003 - 23:05
#17
jeg mente Me.combobox.requery
15. oktober 2003 - 23:10
#18
Jeg får inn stringen "SELECT * FROM XTRA" i comboboxen, og ikke innholdet i tabellen..Hva er det jeg gjør feil ?
15. oktober 2003 - 23:14
#19
kan du evt sende databasen til mig
15. oktober 2003 - 23:18
#20
hvilken version af access bruger du .. min mail er jhc-it@mail.dk
15. oktober 2003 - 23:42
#21
Mailen er sendt
16. oktober 2003 - 11:15
#22
TUSEN TAKK juks !!! Du er KONGE !!! Jeg skal anbefale deg til alle mine venner !! :D :D :D
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser