Just nu i M3-nätverket
Gå till innehåll

Hur fasiken...


Ech

Rekommendera Poster

hm.. jag tog bort kryssrutan som strulade, men då krånglar en textruta istället, det verkar som den datan som ligger precis för grupprutans kryssrutor får fnatt..?

 

Länk till kommentar
Dela på andra webbplatser

Låter otroligt märkligt... Kan tyvärr inte komma på vad som krånglar.

det verkar som den datan som ligger precis för grupprutans kryssrutor får fnatt

Hur menar du?

 

/OZn

_______________________________________________________

Microchips - De små potatisflingorna du äter allra sist i chipspåsen

 

Länk till kommentar
Dela på andra webbplatser

Om du tittar på den sqltexten ovanför, så är Me.kralternativ en fristående kryssruta och den ligger före Me.krMiljo som är den första kryssrutan i grupprutan, när jag kör sqltexten så blir felmeddelandet för KrAlternativ:Det går inte att hitta metoden eller datamedlen.

Tar jag bort den kryssrutan så får nästa alltså Me.tbNoteringar samma felmeddelande ...skumt

Jag har lagt till .OptionValue både i egenskapen för kryssrutan och i sqltexten..

 

Länk till kommentar
Dela på andra webbplatser

knåpade lite och testade att registrera en utb. utan att kryssa i grupprutan, då kommer msgboxen upp och säger "välj inriktning" men när jag klickar OK på den rutan så kör han hela queryn utan registrera någonting, borde det inte vara så att man fick ett försök till att gå tillbaka och fylla i vald kryssruta..?

 

if gr.Value = 0 Then

Msgbox "Välj inriktning"

else

' Här lägger du raderna som spar ner allt till databasen

end if

 

Länk till kommentar
Dela på andra webbplatser

OZn...

Tack för hjälpen, jag fick till slut fason på grupprutan, men hamnade inför ett annat problem som gör att det inte fungerar..

 

Så här är det:

 

efter jag klickat på sparaknappen och jag inte valt någon inriktning via grupprutan så får jag upp msgboxen, när jag klickar på OK så snurrar det vidare till End Sub.

och då är det meningen att man ska vara kvar i formuläret och det man fyllt i ska finnas kvar, alltså bara att kryssa i sin kryssruta för inriktning.

problemet är att sist i suben så har jag stängning och öppning av formuläret pga att det är ett lösenordskydd på sparaknappen. vilket gör att formuläret är tomt på data när jag klickat på OK

 

Jag klickar på en knapp- anger lösenord- och får upp sparaknappen- för att inte sparaknappen ska vara synlig när man registrerat en utb. så stänger och öppnar jag formuläret...

 

förstår du mitt problem

 

Länk till kommentar
Dela på andra webbplatser

Posta all kod som står i din knapp för spara. Är det mycket kod kan du posta inom LOG-taggar...

 

/OZn

_______________________________________________________

Microchips - De små potatisflingorna du äter allra sist i chipspåsen

 

Länk till kommentar
Dela på andra webbplatser

Här kommer den.

 

[log]Private Sub btLagraPost_Click() ' Kontrollera att nödvändig info är ifylld

Dim Sektion, Utbildning, Plats, SQLTest As String

 

If Me.lbOmr <> "" Then GoTo Vidare 'And Me.lbSektion <> ""

MsgBox "För att kunna lagra en post måste" & vbCrLf & _

"Affärsområde och Enhet väljas."

Exit Sub

Vidare:

If Me.cbNamn <> "" Then GoTo Nästa

MsgBox "För att kunna lagra en post måste" & vbCrLf & _

"Namn väljas från listan."

Exit Sub

Nästa:

If ((Me.tbSektion) = "" Or IsNull(Me.tbSektion)) And IsNull(Me.lbSektion) Then ' Om ingen Sektion registrerats

MsgBox "Enhet måste väljas från listan eller " & vbCrLf & "skrivas in i textrutan Enhet."

Exit Sub

End If

 

If ((Me.tbDatum) = "" Or IsNull(Me.tbDatum)) Then ' Om ingen Datum registrerats

MsgBox "Datum när kursen gick måste fyllas i."

Exit Sub

End If

 

If ((Me.tbUtbildning) = "" Or IsNull(Me.tbUtbildning)) And IsNull(Me.lbUtbildning) Then ' Om ingen Utbildning registrerats

MsgBox "Utbildning måste väljas från listan eller " & vbCrLf & "skrivas in i textrutan Utbildning."

Exit Sub

End If

 

 

If IsNull(Me.tbSektion) Or Me.tbSektion = "" Then 'Om inte Sektion valts från listan

Ny = 0

Else

Ny = 1

End If

Sektion = Me.lbSektion & Me.tbSektion

 

Utbildning = Me.lbUtbildning 'För att få ett värde på Utbildning att sätta in i tUnika_komb

 

If IsNull(Me.tbUtbildning) Or Me.tbUtbildning = "" Then 'Om inte Utbildning valts från listan

Ny = Ny + 0

Utbildning = Me.lbUtbildning

Else

Utbildning = Me.tbUtbildning & Me.lbUtbildning

Ny = Ny + 1

End If

'Skapa en ny post i tUnikaKomb

 

If Ny > 0 Then

Sqltext = "INSERT INTO TUnika_Komb " & _

"(Omr, Sektion, Utbildning) VALUES ('" & _

Me.lbOmr & "','" & Sektion & "','" & Utbildning & "')"

'Stop

DoCmd.RunSQL Sqltext

End If

If IsNull(Me.tbNastaDatum) Then 'För att kontrollera att inga tomma fält skrivs till tabellen

