/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Data Control
Fra : Ole J. Hansen


Dato : 18-01-09 22:16

Hej her i gruppen.

Først tak til dem der forsøgte at hjælpe mig da jeg var langt fra hjemmet,
men nu er jeg kommet hjem, og ønsker her at lave lidt i VB6.0
Det er godt nok nogle år siden jeg sidst var i gang med det, og derfor er
er meget der er "smuttet"
Jeg har en form, hvor jeg har lagt en data control, den har godt fat i min
database, på formen har jeg 4 stk. navigationsknapper, her kommer
problemet, når jeg bevæger mig til post 1 og forsøger at køre videre den
vej,
så var det jeg skulle have fat i noget med BOF, og når jeg kører til den
sidste
og en blank og videre, så var der noget med EOF, men hvad var det lige?
Koden:
' Her er det formentlig BOF der er problemet.
Private Sub Command_Click()
Musik.Recordset.MovePrevious
End Sub

' Og problemet med EOF
Koden er næsten den samme men det er naturligvis med
MoveNext.

M.v.h.
Ole


 
 
Gert Krabsen (19-01-2009)
Kommentar
Fra : Gert Krabsen


Dato : 19-01-09 08:04

Ole J. Hansen skrev:
> Hej her i gruppen.
>
> Først tak til dem der forsøgte at hjælpe mig da jeg var langt fra hjemmet,
> men nu er jeg kommet hjem, og ønsker her at lave lidt i VB6.0
> Det er godt nok nogle år siden jeg sidst var i gang med det, og derfor er
> er meget der er "smuttet"
> Jeg har en form, hvor jeg har lagt en data control, den har godt fat i min
> database, på formen har jeg 4 stk. navigationsknapper, her kommer
> problemet, når jeg bevæger mig til post 1 og forsøger at køre videre den
> vej,
> så var det jeg skulle have fat i noget med BOF, og når jeg kører til den
> sidste
> og en blank og videre, så var der noget med EOF, men hvad var det lige?
> Koden:
> ' Her er det formentlig BOF der er problemet.
> Private Sub Command_Click()
> Musik.Recordset.MovePrevious
> End Sub

Nu glemmer du at skrive, hvad der rent faktisk sker, når du fra første
post klikker <Tilbage>, men et skud fra hoften:

Private Sub Command_Click()
If not musik.recordset.eof() then
   Musik.Recordset.MovePrevious
else
msgbox " Du står på første record"
endif
End Sub

>
> ' Og problemet med EOF
> Koden er næsten den samme men det er naturligvis med
> MoveNext.
>

Ditto do..

Ole J. Hansen (19-01-2009)
Kommentar
Fra : Ole J. Hansen


Dato : 19-01-09 14:17

Hej
Først tak til Gert, du gættede naturligvis rigtigt, og JA da jeg så din
kode,
da sagde jeg også naturligvis var det lige det der skulle stå.

Men kan det være rigtigt, at jeg både ved første og sidste post, skal vise
en form. hvor der ingen post er, altså sidste post - <tryk igen> så en tom
post - <tryk igen> og så kommer MsgBox og fortæller, at jeg står på sidste
post.

m.v.h.
Ole J. Hansen
"Gert Krabsen" <fjernkrabsen@fjernkrabsenfjern.dk> skrev i meddelelsen
news:497423e0$0$90274$14726298@news.sunsite.dk...
> Ole J. Hansen skrev:
>> Hej her i gruppen.
>>
>> Først tak til dem der forsøgte at hjælpe mig da jeg var langt fra
>> hjemmet,
SNIP
>
> Nu glemmer du at skrive, hvad der rent faktisk sker, når du fra første
> post klikker <Tilbage>, men et skud fra hoften:
>
> Private Sub Command_Click()
> If not musik.recordset.eof() then
> Musik.Recordset.MovePrevious
> else
> msgbox " Du står på første record"
> endif
> End Sub
>
>>
>> ' Og problemet med EOF
>> Koden er næsten den samme men det er naturligvis med
>> MoveNext.
>>
>
> Ditto do..


Gert Krabsen (19-01-2009)
Kommentar
Fra : Gert Krabsen


Dato : 19-01-09 16:40

Ole J. Hansen skrev:
> Hej
> Først tak til Gert, du gættede naturligvis rigtigt, og JA da jeg så din
> kode,
> da sagde jeg også naturligvis var det lige det der skulle stå.
>
> Men kan det være rigtigt, at jeg både ved første og sidste post, skal vise
> en form. hvor der ingen post er, altså sidste post - <tryk igen> så en tom
> post - <tryk igen> og så kommer MsgBox og fortæller, at jeg står på sidste
> post.


Nej da Msgbox var kun indsat til dit eget brug, så du kan se, om
betingelsen er opfyldt. Over for brugeren kan det f.eks. se sådan ud:

