8 svar · 298 visningar · startad av Dif4Ever
hej.
Jag har en databas fil (MSACESS)
där ena raden i databas tabellen heter
Namn
och innehåller 10 namn.
och en rad som i databas tabellen heter
telenr
och innehåller 10 telnr
jag har i programmet en Combobox som laddar in alla namnen
och en txtruta där jag vill ha telnr.
hur gör jag för att skriva ut korrekt telnr i textrutan baserat på vilket namn man väljer i combon????
hoppas nån förstår hur jag menar :)
Tacksam för hjälp
Du får allt speca dina tabeller mer för att man ska kunna svara på din fråga.
Varför har du inte både telefonnummer och namn i samma tabell?
....
Set dataBas = OpenDatabase(App.Path & "/Telbok.mdb")
Set namn = dataBas.OpenRecordset("TELE", dbOpenDynaset)
Do Until namn.EOF
Me.cmbNamn.AddItem namn("namn")
namn.MoveNext
Loop
Det skriver ut alla namn från databas som ser ut typ så här
tabell1 tabell2
Namn Telenr
Anna | 12345
Sofia | 67890
Pelle | 01010
osv
det jag då önskar är att jag trycker på låt säga "Sofia"
så skrivs 67890 ut i textrutan. sedan ska man kunna trycka på en knapp och msgbox ska visa tele numret.
den koden kan jag , det är bara det här med databaser som jag försöker lära mig.
Det går inte på det sättet du har valt.
Du måste ha något unikt ID för att databasen ska veta vad du vill ha.
Mitt förslag är att du lägger Namn och Telenr i samma tabell samt lägger till ett ID av typen autonumber.
ADD: På så sätt kan du spara ID:t som key i combolisten och använda det när du ska hämta numret.
...
Hur lägger man till det Id:et??
och ifall man lägger in en funktion i programmet som skriver till databasen, får det ett id då också?
Tack för att du hjälper :)
Du lägger till ID när du skapar tabellen eller ändrar i den i access.
Japp det skapas ett nytt för varje rad.
...
ok... bra :) ...
hur gör jag om jag vill att msgboxen ska skriva ut bara tel nret då och inte namnet???
om nu både namn & telnr , står i samma tabell?
Set namn = dataBas.OpenRecordset("select telenr from TELE where id = " & Me.cmbNamn.key, dbOpenDynaset)
if not namn.eof then
txtruta = namn("telenr")
end if
