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

limpan73

Medlem
  • Antal inlägg

    13
  • Gick med

  • Senaste besök

  1. Efter närmare testning så fungerar det bättre om man byter plats på kodraderna Setfocus och DoCmd.
  2. OK, tror jag har hittat en lösning. Se vba kod nedan.
  3. Provade att lägga in nedan makro vid händelsen Kör vid markering för fältet BatchNumber1, men då får jag felmeddelandet att underformuläret pfrmBonding inte är öppet?! Känns som jag är på rätt spår men att hänvisningen till underformuläret är fel.
  4. Tack Tune, Men grejen är att batchnummerna scannas in via streckkoder där en kolumn (Batchnummerfält) i taget ska fyllas på i formuläret. Man ska alltså inte behöva att tabba, utan när löpnummerna är slut ska programmet automatiskt hoppa till nästa kolumn. Jag har ställt in så att returtangenten bytar post och inte fält i formulärets designvy. Men när den når sista posten fastnar den där. //Magnus
  5. Hej, Jag har ett formulär som innehåller ett underformulär (se bild). I underformuläret fyller man i dagens datum och ett löpnummer för x antal poster i de två första fälten. Min tanke är sedan att man ställer sig i fältet för batchnummer1 (första posten), skriver in ett batchnummer och trycker enter för att hoppa ned till nästa post (samma fält). När detta är upprepat x gånger (slut på löpnummer) ska markören automatiskt hoppa till nästa fält (batchnummer2) översta posten. Någon som sitter på en fiffig kod för att åstadkomma detta? //Magnus
  6. Tack för svaren. Datorn är snart två år gammal. Datorn stod orörd i ett par dagar innan jag provade den på nytt. Ingen skillnad tyvärr. Och det milda våldet hjälpte inte heller. Det verkar inte vara fel på hårddisken då den fungerar bra med annan skärm. Enligt kvittot så har jag "fri hämtservice i 2 år". Så det blir att försöka utnyttja den, vad det nu innebär. Mvh Limpan
  7. Jag fraktade min laptop (ASUS X59GL) tillsammans med de små högtalarna till högtalarsystemet Logitech X230 igår. När jag sedan riggade datorn hade jag subwoofern ca 30cm bakom. Efter att datorn varit påslagen i någon minut började bilden se konstig ut, detta i form av svarta streck tvärs över bilden. Jag försökte då att starta om datorn men vid uppstart såg det ännu värre ut. Bilden var helt förvrängd och när sedan skrivbordet skulle dyka upp blev skärmen i stort sett helt blå (med någon form av ljusare mönster i mitten). Har provat att koppla datorm till annan skärm och det fungerar fint så hårddisken verkar vara OK. Jag har läst på diverse sidor att LCD-skärmar inte ska ta skada av magnetism, men i detta fallet ser jag inte vad som annars kan ha orsakat problemet. Är det någon som råkat ut för något liknande? Kan man på något sätt själv reparera skärmen? Degausning fungerar väl bara på gamla CRT-skärmar? Tacksam för hjälp! Limpan
  8. Jag hittade följande kodmall som jag tyckte såg användbar ut. Sub DAOCopyFromRecordSet(DBFullName As String, TableName As String, _ FieldName As String, TargetRange As Range) Dim db As Database Dim rs As Recordset Dim intColIndex As Integer Set TargetRange = TargetRange.Cells(1, 1) Set db = OpenDatabase(DBFullName) Set rs = db.OpenRecordset("SELECT * FROM " & TableName, dbReadOnly) ' Hämta Data ' write field names For intColIndex = 0 To rs.Fields.Count - 1 TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name Next ' write recordset TargetRange.Offset(1, 0).CopyFromRecordset rs Set rs = Nothing db.Close Set db = Nothing End Sub Men när jag försökte använda mig av den, med vissa ändringar och tillägg för att passa mig förståss, så fick jag följande felmeddelande: Kompileringsfel: Egendefinierad typ har inte definierats. Det pekar sedan på "Dim db as Database". Någon som vet vad det beror det på och vilken kod som saknas för att köra skriptet? [inlägget ändrat 2008-12-04 22:04:21 av limpan73]
  9. Jag tyckte skriptet ovan såg användbart ut men när jag försökte köra det stod det: Kompileringsfel, Egendefinierad typ har inte definierats. Det pekar på "Dim db as Database". Vad beror det på? Jag använder excel 2003.
  10. Tror jag har lösningen: Sub CopyPasteUnderline() ' Makro2 Makro ' Från ursprungsfilen markeras nummer. När makrot ' körs kopieras de och filens namn läses in som en sträng. Dim strVar As String Selection.Copy strVar = ActiveWorkbook.Name ' "Destinationsfilen" aktiveras och de ' kopierade nummren klistras in sist Windows(2).Activate intSistarad = Cells(Rows.Count, 1).End(xlUp).Row intSistarad = intSistarad + 1 Cells(intSistarad, "A").Select ActiveSheet.Paste ' Ursprunsfilen aktiveras igen och ' de markerade nummren stryks under. Windows(strVar).Activate Selection.Font.Underline = xlUnderlineStyleSingle End Sub
  11. Jag har ett antal excelfiler med nummer. Från dessaa filer vill jag kopiera ett antal nummer för att sedan klistra in efter varandra i en annan excelfil. När detta är gjort ska nummerna från de ursprungliga filerna understrykas. Jag har gjort ett exempel makro som ser ut som följer: Sub Makro2() Makro2 Makro ' Selection.Copy Windows("Bok2").Activate intSistarad = Cells(Rows.Count, 1).End(xlUp).Row intSistarad = intSistarad + 1 Cells(intSistarad, "A").Select ActiveSheet.Paste Windows("Bok1").Activate Selection.Font.Underline = xlUnderlineStyleSingle End Sub Man kopierar alltså nummer, startar makrot som slänger in dem sist i annan fil och sedan går tillbaka och stryker under dem. Detta fungerar ju om man har just dessa böcker öppna. Problemet att jag inte vill ha makrot kopplat till just bok1 och bok2 utan ska fungera oavsett vilka två excelfiler jag öppnar. Någon som på ett enkelt vis kan förklara hur att göra?
  12. Vi pratar efter bränning, vid uppspelning med en inspelningsbar DVD-spelare (från LG) kopplad till TV:n.
  13. Jag får ett metalliskt ljud på filmerna jag bränner. Det håller på och "blippar och bloppar" genom hela filmen. Någon som har varit med om något liknande och har en tänkbar förklaring? Är det brännaren, programvaran (nero 6), min slöa dator eller DVD-spelaren jag spelar upp filmerna på?
×
×
  • Skapa nytt...