If not musik.recordset.bof() then
   Musik.Recordset.MovePrevious
else
   ' flyt til første record, bare for en sikkerheds skyld
   Musik.recordset.movefirst   
endif


Hvis der skal være mulighed for, at brugeren tilføjer nye records,
bliver det noget i retning af

If not musik.recordset.eof() then
   Musik.Recordset.MoveNext
else
   if msgbox("Du har nået den sidste i rækken. Ønsker du at tilføje en
post",vbYesNo) = 6 then
      ..her kommer din kode til at indsætte en ny post
   else
      ' flyt til sidste record, bare for en sikkerheds skyld
      Musik.recordset.movefirst   
   endif
endif
















> m.v.h.
> Ole J. Hansen
> "Gert Krabsen" <fjernkrabsen@fjernkrabsenfjern.dk> skrev i meddelelsen
> news:497423e0$0$90274$14726298@news.sunsite.dk...
>> Ole J. Hansen skrev:
>>> Hej her i gruppen.
>>>
>>> Først tak til dem der forsøgte at hjælpe mig da jeg var langt fra
>>> hjemmet,
> SNIP
>>
>> Nu glemmer du at skrive, hvad der rent faktisk sker, når du fra første
>> post klikker <Tilbage>, men et skud fra hoften:
>>
>> Private Sub Command_Click()
>> If not musik.recordset.eof() then
>> Musik.Recordset.MovePrevious
>> else
>> msgbox " Du står på første record"
>> endif
>> End Sub
>>
>>>
>>> ' Og problemet med EOF
>>> Koden er næsten den samme men det er naturligvis med
>>> MoveNext.
>>>
>>
>> Ditto do..
>

Ole J. Hansen (20-01-2009)
Kommentar
Fra : Ole J. Hansen


Dato : 20-01-09 22:17

Hej her igen
Igen tak Gert, det du skrev virker helt perfekt, og du har jo ret, at
MsgBoxen
kun er til orientering, men det er nu ikke så tosset med sådan en besked.
Mange tak for hjælpen.

m.v.h.
Ole
"Gert Krabsen" <fjernkrabsen@fjernkrabsenfjern.dk> skrev i meddelelsen
news:49749ce1$0$90273$14726298@news.sunsite.dk...
> Ole J. Hansen skrev:
>> Hej
>> Først tak til Gert, du gættede naturligvis rigtigt, og JA da jeg så din
>> kode,
>> da sagde jeg også naturligvis var det lige det der skulle stå.
>>
>> Men kan det være rigtigt, at jeg både ved første og sidste post, skal
>> vise
>> en form. hvor der ingen post er, altså sidste post - <tryk igen> så en
>> tom
>> post - <tryk igen> og så kommer MsgBox og fortæller, at jeg står på
>> sidste
>> post.
>
>
> Nej da Msgbox var kun indsat til dit eget brug, så du kan se, om
> betingelsen er opfyldt. Over for brugeren kan det f.eks. se sådan ud:
>
> If not musik.recordset.bof() then
> Musik.Recordset.MovePrevious
> else
> ' flyt til første record, bare for en sikkerheds skyld
> Musik.recordset.movefirst endif
>
>
> Hvis der skal være mulighed for, at brugeren tilføjer nye records, bliver
> det noget i retning af
>
> If not musik.recordset.eof() then
> Musik.Recordset.MoveNext
> else
> if msgbox("Du har nået den sidste i rækken. Ønsker du at tilføje en
> post",vbYesNo) = 6 then
> ..her kommer din kode til at indsætte en ny post
> else
> ' flyt til sidste record, bare for en sikkerheds skyld
> Musik.recordset.movefirst endif
> endif
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>> m.v.h.
>> Ole J. Hansen
>> "Gert Krabsen" <fjernkrabsen@fjernkrabsenfjern.dk> skrev i meddelelsen
>> news:497423e0$0$90274$14726298@news.sunsite.dk...
>>> Ole J. Hansen skrev:
>>>> Hej her i gruppen.
>>>>
>>>> Først tak til dem der forsøgte at hjælpe mig da jeg var langt fra
>>>> hjemmet,
>> SNIP
>>>
>>> Nu glemmer du at skrive, hvad der rent faktisk sker, når du fra første
>>> post klikker <Tilbage>, men et skud fra hoften:
>>>
>>> Private Sub Command_Click()
>>> If not musik.recordset.eof() then
>>> Musik.Recordset.MovePrevious
>>> else
>>> msgbox " Du står på første record"
>>> endif
>>> End Sub
>>>
>>>>
>>>> ' Og problemet med EOF
>>>> Koden er næsten den samme men det er naturligvis med
>>>> MoveNext.
>>>>
>>>
>>> Ditto do..
>>


Søg
Reklame
Statistik
Spørgsmål : 177549
Tips : 31968
Nyheder : 719565
Indlæg : 6408820
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste