haster....

If rslink <> null Then

Njet...

rslink skal stå som rs!link da det er et recordset.

hvis jeg skriver det som du siger finder den ingen variabel....

laver jeg en debug på scriptet får jeg orindeligt også vist at minvalue i rs!link = blabla og cursere viser også at null = null men den hopper i scriptet ti else funktionen..

her er hele scriptet :

Private Sub Form_Open(Cancel As Integer)
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset(\"URL\")
If rs!link <> Null Then
DoCmd.Close
DoCmd.OpenForm \"Fstart\"
Else
DoCmd.Maximize
End If
End Sub

Skal det ikke være rs(\"link\") hvis det er fra en database ? ! har jeg aldrig set før.

If rs!link <> null Then

Før sagde du jo \"Hvis det er forkert at rs!link ikke er null, så...\"

hm.. det er også det du har i scriptet... er du sikker på du selv har styr på hvad du mener? ;-)

<> betyder \"forskellig fra\"... er det muligt du faktisk mener det modsatte?

JEg hr som du kan se mugge i mellemtiden i min kommentar prøvet dit forslag... virker ikke desværre..

selvom rs!link er forskellig fra null hopper scriptet til else funktionen, hvorfor jeg regner med at det er i min def. af dette der går noget galt...

har du prøvet med
If IsNull(rs!link) = false Then
?

returnerer false...
hvis jeg skriver
If IsNull(rs!link) = true Then
returnerer den bare true.

Jeg har snart prøvet alverdens muligheder men intet synes at lykkedes... derfor efterlyser jeg et script der vides at virke...

if rs!link <> \"\" and rs!link <> 0 then

Der er jo nok en forklaring på hvorfor dette ikke virker, men giv mig den lige :-)

- Mikker

forklaringen kan jeg ikke givedig da det netop er den jeg søger LOL...

den hopper stadig til else funktionen...

Eller hvad med dette:

Set rs = CurrentDb.OpenRecordset(\"URL\")
If rs!link = Null Then
DoCmd.Maximize
Else
DoCmd.Close
DoCmd.OpenForm \"Fstart\"
End If
End Sub

Nåj hvor er det bare alt for længe siden jeg har programmeret :-(
Man glemmer godt nok hurtigt synes jeg :-(

- Mikker

du tror det er løgn men den gør det stadig...

forpulede lorteprogram...!!!!!

if isnull(rs!link) then
docmd.maximize
else
docmd.close
....

ifølge min bog skulle det jo virke :-)

- Mikker

ALT kan repareres med en hammer :-)

- Mikker

Det der ! giver mig altså myrekryb.
Jeg er måske nok mere håbløst bagud end jeg havde regnet med :-)

- Mikker

så virker det sku...

vil du have point må du svare ...

her er til alles information scriptet som det skal se ud...

Private Sub Form_Open(Cancel As Integer)
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset(\"URL\")
If IsNull(rs!link) Then
DoCmd.Maximize
Else
DoCmd.Close
DoCmd.OpenForm \"Fstart\"
End If
End Sub


\" utroligt hvor lidt der skal til før læsset vælter\"

Hvis du mener min indsats her været det værd :-)

- Mikker

Mikker :
det med hammeren var tæt på....nogle gange er der bare ikke en meter logik i det hele...

hvad mener du ! giver dig myrekryb... det jeg synes ofte er forvirrende er at man ikke helt eksakt ved hvornår man skal anvende \"\" eller ej om en tabel, text eller lign. samt [] om en tabel istedet for (). samt det at der i nogle tilfælde skal anvendes . istedet for ! og omvendt.

I allerhøjeste grad...

du løste jo mit STORE problem...LOOL

Held og lykke med det fremover :-)

- Mikker