Me.tbNastaDatum = "0" 'Fyller i med default 0

End If

If Me.tbNastaDatum = "" Then

Me.tbNastaDatum = "0"

End If

 

If IsNull(Me.tbNoteringar) Then 'För att kontrollera att inga tomma fält skrivs till tabellen

Me.tbNoteringar = "Inget att tillägga" 'Fyller i med lite autotext om man inte orkar skriva något

End If

If Me.tbNoteringar = "" Then

Me.tbNoteringar = "Inget att tillägga"

End If

 

If IsNull(Me.tbTim) Then 'För att kontrollera att inga tomma fält skrivs till tabellen

Me.tbTim = "8" 'Fyller i med default 1 dagars utbildning

End If

If Me.tbTim = "" Then

Me.tbTim = "8"

End If

 

If IsNull(Me.kralternativ) Then Me.kralternativ = 0 'Klargör ett värde för kryssrutorna, om ingen rört dom.

 

 

If grTyp.Value = 0 Then

MsgBox "Välj inriktning"

Else

 

 

'Spara post till tUtbildning

Plats = DLookup("Komb_ID", "tUnika_Komb", "Omr='" & Me.lbOmr & "' AND Sektion ='" & Sektion & "' AND Utbildning='" & Utbildning & "'")

Sqltext = "INSERT INTO tUtbildning " _

& "(Datum, NastaDatum, Komb_Id, Noteringar, Repeteras, Miljo, Sakerhet, Annan, Miljon, Kvalite, Tim, Namn ) VALUES (#" _

& Me.tbDatum & "#,'" & Me.tbNastaDatum & "'," & Plats & ",'" & Me.tbNoteringar & "','" _

& Me.kralternativ & "','" & Me.krMiljo.OptionValue & "','" & Me.krSakerhet.OptionValue & "','" & Me.krAnnan.OptionValue & "','" & Me.krMiljon.OptionValue & "','" & Me.krKvalite.OptionValue & "','" & Me.tbTim & "','" & Me.cbNamn & "')"

 

DoCmd.RunSQL Sqltext

End If

Rensa Inmatningsfält

With Me.lbOmr

.RowSource = _

"SELECT DISTINCT Omr FROM tUnika_Komb " & _

"WHERE Omr is not null"

.Requery

End With

With Me.lbSektion

.RowSource = ""

.Requery

End With

With Me.lbUtbildning

.RowSource = ""

.Requery

End With

Me.tbSektion = ""

Me.cbNamn = ""

Me.tbUtbildning = ""

Me.cbOrsak = ""

Me.tbNoteringar = ""

Me.tbNastaDatum = ""

Me.tbTim = ""

Me.tbDatum = ""

Me.krAnnan = ""

Me.krMiljo = ""

Me.krKvalite = ""

Me.krMiljon = ""

Me.krSakerhet = "" 'stänger och öppnar formuläret för att dölja "spara knappen"

DoCmd.Close acForm, "fRegistrering", acSaveYes

DoCmd.OpenForm "fRegistrering"

End Sub[/log]

 

Länk till kommentar
Dela på andra webbplatser

Kollade lite snabbt och det jag ser på en gång är att du måste ha koden för att rensa inmatningsfälten efter att du kört din sql-query. Flytta bara ner End if (den if-satsen som kollar att grupprutan är ifylld alltså) så den ligger före End Sub så borde det fungera...

 

/OZn

_______________________________________________________

Microchips - De små potatisflingorna du äter allra sist i chipspåsen

 

[inlägget ändrat 2004-09-17 18:44:54 av OZn]

Länk till kommentar
Dela på andra webbplatser

Vad har du alternativnummer i kryssrutorna? Högerklicka på alla kryssrutor i gruppen och välj egenskaper för att kolla.

 

/OZn

_______________________________________________________

Microchips - De små potatisflingorna du äter allra sist i chipspåsen

 

Länk till kommentar
Dela på andra webbplatser

Hmm, ingen aning vad det kan vara för knas. Prova ta bort hela grupprutan och lägg in den på nytt...

 

/OZn

_______________________________________________________

Microchips - De små potatisflingorna du äter allra sist i chipspåsen

[inlägget ändrat 2004-09-19 00:17:38 av OZn]

Länk till kommentar
Dela på andra webbplatser

Mycket konstigt..

när jag använder kommandot Stop direkt innan "DoCmd.RunSQL Sqltext"

och jag har bockat i en av rutorna i grupprutan, ja då har varje kryssruta fått ett värde mellan 1-5

spelar ingen roll att jag tog bort grupprutan och gjorde en ny, det blir samma fenomen?

 

nått tips OZn ?

 

Länk till kommentar
Dela på andra webbplatser

Är det samma kod du postade tidigare, eller har du ändrat något i den? Om det är ändrad kan du väl posta den igen.

 

/OZn

_______________________________________________________

Microchips - De små potatisflingorna du äter allra sist i chipspåsen

[inlägget ändrat 2004-09-19 12:53:44 av OZn]

Länk till kommentar
Dela på andra webbplatser

Sätt en breakpoint (eller Stop) i början av koden i knappen och stega igenom (med F5) rad för rad så bör du i alla fall se på vilken rad alla blir markerade.

 

/OZn

_______________________________________________________

Microchips - De små potatisflingorna du äter allra sist i chipspåsen

 

Länk till kommentar
Dela på andra webbplatser

det verkar som om dom får sitt värde direkt, känns som någon default value som gör att varje kryssruta får sitt alternativvärde satt direkt oavsett om rutan är ikryssad eller inte...

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...