hjælp giga prob acces og netværk

..."og det kan man jo ikke." !!
Why not?

You must explain more precisely what the problem is!

There should be NO problem using Access on a network but you obvioulsy need permissions to use the database

der kan kun være en der har databasen åben af gangen.. det er faktisk hoved problemet..

eller gemme nogle af dataerne i en anden database. som hedder noget helt andet.

"der kan kun være en der har databasen åben af gangen.."

Hvorfor?

Jeg har mange Access på netværk, og det kører perfekt.

Du kan evt. benytte frontend / backend. Det hedder også databaseopdeling, og der liger en guide i Access der gør det for dig.

kan du være lidt mere præsis hvor den guide ligger. så er der 200 point til dig :D

Funktioner > Databasefunktioner > Databaseopdeling.

Men tag en backup af din db først og læg den i nederste skuffe mens du opdeler.

Men du kna også gøre det selv. Det er faktisk enkelt:

Tag en kopi af din db og læg den på et drev, som kan læses af alle arbejdsstationer. Dette bliver din bsckend. I denne backend sletter du nu alle forespørgsler, formularer, makroer, moduler og rapporter.

Tag en ny kopi af db og læg den på dit C-drev. dette bliver din Frontend. I denne frontend sletter du alle tabeller og kun tabeller. Gå i menuen Filer > Hent eksterne data > Sammenkæd og browse ned gennem dien biblioteker til du finder din backend. Vælg fanen tabeller > Marker alt > OK. Din frontend vil nu sammenkæde til tabellerne i backend.

Tag en kopi af din frontend og læg den på alle arbejdsstationernes C-drev.

Ved at benuytte denne fremgangsmåde, skal du kun hente data over netværk. Det sparer en del netværkstrafik.

Prøv feks. at højreklikke på access ikonet og vælg properties, derefter security og vælg everyone

What error do you get if more than one person tries opening the database?

If you are opening the dB exclusive then only one person can have it opened.

In the menu Tools/Options then select the Advanced Tab and make sur ethat "DEfault Open Mode" is set to Shared

terry > Good point. Dette skal naturligvis være iorden, ellers nytter alt andet jo ikke :o)

Normally this should be no problem as Shared is default

mugs det funkede.. takker point til dig

har lige et spørgsmål mere.
vis jeg skal have den til at lave en udskrift via
DoCmd.OpenReport "timeseddel", acViewacviewnormal, , "Bruger = 'KA'"
hvor den bare tager alle som står i en tabel der hedder bruger. ?

og skal tages efter en uge indtastning der selve feltet som man skriver det i hedder cmboUge

Tak for point.

Udskriver rapporten "timeseddel", hvor tabellen Tabel2 flet bruger er = KA:

DoCmd.OpenReport "timeseddel", acViewPreview, "", "[Tabel2]![bruger]='KA'", acNormal

Hvis du vil referere til formularen's felt:

DoCmd.OpenReport "timeseddel", acViewPreview, , "[Tabel2]![bruger] = '" & Me!cmboUge & "'"

den ber om intast parameterværdi
for bruger!bruger

Splitting the dB into a front-end and back-end is always a good idea, but I dont think that was the problem, although doing so solved your problem.

lasraven: I hvilken af koderne?

jeg fandt ud af prob. :) fejlen lå i min rapport :) så takker

Fint det blev løst.

sorry. men havde ikke lige opdaget at repporten er tom. når jeg trykker på udskriv
bruger denne her formel
DoCmd.OpenReport "timeseddel", acViewPreview, , "[bruger]![bruger] = '" & Me!cmboUge & "'"

Hvis du risikerer at rapporten er tom, kan du indsætte en hændelsesprocedure i rapportens egenskab "VedIngenData". F.eks.:

Msgbox "Der er ingen der matcher de indtastede kriterier"
docmd.cancelevent

Du vil så få en runtime error i formularen, idet kommandoen openreport ikke lykkedes. Det kommer du ud over således:

Onerror go to errorhandler
DoCmd.OpenReport "timeseddel", acViewPreview, , "[bruger]![bruger] = '" & Me!cmboUge & "'"
errorhandler:
if err.number = 2501 then
resume next
end if

Jeg mener det er err.number 2501, ellers blot ret det til den rigtege number.

Private Sub Kommandoknap2_Click()

 
    DoCmd.OpenReport "timeseddel", acViewPreview, , "bruger = '" & Me!cmboUge & "'"
    MsgBox "Der er ingen der matcher de indtastede kriterier"
    DoCmd.CancelEvent
   
    Onerror go to errorhandler
   
    DoCmd.OpenReport "timeseddel", acViewPreview, , "[bruger]![bruger] = '" & Me!cmboUge & "'"
errorhandler:
    If Err.Number = 2501 Then
Resume Next
End If

    End Sub

sådan der funker det ihvertfald ikke :(

jeg får ikke nogen fejl kode... :(

ved brug af denne her
Msgbox "Der er ingen der matcher de indtastede kriterier"
docmd.cancelevent

OK - Bare det fungerer :o)

jamen det fungere jo ikke :D

Sorry - misforstået. Prøv denne:

On error goto errorhandler
DoCmd.OpenReport "timeseddel", acViewPreview, , "bruger = '" & Me!cmboUge & "'"
errorhandler:
If Err.Number = 2501 Then
MsgBox "Der er ingen der matcher de indtastede kriterier"
Resume Next
End If
End Sub

funker stadig ikke kan jeg evt sende det til dig. så du lige kan se det. ???

Ja - Det kører sgu fint idag. Dette fungerer:

Indtast dette i rapportens VedIngenData:

MsgBox "Der er ingen data der matsvher kriterierne."
DoCmd.CancelEvent

og denne udskrivningskommando i formularens knap:

On Error GoTo errorhandler
DoCmd.OpenReport "timeseddel", acViewPreview, "", "[Tabel2]![bruger]='K'", acNormal
errorhandler:
If errorhandler = 2501 Then
Resume Next
End If

Og så vil jeg beskæftige mig med noget andet resten af dagen. Det er alle parter vist bedst tjent med. God wekend til alle.

Du må gerne sende til:

mugs@mail.dk

Så vil jeg se på det iaften. I øjeblikket skal jeg lige være færdig i haven.