![]() |
|
|
|||||||
| .NET I detta forum diskuteras ämnen som berör .NET-plattformen, bland annat asp.net. |
![]() |
|
|
Trådverktyg | Visningsalternativ |
|
|
#1 |
|
Medlem
Registrerad: 2006-03-20
Inlägg: 191
Lösningar: 0 |
script i access
hej!
är det någon som vet hur man skriver ett script som gör att när man trycker på en knapp i accessen så öppnas en websida?? |
|
|
|
|
|
#2 |
|
Medlem
Registrerad: 2001-08-29
Ort: Stockholm
Inlägg: 1 172
Lösningar: 8 |
om du med accessen menar Microsoft Access så kanske det här kan fungera http://www.developerbarn.com/microso...-web-page.html
__________________
Du vet att staten har rätt att se dig; men du har ingen aning om vem som är staten imorgon! FRA åt helvete, ACTA er, lämna folk IPRED. ̿̿'̿'\̵͇̿̿\з=(•̪●)=ε/̵͇̿̿/'̿'̿ ̿ |
|
|
|
|
|
#3 |
|
Medlem
Registrerad: 2006-03-20
Inlägg: 191
Lösningar: 0 |
ja, men en dum fråga hur får jag fram så att sidan öppnas med rätt id, har skrivt så här, gick inte sätta in något i Private Sub Kommandoknapp173_Click():
Private Sub Kommandoknapp173_Click() Dim varURLValue As String Dim varURL As String ' Set the variable from a textbox on the form varURLValue = "" varURLValue = pID ' Set equal to URL with PID variable varURL = "" varURL = "http://www.test.com.accept.asp?pID=" & varURLValue & "" MsgBox varURL Set browser = CreateObject("InternetExplorer.Application") browser.Navigate (varURL) browser.StatusBar = False browser.Toolbar = False browser.Visible = True browser.Resizable = False browser.AddressBar = False ' Clear variables varURLValue = "" varURL = "" End Sub |
|
|
|
|
|
#4 |
|
Forumvärd
Registrerad: 2003-08-26
Inlägg: 6 519
Lösningar: 564 |
Flyttas från Script - Övrigt
|
|
|
|
|
|
#5 |
|
Medlem
Registrerad: 2006-03-20
Inlägg: 191
Lösningar: 0 |
var har den flyttats till då?
|
|
|
|
|
|
Markerad som löst av annasmurf #6 |
|
Medlem
Registrerad: 2001-11-19
Ort: Kalix
Inlägg: 3 419
Lösningar: 42 |
Programmering > Visual Basic
Har den flyttats till. Och för att få in värdet, måste du hämta det från någonstans. Om värdet finns i en textbox, så tror jag man kan nå det via: Kod:
Dim varUrl As String varUrl = textboxnamn.Text
__________________
För lata svin är marken alltid frusen.. Don't try to fix your linux system without knowing where your towel is. It is useful for three things 1. Muffling screams of frustration 2. Covering evidence of your ineptitude 3. Crying into. Ubuntu forums Umbraco é nice. Jag försöker åtminstone.. Ironi är intelligenta människors möjlighet att göra en viktig poäng samtidigt som man har lite kul. Senast redigerad av Fredde Mannen, 2008-06-10 klockan 08:20 |
|
|
|
![]() |
| Trådverktyg | |
| Visningsalternativ | |
|
|